vb6.0 字节数组和字符串的相互转换

VB 将小写数字金额格式化为大写金额，这一个相比其它的金额数字转换，是自动转换，用户输入完小写数字金额后，程序将自动把小写数字变为大写，不过奇怪的是，在代码中并没有发现转换功能写在哪里，看到有数据库，莫非大写字符都存储于数据库吗？本例最终的运行效果如下图所示，用户在金额（大写）处输入小写的数字，可以输入小数点，然后单击其它空白处，程序会自动将小写金额转换成大写状态。

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

VB在数据库端禁止录入重复数据，对插入的数据进行判断，在写入数据库时进行判断是否已经存在于数据库中，判断是基于数据库的，数据库采用的是Access，在数据库端进行重复数据判断： 　　rs1.Open "select * from 客户类别表 where 客户类别= + Text1(0) + _ 　　 ", Cnn, adOpenKeyset, adLockOptimistic 　　If rs1.RecordCount > 0 And Text1(0) DataGrid1.Columns(0) Then 　　 MsgBox "此记录已存在！", , "提示窗口" 　　Else 　　 Cnn.Execute ("update 客户类别表 set 客户类别 = + Text1(0) + ,备注= + Text1(1) + _ 　　 ,修改日期= + Str(Date) + where 客户类别= + DataGrid1.Columns(0) + ") 　　 Adodc1.Refresh 　　 tlbState Toolbar1, False 　　 Text1(0).Locked = True: Text1(1).Locked = True 　　End If

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

VB 以流的方式打开文本文件，创建FileSystemObject MyFSO对象，创建TextStream对象，然后使用对象GetFile文件，最后使用对象OpenAsTextStream读取流文件，具体用法，可参见以下代码： 　　Private Sub Form_Load() 　　 Dim MyFSO As New FileSystemObject 　　 Dim MyFile As File 　　 Dim MyTS As TextStream 　　 Set MyFile = MyFSO.GetFile(App.Path & "MyFile.txt") 　　 Set MyTS = MyFile.OpenAsTextStream(ForReading) 　　 Text1.Text = MyTS.ReadAll 　　 MyTS.Close 　　End Sub 　　完整的可编译实例，请下载源码包。

一个实现图像的旋转效果实例，由VB6.0编写，前几年的源码，本程序实现图片的逆时针旋转90度，单击窗口中的按钮即可实现旋转功能，这部分代码，可参考如下代码： 　　逆时针旋转90度 　　Private Sub Command2_Click() 　　 For j = 0 To h Step 1 　　 For i = 0 To w Step 1 　　 BitBlt Picture2.hDC, i, j, 1, 1, Me.Picture1.hDC, j, i, srCopy 　　 Next i 　　 Next j 　　End Sub

VB.net与OMRON CP系列PLC通讯，截图是辅助程序：FCS校验计算器的运行效果，与PLC通讯的实例在PLC-PC文件夹下，源码在VB.NET环境编译。 　　LBIndustrialCtrls.dll放在debug目录中，与exe文件同级。

vb捕获键盘按键和鼠标坐标位置，监测鼠标的位置和鼠标按键的名称，如窗体所示，随意移动鼠标，即可适时显示出鼠标坐标，若敲击键盘，则会获取到哪一个键被按下，两个功能的代码写在按钮事件中，获取鼠标XY坐标位置： 　　Me.Label3.Text = "x=" + e.X.ToString() + " y=" + e.Y.ToString() 　　获取键盘按下： 　　Me.Label4.Text = "code=" + e.KeyCode.ToString() + " value=" + e.KeyValue.ToString()

VB6 给窗体添加滚动条，调整水平滚动条的一些属性。当窗体的大小发生变化时发生，垂直滚动条与窗体相对位置不变，滚动条的大小随着窗体大小的改变而改变，命令按钮作水平滚动条与垂直滚动条交接处的填充。 　　因代码注释较多，详细代码情况请您下载本源码包，自行解压查看。

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 　　此段代码被封装在按钮事件中，请参见源代码文件。