一个实现图像旋转效果的VB实例

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

VB.NET 获取全局coordinate鼠标坐标，显示窗体内的XY坐标，窗体外凡是显示屏幕的任意位置都可以显示出坐标，获取全局鼠标坐标，测试截图是获取本窗口外的鼠标坐标，请参见截图效果。随着鼠标移动会显示出各个鼠标坐标点的XY坐标信息。单击窗口的“开始”按钮后，将执行以下代码获取全局坐标： 　　GetCursorPos(p) 　　tooltip1.SetToolTip(Me, "当前鼠标位置 X=:" & p.x & "Y=:" & p.y) 　　tooltip1.Active = True

vb 判断字符串是否为日期或时间，在输入框输入任意字符串类型，程序将会判断出该字符串是否是时间字符串，这个判断方法VB员自带有函数，使用IsDate即可实现，下面是使用IsDate的简单用法示例： 　　If IsDate(Text1) = True Then 　　 Text2.Text = "是日期" 　　Else 　　 Text2.Text = "不是日期" 　　End If 　　您也可以在本页下载完整的源码实例。

VB让窗口标题栏闪烁效果源码，不过我测试没有发现标题栏闪烁，咋回事呢？实现的思路是：声明API函数Flashwindow，然后编写下面的代码： 　　Call FlashWindow(hwnd, 1) 　　If Me.Caption = "闪烁的标题栏" Then 　　 Me.Caption = "欢迎使用管理软件！ " 　　Else 　　 Me.Caption = "闪烁的标题栏-www.codesc.net" 　　End If

vb.net 串口通讯测试项目源码，本源码用于练习SerialPort控件、DataReceived事件、16进制操作，同时用于工程需要。作者：李潇海。 　　运行后先检测测试需用的COM端口是否打开，弹出提示。 　　测试时请确保发送周期为正整数！串口测试窗口中，可配置参数：端口、波特率、检验位、数据位、停止位等，支持以十六进制发送和接收数据，还可以毫秒定时发送数据。操作方式上，可设置自动清空测试数据，发送文件或发送数据等。右侧为串口测试时的结果显示区。

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

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

1.用易懂的VB语言编程   2.可设置串口号波特率   3.支持十六进或字符形式发送或接收，可定时发送。3，可自己换程序的图片

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

VB6 获取当前打开窗口数量，如何获取当前打开窗口数量，本示例打开一个窗口后，在测试时会打开另外一个窗口，然后主窗口中会统计到这个打开的窗口，把当前打开窗口的数量填入文本框中。本程序可学习一下DoEvents()的用法。调用新窗口显示可参考以下代码： 　　Private Sub Command1_Click() 　　 Form2.Show 　　 Call Form_Activate 　　End Sub 　　Private Sub Form_Activate() 　　 Text1.Text = DoEvents() 　　End Sub