VB Val与汉字的相互转化

VB输入限制功能一例：只允许输入汉字，本实例只允许用户输入汉字，如果输入其它类型的字符，程序将不允许输入，且会提醒用户。原理是获取键盘上的ASCII值，并判断是否在中文汉字的范围，若不在，就禁止输入。实现本功能的关键代码，分享给大家： 　　If KeyAscii > 0 And KeyAscii 13 And KeyAscii 8 Then 　　 KeyAscii = 0 　　 MsgBox "只允许输入汉字！", 48, "提示" 　　End If 　　因为是对键盘的控制实现对输入的限制，因此若鼠标复制了一段包含其它字符的文字，则程序无能为力，因为鼠标不在监控范围。

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.NET 人事管理系统 SQLSERVER版，这个系统主要是练习VB.NET与数据库方面的操作，功能不复杂，包括了启动窗口界面、系统设置、添加用户、修改密码、重新登录、员工档案管理、查询员工档案、员工档案报表、编辑考勤信息、考勤信息报表、查查找员工评价、工作评价报表、编辑员工调动、员工调动报表、编辑员工工资、查找员工工资、系统帮助、工资管理模块等。在软件启动时，有一个启动窗口效果，带渐变的动画。

VB 使用DataGrid显示书名数据表，这个例子相当简单，主要是学习在VB编程中如何使用DataGrid数据网格控件，将数据库内容读取出来，然后绑定到DataGrid表格中显示： 　　Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=book" 　　Adodc1.RecordSource = "select * from 书名" 　　Set DataGrid1.DataSource = Adodc1 　　DataGrid1.Columns(3).NumberFormat = "$0.00" 　　DataGrid1.Columns(4).NumberFormat = "$0.00" 　　End Sub

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.net全局错误异常消息的捕获处理，程序运行后故意引发错误，并弹出消息处理框，类似于在VB.NET调试器中显示的错误消息，指出错误原因、错误位置和具体代码，方便程序员对错误及时纠正处理，程序运行效果如图所示。

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

vb 演示如何去除字符串结尾空格，把输入框中的含有空格的字符串，全部过滤掉空格，这个源码似乎有上结简单了，使用RTrim()，一行代码即可搞定： 　　Private Sub Command1_Click() 　　 Text2.Text = RTrim(Text1) 　　End Sub 　　主要是使用了RTrim()函数，这个函数不只是过滤行尾空格，也会将字符串中间空格过滤掉。

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

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