VB 调用API函数设计关于窗体

VB6.0 改变扩展名保护Access数据库，也就是让用户修改Access数据库的扩展名，之前可能禁止改变，但本代码介绍的方法允许修改扩展名，以下是本例子核心功能部分的完整源码，仅供参考： 　　Private Sub Form_Load() 　　 Dim cnnstr As String 　　 cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db_wjgl.bak;Persist Security Info=False" 　　 cn.Open cnnstr 　　 Adodc1.ConnectionString = cnnstr 　　 Set Picture1.DataSource = Adodc1 　　 Picture1.DataField = "文件" 　　End Sub 　　Private Sub Form_Unload(Cancel As Integer) 　　 cn.Close 　　End Sub

简单的VB6 播放视频文件程序，也算是一个简单的视频文件播放器吧，核心基于Windows中的msdxm.ocx控件，可控制播放文件开始暂停、快进快退等简单操作，在测试时如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.

VB6.0 使用鼠标分割窗体，用鼠标切分主窗体，实现SplitForm，可以用鼠标切分的窗体，在一些流行的应用程序中，经常见到窗体上有二个相邻的列表框，可以用鼠标任意拉动中间分割条，改变列表框的大校 　　演示窗口其实是一个布满了各种导航菜单的窗口，这也是大家学习的一个亮点哦，作为一个信息管理系统的主界面效果还是相当不错的，分隔窗体在很多时候我们也用得上的。

VB 以流的方式打开文本文件，创建FileSystemObject MyFSO对象，创建TextStream对象，然后使用对象GetFile文件，最后使用对象OpenAsTextStream读取流文件，具体用法，可参见以下代码： 　　Private Sub Form_Load() 　　 Dim MyFSO As New FileSystemObject 　　 Dim MyFile As File 　　 Dim MyTS As TextStream 　　 Set MyFile = MyFSO.GetFile(App.Path & "MyFile.txt") 　　 Set MyTS = MyFile.OpenAsTextStream(ForReading) 　　 Text1.Text = MyTS.ReadAll 　　 MyTS.Close 　　End Sub 　　完整的可编译实例，请下载源码包。

VB实现子窗体跟随主窗体自动移动，这个窗体的形式，相信大家也见到过，就像一些播放器的子窗口，当拖动主窗体的时候，子窗体会跟着移动，紧紧贴服，自动跟随，好像是主窗口带有磁性一样。 　　测试时，请在主窗口中单击“打开跟随窗体”后，会显示子窗口，此时拖动父窗口，即可看到效果。

播放器窗口界面中的操作菜单，实现了弹出菜单的功能，把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。 　　播放器功能支持DVD格式的视频播放，包括了暂停、播放、停止、弹出等功能。 　　本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。

网络五子棋游戏源码之客户大厅和服务器 VB编的

VB6.0 添加、修改、删除数据库指定表，添加、修改、删除作者表，VB6.0 添加、修改、删除数据库指定表。

VB6.0 顺序文件写操作的操作演示，三种方法写数据，包括了完整的源码项目下载，是学习VB文件读写操作的好范例。 　　这三种方法是： 　　把文件的内容一次性的写入 　　把字符一个一个写入 　　依次写入顺序文件

VB 利用Tag属性存储用户名 　　If Text1.Text = "" Or Text2.Text = "" Then 　　 MsgBox "用户名或密码不能为空", vbCritical, "信息提示" 　　 Exit Sub 　　Else 　　 If Text1.Text = "TSoft" And Text2.Text = "111" Then 　　 Me.Tag = Text1.Text 　　 Frm_Main.Show 1 　　 Unload Me 　　 Else 　　 MsgBox "输入的名户名或密码不正确", vbCritical, "信息提示" 　　 End If 　　End If