VB 写的拼图 用数字代表图片

VB 6.0 动态改变图表的比例,改变图表的视图比例,默认是0.7,点击确认按钮后,图表会变大显示,减小数字,图表会紧接着变小.看了下代码,里面就是一行代码搞定: 　　MSChart1.RowLabel = "" 　　不过这个功能还是很实用的,当视图内容比较多的时候,图表显示的比较小,用这个功能可将图表放大显示. 　　MSChart主要用来生成一些简单的图表，包括饼图、曲线图、柱状图等，较复杂的图表就需要借助三方控件了。

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

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

本源码演示VB 6.0 如何将汉字转换为Unicode字符代码，在窗口中输入汉字，单击按钮，即可将汉字转换为Unicode字符，其实这个实现起来也比较简单，用VB内置函数AscW即可实现，代码的编写可参考如下： 　　Private Sub Command1_Click() 　　 Text2.Text = AscW(Text1) 　　End Sub 　　Private Sub Command2_Click() 　　 Unload Me 　　End Sub

用visual studio VB语言编写的学生信息管理系统 WINFORM 数据库采用的是ORACLE 

VB 利用Tag属性存储用户名 　　If Text1.Text = "" Or Text2.Text = "" Then 　　 MsgBox "用户名或密码不能为空", vbCritical, "信息提示" 　　 Exit Sub 　　Else 　　 If Text1.Text = "TSoft" And Text2.Text = "111" Then 　　 Me.Tag = Text1.Text 　　 Frm_Main.Show 1 　　 Unload Me 　　 Else 　　 MsgBox "输入的名户名或密码不正确", vbCritical, "信息提示" 　　 End If 　　End If

VB利用地址偏移访问内存，整个处理过程 封装在事件函数中，用户单击后，执行以下代码： 　　Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) 　　Private Sub Form_Load() 　　 Dim i As Long 　　 Dim j As Long 　　 i = 1234 　　 j = 4321 　　 Debug.Print VarPtr(i) 　　 Debug.Print VarPtr(j) 　　 CopyMemory ByVal VarPtr(i), ByVal VarPtr(i) - 4, 4 　　 Text1.Text = i 　　End Sub

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

VB实现子窗体跟随主窗体自动移动，这个窗体的形式，相信大家也见到过，就像一些播放器的子窗口，当拖动主窗体的时候，子窗体会跟着移动，紧紧贴服，自动跟随，好像是主窗口带有磁性一样。 　　测试时，请在主窗口中单击“打开跟随窗体”后，会显示子窗口，此时拖动父窗口，即可看到效果。

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 　　完整的可编译实例，请下载源码包。