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

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

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

VB.NET 软件在线自动升级功能演示，含源代码，程序自动更新版本源码中核心文件为UpdatingForm.vb，此文件包括了程序自动升级的主要功能，比如更新显示信息、删除不需要的文件、查找客户端需要更新的文件和需要删除的文件、查找服务器端新增需要下载的文件、版本控制文件为必须下载文件、设置当前下载的文件序数、强制结束进程等。 　　本程序需要一个存放软件最新版本的服务器或者是网址，程序运行后最先检测该网址下的软件是否是最新，若该网址不存在或出错，程序将不再继续，直接退出，如图所示。

VB 演示如何获取星期名称，这里获取星期几是使用了VB内置的WeekdayName函数，将获取到的日期和星期几直接显示在Text控件中，下面是这个函数的具体用法： 　　Private Sub Command1_Click() 　　Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday) 　　End Sub 　　Private Sub Form_Load() 　　Text1.Text = Date 　　Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday) 　　End Sub 　　在VB6.0 IDE环境中编译此源代码，生成如演示截图所示的运行效果。

vb 不借助第3个变量实现两个变量互换,交换两个变量的值,在窗口上输入a和b的值，从运行效果截图你可看出这个功能： 　　If IsNumeric(Txt_a.Text) Then 　　 a = Val(Txt_a.Text) 　　Else 　　 MsgBox "请输入数字！" 　　 Exit Sub 　　End If 　　If IsNumeric(Txt_b.Text) Then 　　 b = Val(Txt_b.Text) 　　Else 　　 MsgBox "请输入数字！" 　　 Exit Sub 　　End If 　　a = a + b 　　b = a - b 　　a = a - b 　　Lbl_Info.Caption = "a的值是:" & a & " b的值是:" & b

分享一个VB Excel表格生成模块，借助了模块中的ChangeToExcel.ocx组件来生成，使用时需要引入此组件。该组件中具备创建Excel文件、向Excel文件中插入内容、出错处理等功能。 　　Excel表格生成模块为该组件的源代码文件，你还可以通过源码对组件功能进行调整。 　　Demo文件夹下是使用此组件导出Excel文件的例子，单击按钮即可生成Excel文件。

VisualBasic 6.0 获取网页超链接，VB根据网址打开指定页面，预览网页并获取该页面中所有的超链接，最后会统计出该网页内有多少个链接。 　　同时本源码还可区分网页中的文本和图片，将剔除图片，在文本中查找超链接个数，主要是针对href进行精准匹配统计出出现的次数，运行效果如下图所示。 　　具体源代码请下载本源码查看。

vb6.0 编程实现字节数组和字符串的相互转换，演示如何进行字节数组和字符串的相互转换.

VB 6 使用ODBC DSN连接SQL Server数据库，要想运行本实例，首先需要附加SQL数据库，然后配置ODBC，ODBC数据源名称是“RSDAGLXT”。将连接数据库的代码写在一个按钮事件中，当用户单击按钮后，开始使用DSN连接数据库。本示例主要是连接SQLSERVER,因此主代码文件代码比较少。连接后会从数据库中读取出数据，并绑定到MSHFlexGrid控件中显示，运行效果请见截图。主代码： 　　Dim cn As New ADODB.Connection 　　Dim rs As New ADODB.Recordset 　　cn.Open DSN=RSDAGLXT;Uid=sa;Pwd= 　　rs.Open 人事档案信息表, cn, adOpenKeyset, adLockOptimistic 　　Set MSHFlexGrid1.DataSource = rs 　　MSHFlexGrid1.ColWidth(0) = 100

VB 类似超级兔子的程序界面，这只是一个应用程序的界面效果，不包括界面菜单中的功能，因此对界面UI的美化可以参考。这个界面是使用BMP贴图的方式实现，整个窗口就是一张图片，但是经过了处理，添加了菜单，其实挺简单的，当时用在一个手机维修管理系统中了，现在发上来，不知道对大家是否有用？