VB6.0演示的AutoSize实例

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.NET 小型家庭理财记帐系统源代码，功能模块：文件、导入导出、操作、查询、删除、修改、关于软件、经手人、项目、收支类型等的管理。本程序感觉重点在数据库部分的设计 ，里面对帐务明细的查询功能，对于熟悉VB.NET与数据库的各种操作十分有帮助。本财务管理系统的数据库为SQLSERVER，为了确保本程序正常运行，请在运行前附加Database数据库到你的SQLSERVER中，并连接好数据库字符串，需要修改Module1.vb文件。

VB模拟输入的成绩判断奖学金等级，测试前请输入学生的三门功课的成绩，输入成绩后，程序会根据预设的判定一、二、三等奖学金的条件，来判断该同学成绩应该属于几等奖学金。 　　这类程序其实容易实现，中间的一些小技巧我觉得不错，比如当用户输入一科成绩后，光标自动定位到下一个文本框，如果需要用户输入内容比较多的时候，这个功能可大大提升用户体验。 　　更多源码细节请下载查看。

VB 演示创建视图 以及使用视图保存数据，数据库选择了MSSQL，根据各数据库字段创建视图，并使用这个视图进行数据保存，测试前请确保数据库连接成功。

VB Windows操作监视程序，一个 Windows的文件目录操作即时监视程序，可以监视在Explore中的重命名、新建、删除文件或目录；改变文件关联；插入、取出CD和添加删除网络共享都可以被该程序记录下来。源程序来源于国外，注释英文。运行界面效果如图所示。当有文件操作时，在程序运行窗口中会有所提示。

vb 判断字符串是否为日期或时间，在输入框输入任意字符串类型，程序将会判断出该字符串是否是时间字符串，这个判断方法VB员自带有函数，使用IsDate即可实现，下面是使用IsDate的简单用法示例： 　　If IsDate(Text1) = True Then 　　 Text2.Text = "是日期" 　　Else 　　 Text2.Text = "不是日期" 　　End If 　　您也可以在本页下载完整的源码实例。

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

vb利用数据窗口辅助录入数据，也就是本程序窗口中，生成了一些数据辅助窗口，可对用户的录入工作提供一些帮助，其实就是一些供用户选择的组件之类的，用户了用户，又提升了数据录入的准确性，在VB6.0中，本源码可顺利编译成功，运行后如示例图所示。

VB Socket获取主机名和IP地址，获取主机名是使用了VB中的GetComputerName直接得到，然后对Socket初始化，使用gethostbyname取得主机地址，再获取到IP后进行转化为标准的IP格式。转换过程如下： 　　RtlMoveMemory host, hostent_addr, LenB(host) 　　RtlMoveMemory hostip_addr, host.hAddrList, 4 　　ReDim temp_ip_address(1 To host.hLength) 　　RtlMoveMemory temp_ip_address(1), hostip_addr, host.hLength 　　For i = 1 To host.hLength 　　 ip_address = ip_address & temp_ip_address(i) & "." 　　Next i 　　ip_address = Mid$(ip_address, 1, Len(ip_address) - 1) 　　MsgBox "IP:" + ip_address

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显示信息，更多内容请下载源码。