vb利用数据窗口辅助录入数据

窗体分割 窗口分栏程序- vB版，这个可将窗口分为上下部分、左右部分，可分成二栏、三栏，通过程序左侧的参数设置面板，决定程序窗口要经过怎么的切割。本源码同样来自于国外源代码网站。代码注释英文，这里就不帖代码，你可以单击页面底部的“下载源码”按钮，下载本窗口切割实例的完整源码。

一个演示VB高速搜索文件程序，基于API来实现，用于快速查找文件，类似的例子在前几年的书籍实例中，有很多，这一个也是从VB的书中整理出来的，代码中有丰富的注释，主要是分享给VB新手参考学习的。

VB 数字与字符串的相互转换（汉字区位码与汉字的相互转化）的例子，主要是使用Val函数来实现转换功能，Val的用法很简单，如Text4.Text = Val(Text3)，将此行代码添加到自定义的按钮事件中即可，当用户单击按钮后，可触发此代码执行区位码转换。实现的功能为： 　　把数字转换成字符串，把字符串转换成数字。

vb禁用窗体最大化、最小化和关闭快捷菜单，禁用最大化、最小化不可用，重点实现了禁止关闭窗口的功能，禁止后窗口上的关闭按钮变成灰色不可点击了，在实现方面，核心代码如下： 　　Private Sub Form_Load() 　　 RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_COLSE, MF_REMOVE//禁止关闭 　　 RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MAXIMIZE, MF_REMOVE//禁止最大化 　　 RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MINIMIZE, MF_REMOVE//禁止最小化 　　End Sub

VB.NET获取Windows 7操作系统信息，本程序获取的内容比较多，主要有：显示器分辨率、桌面文件夹路径、收藏夹路径、Application Data""路径"、Windows7当前登录的用户名、当前应用程序的路径、计算机IP和计算机全名、控制面板、辅助选项/常规、系统属性、增加打印机、添加/删除程序、显示安装/卸载、显示Windows 安装、添加/删除程序、Windows7时间/日期、Windows7背景设置、外观设置、键盘/速度属性、设备管理器。

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

VB 控件随窗体自动调整大小，像窗口中的ListBox、Image、FileListBox、VB.Frame控件等，都可以随窗口的大小变化而变化，当用户拖动改变窗口大小时，这些控件的大小也会随之改变，这个功能的实现得益于自定义函数Form_Resize()，用此来控制各个控件的变化，来看代码： 　　Dim x, y As Long 　　x = Form1.Width - 200 - Frame1.Width - Image1.Width 　　y = (Frame1.Height - Drive1.Height - Drive1.Top - 200) 　　Frame1.Width = Frame1.Width + x / 2 　　Image1.Left = Frame1.Left + Frame1.Width + 100 　　Image1.Width = Image1.Width + x / 2 　　Image1.Height = Me.Height - 600 　　Frame1.Height = Image1.Height 　　Dir1.Width = Frame1.Width - 280 　　File1.Width = Dir1.Width 　　Drive1.Width = Dir1.Width 　　Dir1.Height = y / 3 　　File1.Top = Dir1.Top + Dir1.Height + 100 　　File1.Height = 2 / 3 * y 　　此段代码被封装在按钮事件中，请参见源代码文件。

vb.NET模拟扑克牌出牌功能，其实可看作是一个界面较简单的扑克牌游戏，界面有些粗糙，没有过多美化，用文字描述了牌面，后续可以对界面进行升级。有点过于简单了，可当作一个初级的VB.NET编程例子吧。

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 删除指定类型文件，用户选择电脑中指定路径下的文件类型后，可删除该目录下所有此类型的文件。