VB6 制作简易谱曲键盘 键盘演奏音乐

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

VB成绩统计饼图，生成圆形图表，圆饼百分比图表的例子，这种图表相信大家见多了，这个例子介绍了VB简单生成圆饼图的方法，对初学VB的朋友会有帮助，通过这个图表，你可以了解绘图、填充、按比例分配、绘制扇形等是如何实现的，用它来显示优秀人数、良好人数、及格人数、不及格人数所占的比例，各个比例用不同的颜色填充，让结果一清二楚，源代码运行于VB6.0环境 ，运行效果如下图所示。

VB演示分割文件与合并文件，这里使用到比较多的文件操作函数，比如FileToSplit、FileLen、UBound、FileCount、FileInfo等。本范例文件分割的思路：程序通过调用FreeFile函数来取得可以的文件号，以二进制的方式打开文件，根据文件的长度FilesLen和每个分割单位的比较，得出被分割之后的子文件个数，重新定义最后一个子文件的大小，将所取得的内容，分别存储到各个子文件中，将文件分割情况，存储到自定义的结构类型FileInfoFile中，最后将文件分割的情况，存入到模版文件中。 　　关于文件合并，则可看作是上述的逆过程，不再详述，请参见源码中的文件注释。

VB制作可移动按钮位置的工具栏，这个窗口中的Toolbar允许用户自己调整位置，可以拖动至指定位置，记得word中的工具栏就是这样，当你改变默认的工具栏布局时，程序会使用 MsgBox ("您确实要调整工具栏按钮的位置吗？")弹出确认信息。另外，本范例也可看作是一个在VB窗口中制作图标菜单的好范例，如示例图所示的效果。

VB6.0 代码演示如何计算加权平均值，计算加权平均值可编写以下代码实现： 　　Private Sub Command1_Click() 　　 Text7.Text = jiaquan(Text1, Text2, Text3, Text4, Text5, Text6) 　　End Sub 　　Private Function jiaquan(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer) 　　 Dim sum As Integer 　　 sum = (a * b + c * d + e * f) / (b + d + f) 　　 sum = Round(sum, 2) 　　 jiaquan = sum 　　End Function

VB 限制调整窗口大小的最大值，我们根据SetWindowLong函数的说明 ，可写出一个函数，当用户拖动窗口时，控制窗口最大能拖动到什么大小，当达到最大值时，窗口就不能继续被拖大，我们定义一个函数，在打开这个VB窗口时自动加载函数，实现对窗口最大拖动大小的控制： 　　Private Sub Form_Load() 　　 Dim ret As Long 　　 preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC) 　　 ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc) 　　End Sub

vb根据用户输入的内容决定显示指定内容，从例子来看，是一个数据库搜索的例子，也就是用户搜索的什么，列表中会显示出相关内容。只是说法不同而已，为了可以正常运行，本示例中的数据库采用Access数据库，数据库文件为：db_Client.mdb。

VB6 屏幕滚动字幕，这个文字滚动区域被控制在屏幕的右下角，由右向左开始滚动，中间的高度可以调节，通过调节Me.Top = Screen.Height - Me.Height - 800参数，来改变文字滚动区域距离屏幕顶部的距离，文字滚动的实现是基于计时器和循环来实现，下面的代码可为你提供本效果的实现思路： 　　Label1.Caption = "这里定义需要滚动的文字内容： 用VB制作的文字滚动效果！" 　　Me.Left = Screen.Width 　　Me.Top = Screen.Height - Me.Height - 800 　　BeginPath Me.hWnd 　　SetBkMode Me.hWnd, TRANSPARENT 　　EndPath Me.hWnd 　　rgn = PathToRegion(Me.hWnd) 　　SetWindowRgn Me.hWnd, rgn, True 　　Timer1.Interval = 200 　　Timer1.Enabled = True 　　End Sub 　　Private Sub Timer1_Timer() 　　 Me.Left = Me.Left - 100 　　 If Me.Left < Label1.Width * (-1) Then 　　 Timer1.Enabled = False 　　 Me.Left = Screen.Width 　　 Timer1.Enabled = True 　　 End If 　　End Sub

VB Windows操作监视程序，一个 Windows的文件目录操作即时监视程序，可以监视在Explore中的重命名、新建、删除文件或目录；改变文件关联；插入、取出CD和添加删除网络共享都可以被该程序记录下来。源程序来源于国外，注释英文。运行界面效果如图所示。当有文件操作时，在程序运行窗口中会有所提示。

VB.NET自制图片查看器，一个看图工具软件，功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧，另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置，重画图片、绘图画面，颜色填充、窗体界面元素控制等的控制方法。。