VB6 设计带记忆的DataGrid数据录入窗口

VB 记录鼠标行为，记录用户是单击了鼠标右键或是左键，监控鼠标被单击了哪个键，核心的代码如下： 　　If GetAsyncKeyState(VK_LBUTTON) = -32767 Then 　　 Text1.Text = Text1.Text + " 鼠标左键 " 　　ElseIf GetAsyncKeyState(VK_RBUTTON) = -32767 Then 　　 Text1.Text = Text1.Text + " 鼠标右键 " 　　End If

vb.net获取TXT文件的各种属性参数，除了复制、移动文件、删除文件外，还可获取到文件的各种属性参数，不过只是针对TXT文本文件，可以获取到以下的参数：文 件 名 、路 径 、文件大小 、创建文件时间、最近访问时间、最近写入时间、是否隐藏文件、是否只读文件、是否系统文件 、是否脱机文件等 。

VB创建一个个性化的椭圆形窗口界面，使用 SetWindowRgn创建椭圆形窗口的例子。个性的窗口形状可增加程序的趣味性，可以使程序更具吸引力。见惯了方方正正的矩形窗体，椭圆形窗体更会使用户眼前一亮。本实例设计一个椭圆形的窗体，运行程序，窗体为椭圆形，单击窗体，即可退出程序。

VB6.0仿迅雷悬浮窗口（图标）的实现源码，迅雷的悬浮窗相信大家很熟悉了，其实就是显示一个图标，悬浮在屏幕上，通过这个悬浮图标可单击右键调出菜单，双击图标则会显示主窗口，本源码模拟了悬浮窗口的实现，另外是模拟了悬浮窗口双击显示主窗口的功能。代码中注释不多，不过没有使用过多复杂的代码，对VB新手友好。

VB6.0 使用ADO对象访问数据库，这个例子其实很简单，就是基本的VB连接数据库、读取数据库内容，然后浏览一条一条的数据，最后关闭数据库，面向VB编程开发新手，有兴趣下载整个源码，在代码中都有详细的注释，因此很适合学习一些数据库操作的基础知识，源码运行截图如下：

这是一个用VB.NET开发的应用程序管理工具-类似360桌布助手的某此功能，通过导入保存有常用程序列表的XML文件，来通过程序来管理各应用程序的快捷方式，用户可以把常用的程序收集起来，在这里可以直接双击列表中程序名称或点击【启动程序】来启动每个程序。不用到处找你所安装的程序或软件。方便，快捷，常用程序列表:(用户可以拖放任何文件到下面列表中)。 　　程序列表的操作有导入和导出。

VB6.0演示矩阵的加法运算，本例中一共是两个矩阵，每一个矩阵都根据不同的算法生成矩阵数字序列，然后把这两个矩阵求和，最后一栏展示的是矩阵相加后的结果，以指定格式输出。看了代码，我暂时没搞懂是什么算法，感兴趣的自己下载源码，研究学习吧。

VB6.0 判断指定字符串出现的次数，判断字符串A在字符串B中出现的次数，使用了VB的Mid函数来判断，如图所示的运行效果，单击按钮即可查看运行结果。代码验证判断部分，采用for循环遍历判断，代码如下： 　　Dim j As Integer 　　j = 0 　　For i = 1 To Len(Text1) 　　 If Mid(Text1, i, Len(Text2)) = Text2 Then 　　 j = j + 1 　　 End If 　　Next i 　　Label2.Caption = "出现" & j & "次"

VB 调用API函数设计关于窗体，看第一眼，我还以为是调用Windows系统的关于窗口，仔细看，定义了自己的信息，这个例子可看作是VB使用API函数的例子，了解一些用法，关于本例子中的API用法，可看以下代码： 　　API函数声明： 　　Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long 　　Private Sub Form_Load() 　　 Call ShellAbout(hWnd, "源码素材网", " 欢迎访问网站:http://www.codesc.net！", Me.Icon) 　　调用了ShellAbout显示信息，更多内容请下载源码。

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