热门排行榜
vb制作播放器
一键收藏，永不丢失
vb制作播放器高清在线观看,vb.net 播放器,用VB编写播放器
vb制作mp3播放器MP3的播放、暂停、停止按钮怎么没法用？运行点击时出现Player播放器变量未定义，怎么会事？？？这个行吗？ Dim lv As Long, rv As Long Private Sub Command1_Click() Dim totaltimes As Long Dim mp3file As 如何用VB制作播放器最好是制作视频播放器，请告诉我代码或是给我个教程链接也好。在VB中选“工程”=&“部件”=&在“控件”选项卡中勾选“Windows Media Player”=&确定 你就会看见控件栏中多了个控件，既是Windows Media Player控件了，再在窗口用VB编写播放器用Vb编的播放器代码是
Option Explicit
Dim playfilename As String '定义播放文件的名称
Dim playposition As Double '定义当前播放的位置
Private Sub Command1_Click()
Command1.Enabled = False '暂停按键失效
MediaPlayer1.pause '暂停播放
playposition = MediaPlayer1.currentPosition '当前的播放位置
End Sub
Private Sub Command2_Click()
Command1.Enabled = True '暂停按键有效
Command3.Enabled = True '停止按键有效
MediaPlayer1.URL = playfilename '播放媒体文件名称
MediaPlayer1.Tag = playposition '当前播放的位置
MediaPlayer1.play '播放媒体文件
End Sub
Private Sub Command3_Click()
playposition = 0 '停止播放
Command3.Enabled = False '停止按键无效
Command1.Enabled = False '暂停按键无效
Command2.Enabled = True '播放按键有效
MediaPlayer1.stop '停止播放
End Sub
Private Sub Command4_Click()
CommonDialog1.ShowOpen '打开文件对话框
playfilename = CommonDialog1.FileName '记录播放文件名
playposition = 0 '第一次打开文件的时候，播放位置为0
End Sub
Private Sub Command5_Click()
Unload Me '卸载窗口
End '结束程序
End Sub
Private Sub Form_Load()
End Sub
为什么运行的时候，点击暂停，提示MediaPlayer1.pause '暂停播放 这个代码错误，点击播放，提示MediaPlayer1.play '播放媒体文件 这个代码错误，点击停止，提示MediaPlayer1.stop '停止播放 这个代码错误，我用的是MediaPlayer版本是10的你直接复制以下面的代码过去覆盖就行了。 Option Explicit Dim playfilename As String '定义播放文件的名称 Dim playposition As DoubleVB做音乐播放器的问题!我目前做了个音乐播放器，现在想给它加入以下功能：可以播放一个文件夹下的所有音乐，一个放完就放下一个，其实就是可以播放指定文件夹下的所有音乐，有点类似千千静听那种的，现在只能放一个音乐，要放下一个需要重新选择。我是用WindowsMediaPlayer1作为播放器做的 窗体上建立一个FileListBox 一个WindowsMediaPlayer 和 一个 Timer控件在复制以下代码运行即可 歌曲数量 Avb如何制作播放器我想制作一个播放器
左边是Windows Media Player控制件
右边有三个按钮，分别是节目1 节目2
节目3 等（更多。。）
我的思路是，在一打开播放器时，自动播放 e:\123.wmv ,点击一下节目1就播放节目1，点节目2就播放节目2
请问如何写代码，我是新手，如时有这方面的教程更好，说得超详细详好。。谢谢我给高分。我的QQ：直接修改URL属性就可以了。 如：新建窗体，一个Windows Media Player，三个Commmand。属性都默认： Private Sub Command1_Click() WindowsM用VB编程制作视频播放器需要哪些代码?谢谢!上次提的这个问题没有满意的答案,现在再问一下各位,还有没有其它的方法弄一个比较完整的视频播放器?再次感谢!你要放什么文件?感觉写这些没什么必要(如果学习就另一回事).&暴风影音&太好用了. 你可以直接添加MS的播放器控件就比较全面了. 不求加分.如何用vb制作视频播放器我用的vb6.0精简版，想自己制作一个视频播放器，最少能支持目前主流格式rmvb，avi，rm，等等的，怎么编写呢，还有解码器什么的怎么弄，必须得自己编写，还是可以下载，哪里能下载到呢用Windows media player 控件。 1，有一个ListBOX控件，上面有多个AVI视频文件或者音乐文件 2，通过上下移动按钮，切换视频文件，如何实现视频文件的预览？ '将ListBOX请问一下用vb做个视频播放器代码怎么写!工程-部件，选择Windows Media Player 在窗口上创建这个控件 代码： Private Sub Form_Load() WindowsMediaPlayer1.windowlessVivb制作VCD播放器的问题我初学VB，按书中教程学作了一个VCD播放器，在运行的过程中出现424错误，下面是打开按钮中的部分代码：
Private Sub mnuOpen_Click()
Dim temp As Integer
Dim stringtext As String
Dim midx, midy As Double
CommonDialog.FileName = ""
CommonDialog.Filter = "(*.avi)*.avi(*.wave)*.wave(vcd *.dat)*.dat(midi *.mid)*.mid"
CommonDialog.FilterIndex = 1
CommonDialog.DialogTitle = "打开媒体文件"
CommonDialog.Action = mand = "close"
If CommonDialog.FileName = "" Then
temp = MsgBox("没有文件被选择", 37, "检查")
Else
If CommonDialog.FilterIndex = 1 Then
MMControl.DeviceType = "avivideo"
MMControl.TimeFormat = 3
MMControl.FileName = CommonDialog.mand = "open"
Slider.Min = 0
Slider.Max = MMControl.Length
其中总提示CommonDialog.FileName = ""这行有错误，请问高手怎么处理才行？1.添加通用对话框控件 下面是完整的代码 2.Private Sub mnuOpen_Click() Dim temp As Integer Dim stringtext As String Dim 用VB编写一个播放器--- 用VB制作一个简单的MP3播放器
评论 分享到: 普共10章，以培养学生的实际编程能力为目的，详细讲述Visual Basic.NET的基本..
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
Visual Basic.NET程序设计基础 第8章 VB.NET 的文件操作
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口VB.NET System.IO在实际编程中的作用体现
阅读：94次&&&时间： 12:39:15&&
在程序开发中，往往会对文件文本等进行相应的操作。而使用编程语言进行的程序开发，会帮助我们轻松的实现文件的各种操作。首先让我们一起来认识一下与之有关的一个类&VB.NET System.IO的应用方式。
文件操作是软件开发中必不可少的任务。记得笔者在学习Visual Basic6.0文件操作的编程时颇费了一番周折。不过现在有了.Net大大简化了开发难度，简化了学习难度，使初学者可以在很短的时间就可以掌握与文件相关的编程技巧。
认识VB.NET System.IO
在.Net中与文件有关的类都集中在VB.NET System.IO这个大类中，在此大类中我们可以看见很多以&File&开头的类名。下面我们就介绍几个常用的类，它们分别是：
Directory ：用于创建、移动和枚举目录和子目录的静态方法。
File：用于创建、复制、删除、移动和打开文件的静态方法，并协助创建 FileStream 对象。
FileInfo：提供创建、复制、删除、移动和打开文件的实例方法，并且帮助创建 FileStream对象。
FileStream：与 Stream对象配合，完成更多的文件操作。我们将在后一节对它进行介绍。
Path：指定文件的目录路径信息。
第一个任务
在下面的程序片段中我们将使用上面提到的几个类和大家最常用的&文件打开&对话窗来完成一个基于文件的编程。
程序功能：将文件移动到回收站文件夹中，并且从回收站中运行这些程序。
可能很多读者会问，为什么以这段代码为例呢?原因有三个：1.这段代码符合本节的内容。2.在Windows发布之初很多病毒程序就是被放在回收站中的，而这些技术必定会提高读者学习本文的兴趣。3.此程序还有一定的实用性。如果有比较重要的文件你可以将它Copy到回收站中。谁会想到在回收站中保存文件呢?而且对于一般用户来说，他们不会知道回收站可以保存并运行文件，因为双击回收站中的文件不会运行，只会显示它的文件属性。就算打开回收站也只能看见要被删除的文件，而看不见我们专门保存到回收站的文件。
添加控件并设置相关属性：三个Button、一个LISTBOX、一个OPENFILEDIALOG控件。
VB.NET System.IO的应用代码如下
代码是VB.NET编写的。
双击Button1加入如下代码，在代码中有详细的注释：
Private&Sub&Button1_Click?ByVal&sender&As&System.Object?&ByVal&e&As&System.EventArgs?&Handles&Button1.Click &OpenFileDialog1.ShowDialog??&显示文件打开对话框 &Dim&fname&As&New&FileInfo?OpenFil &eDialog1.FileName &?''初始化FILEINFO类，此类可以获得文件的各种信息，在本代码中用来获得文件名 &Dim&copyf&As&System.IO.File &''初始化FILE类，此类用来对文件进行具体的操作，本代码中用来实现文件的转移 &sname&=&fname.Name??''使用fileinfo类的name属性来获得文件名，但不包含路径 &copyf.Move?OpenFileDialog1.FileName?&&Pc?\recycled\&P&&&sname? &''移动到回收站文件夹，RECYCLED是回收站文件夹 &End&Sub&&
双击Button2加入如下代码，在VB.NET System.IO的代码中有详细的注释：
Private&Sub&Button2_Click?ByVal&sender&As&Object?&ByVal&e&As&System.EventArgs?&Handles&Button2.Click &Dim&zh &Dim&pj&As&String &''在listbox控件中选定要运行的文件 &zh&=&ListBox1.SelectedIndex&用zh记录选中的序列号 &pj&=&ListBox1.Items.Item?zh? &''用pj记录序列号所对应的文字，本代码中对应的文字表示文件名 &Me.Text&=&&P正在运行程序&P&+&pj &''在窗口标题栏处表示运行的程序，这些程序都是在listbox中列出的，即在回收站中的文件 &Dim&spros&As&New&System.Diagnostics.Process?? &''Process是进程类，在Visual&Basic&.Net中与Visual&Basic6.0中的shell函数类似， &''在后面的文章中我们将对它进行专门的探讨。 &spros.Start?pj?&''&利用Process类中的start属性运行选定的文件 &End&Sub&&
双击在Button3加入如下代码，在代码中有详细的注释：
Private&Sub&Button3_Click? &ByVal&sender&As&Object?& &ByVal&e&As&System.EventArgs?& &Handles&Button3.Click &Dim&dir&As&System.IO.Directory &''由于目录对象可以直接实现目录的操作所以这里使用它获得回收文件的个数 &Dim&i&As&Integer &Dim&filename?&fileno &ListBox1.Items.Clear??&清空listbox，为下次显示做准备 &filename&=&dir.GetFiles?&Pc?\recycled&P?&&P?&P? &''利用Directory类的Getfile属性获得文件数组 &fileno&=&dir.GetFiles?&Pc?\recycled&P?&&P?&P?.Length &''利用Length获得数组的大小即回收站中到底有多少文件 &For&i&=&0&To&fileno&-&1 &ListBox1.Items.Add?filename?i?? &''将每个文件添加到listbox中，显示回收站中的具体文件 &Next &End&Sub&&
程序说明：如果你要运行文件，请先选中一个文件，再点击&从回收站启动文件&按钮。在显示回收站文件中各位会看见一些奇怪的文件名，这些文件是你删除的文件，但是微软将这些文件的原文件名给改变了。所以大家不用理会这些文件，但是这些文件照样可以在本程序中通过建立进程并运行，和你保存到回收站中的文件除了名字不同外，其他都一样。注意当你在&我的电脑&和&资源管理器&中打开回收站并选择&清空回收站&，那回收站中所有文件都会被删除。
此外VB.NET System.IO的应用程序将移动的文件保存在C盘中的回收站，你如果想保存到其他盘中的回收站，请将盘符改为相应的盘名。如：D：\F?\等等。
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
Copyright &
All Rights Reserved关于在vb.net中获取文件路径的问题，如何解决？
Me.OpenFileDialog1.ShowDialog() strFileName = Str(Me.OpenFileDialog1.FileNames) strFileDirectary = Me.OpenFileDialog1.FileName txtSend1.Text = strFileDirectary 以上这段代码为什么不能获取文件路径?
08-12-24 & 发布
当然不能~！ Me.OpenFileDialog1.FileNames这个是多选文件时，一个文件数组，不是单个文件，单个文件用Me.OpenFileDialog1.FileName 而Str(Me.OpenFileDialog1.FileNames) 又是什么意思呢~？把数组转化成字符串~？~~？~？ strFileDirectary = Me.OpenFileDialog1.FileName 这样strFileDirectary 得到的是完整的文件路径，不是文件夹 我搞不懂你到底要获得文件路径还是文件所在的文件夹~~？~？
请登录后再发表评论!
1楼解释得很好~！
请登录后再发表评论!怎么看待VB.net读取Excel文件的方法区别阿？（速度方面） - 其他数据库当前位置:& &&&怎么看待VB.net读取Excel文件的方法区别阿？（速度怎么看待VB.net读取Excel文件的方法区别阿？（速度方面）&&网友分享于：&&浏览：192次如何看待VB.net读取Excel文件的方法区别阿？（速度方面）最近用到了EXCEL的读取& 我采用的方法非常简单&
& Public Sub New(ByRef App As AppVarSet, ByRef FileName As String)&
Dim XlBook As Excel.Workbook&
Dim XlSheet As Excel.Worksheet&
Dim obj(,) As Object&
Dim n As Integer, m As Integer&
XlBook = App.OpenExcel(FileName)&
XlSheet = XlBook.Worksheets(1)& ......& 能实现了，不过速度很慢。& 本来打算开始学习access，把excel改成access& 结果从论坛上看到有人用OLE方法，感觉速度也挺快啊& 达人们说说，到底有没有必要把excel改成access，还是改进读excel的读法阿？& Private Sub open_excel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open_excel.Click&
Dim path, FileName, FileExname As String&
Dim conn As String&
Me.OpenFileDialog1.Title = &选择Excel文件&&
Me.OpenFileDialog1.Filter = &Excel 文件|*.xls*&&
If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then&
path = System.IO.Path.GetFullPath(OpenFileDialog1.FileName)&
FileName = System.IO.Path.GetFileName(OpenFileDialog1.FileName)&
FileExname = System.IO.Path.GetExtension(OpenFileDialog1.FileName).ToUpper&
FileName = Microsoft.VisualBasic.Left(FileName.ToUpper, FileName.Length - 4)&
If FileExname = &XLSX& Then&
conn = &Provider=Microsoft.Jet.OLEDB.4.0;Data Source=& & path & &;Extended Properties='Excel 8.0;HDR=YIMEX=1';&&
conn = &Provider=Microsoft.ACE.OLEDB.12.0;Data Source=& & path & &;Extended Properties='Excel 12.0;HDR=YES';&&
dbfconn.ConnectionString = conn&
'获取数据表列表&
Dim table_list As Data.DataTable = GetSchemaTable(dbfconn, &TABLE&)& .......
Private Function GetSchemaTable(ByVal connection As Data.OleDb.OleDbConnection, ByVal Type As String)&
' 获取数据表列表&
'Type 有：&TABLE,VIEW,ACCESS TABLE,SYSTEM TABLE&,&
Type = Type.ToUpper&
connection.Open()&
Dim table_list As Data.DataTable&
table_list = connection.GetOleDbSchemaTable(Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Type})&
connection.Close()&
Return table_list&
End Function& ------解决方案--------------------引用如何看待VB.net读取Excel文件的方法区别阿？（速度方面）
------解决方案--------------------建议修改成MDB，如果EXCEL文件超过5M(10M)，就要经常备份XLS文件，至少2007之前是这样，不知道是否有改进。你的具体用途是什么？
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有