VB6.0多选文件源代码实例

VB6.0 使用列表播放midi等媒体文件，代码中添加了注释，了解VB如何操作MIDI文件进行播放，核心是调用了msdxm.ocx文件，如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.

VB6为菜单制作添加分割线，在菜单项与菜单项之间显示一个分隔线，这个在Windows经典风格的窗口中，十分常见，像一个水平线那样，把菜单分成多个部分，这个水平线带有阴影效果，视觉效果更立体。 　　本窗口中的菜单，是一个企业综合管理系统的主界面面板，那些菜单都是测试用的，你可以看一下菜单中的分隔线是如何嵌入到菜单中的。

vb.net绘制生成曲线，数据从access数据库中读取，然后将数据进行简要处理后，传送给曲线生成函数，生成适时的数据曲线。 　　请注意：vb.net里PICTURE只支持像素，长度比较大，需要乘除定义精确值，8当余数为1,则刚好够总长度,否则需要判断长度，计算出坐标,画图，如果要设置数值或日期的显示格可以设置Format属性，例如： .Format = "￥0.00"。

VB 控件随窗体自动调整大小，像窗口中的ListBox、Image、FileListBox、VB.Frame控件等，都可以随窗口的大小变化而变化，当用户拖动改变窗口大小时，这些控件的大小也会随之改变，这个功能的实现得益于自定义函数Form_Resize()，用此来控制各个控件的变化，来看代码： 　　Dim x, y As Long 　　x = Form1.Width - 200 - Frame1.Width - Image1.Width 　　y = (Frame1.Height - Drive1.Height - Drive1.Top - 200) 　　Frame1.Width = Frame1.Width + x / 2 　　Image1.Left = Frame1.Left + Frame1.Width + 100 　　Image1.Width = Image1.Width + x / 2 　　Image1.Height = Me.Height - 600 　　Frame1.Height = Image1.Height 　　Dir1.Width = Frame1.Width - 280 　　File1.Width = Dir1.Width 　　Drive1.Width = Dir1.Width 　　Dir1.Height = y / 3 　　File1.Top = Dir1.Top + Dir1.Height + 100 　　File1.Height = 2 / 3 * y 　　此段代码被封装在按钮事件中，请参见源代码文件。

VB 6.0 利用文本框组输入数据，你会发现这量个矩阵类型的输入框，输入完一组数据后，会提示输入第二组，当所有都输入完成后，以3行4列的矩阵方式输出数组元素，输入的过程中支持光标的自动定位功能，你可以了解一些提高输入效率的基本操作，有利于提高软件的使用体验。

vb 通过程序设置系统日期和时间的格式，设定时可以改变长日期格式，短日期格式，改变时间格式，看着很像是以前Windows XP时候的时间设置窗口的功能。请注意，日期格式设置成功，需要重新启动计算机或注销后可以看到新的短日期格式！以下是改变日期格式其中的一个例子代码，仅供参考： 　　Dim ret2 As Long 　　Dim sd As String 　　ret2 = RegOpenKey(HKEY_CURRENT_USER, "Control PanelInternational", hKey) 　　If ret2 = 0 Then 　　 sd = Combo1.Text 　　 RegSetValueEx hKey, "sShortDate", "0", REG_SZ, ByVal sd, LenB(StrConv(sd, vbFromUnicode)) 　　 MsgBox "日期格式已设置成功，重新启动计算机或注销后可以看到新的短日期格式！", , "提示窗口" 　　End If

VB6.0检查你的电脑是否有拨号连接，获取本机的网络连接列表，重点是检测是否有拨号网络连接。

VB 6.0将时、分、秒转换为时间，就是把输入文本框中的内容，重新组合，并添加连接符，形成人们视觉习惯上的时间格式。 　　其实实现这个功能，不两行代码就可实现了： 　　Private Sub Command2_Click() 　　 t = TimeSerial(Text1, Text2, Text3) 　　 Label4.Caption = "时间为：" & t 　　End Sub

VB在数据库端禁止录入重复数据，对插入的数据进行判断，在写入数据库时进行判断是否已经存在于数据库中，判断是基于数据库的，数据库采用的是Access，在数据库端进行重复数据判断： 　　rs1.Open "select * from 客户类别表 where 客户类别= + Text1(0) + _ 　　 ", Cnn, adOpenKeyset, adLockOptimistic 　　If rs1.RecordCount > 0 And Text1(0) DataGrid1.Columns(0) Then 　　 MsgBox "此记录已存在！", , "提示窗口" 　　Else 　　 Cnn.Execute ("update 客户类别表 set 客户类别 = + Text1(0) + ,备注= + Text1(1) + _ 　　 ,修改日期= + Str(Date) + where 客户类别= + DataGrid1.Columns(0) + ") 　　 Adodc1.Refresh 　　 tlbState Toolbar1, False 　　 Text1(0).Locked = True: Text1(1).Locked = True 　　End If

VB6 判断文件是否存在，使用VB内置的函数FileExists来实现，可以说实现方法简单，直接调用函数（文件路径）即可，至于返回的结果，这里有两种形式，一种是以MsgBox的方式弹出窗口告之，另一种是返回布尔值，True或False，然后再进行相关处理。关于FileExists用法，有以下代码供参考： 　　Dim B As Boolean 　　B = FileExists(Me.Txt_Path.Text) 　　If B Then 　　 MsgBox "文件存在" 　　Else 　　 MsgBox "文件不存在" 　　End If 　　以上代码段封装在按钮事件中，用户单击按钮后，执行本段代码，判断指定的文件是否存在。