VB SetWindowLong限制调整窗口大小的最大值

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 net 模拟考试系统,本考试时间为30分钟，系统会进行倒计时。你必须正确输入你所在班级、姓名和学号，交卷后不能再考，即时间未到不要急于点""交卷""！点击""确定""进入考试系统。本考试系统的窗口只允许打开一个，程序会判断窗体是否已经打开，如果已经打开，则不需要重复打开，只是显示。 　　程序正常运行需要SQL数据库，请在测试前附加并连接好。

VB使用Microsoft Agent控件制作的软件助手动画，软件助手这个相信大家都熟悉吧，最早的Office里面，就有一个大眼睛小助手，不过感觉这个小助手似乎并没有赢得大家的喜爱。本程序就是调用Windows中固有的Agent控件够实现一个简单的小助手，为制作同类程序的VB开发者提供参考。 　　注：我测试失败了，我的系统是Widows7，当时这个程序是面向Windows XP的。

文件夹复制VB6.0实例源码，这里用了一个用户自定义函数，此函数可以出现一个对话框，并返回所选择的路径，若没有选择返回("")。模拟了Windows系统的文件夹模拟功能，看上去比较低级，只是通过这个功能，熟悉一些VB与文件操作的函数用法。

VB.NET自制图片查看器，一个看图工具软件，功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧，另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置，重画图片、绘图画面，颜色填充、窗体界面元素控制等的控制方法。。

VB6为菜单制作添加分割线，在菜单项与菜单项之间显示一个分隔线，这个在Windows经典风格的窗口中，十分常见，像一个水平线那样，把菜单分成多个部分，这个水平线带有阴影效果，视觉效果更立体。 　　本窗口中的菜单，是一个企业综合管理系统的主界面面板，那些菜单都是测试用的，你可以看一下菜单中的分隔线是如何嵌入到菜单中的。

VB编写的倒计时程序，测试时，请输入目标日期与时间，格式如演示截图中所示，然后按下“倒计时”按钮，即可开始倒计时了，会显示出具体剩余的天数和时、分、秒。程序主要基于CDate函数和DateDiff函数来实现，主要代码如下： 　　Private Sub Timer1_Timer() 　　 On Error GoTo H 　　 Timer1.Interval = 1000 　　 Dim i As Date 　　 i = CDate(Text1) 　　 Label1.Caption = "距离" & Text1 & "还剩" & DateDiff("d", Now, i) & "天" & CLng(DateDiff("h", Now, i)) Mod 24 & "小时" & CLng(DateDiff("n", Now, i)) Mod 60 & "分" & CLng(DateDiff("s", Now, i)) Mod 60 & " 秒" 　　 Exit Sub 　　H: 　　 MsgBox "请输入正确的时间" 　　 Timer1.Enabled = False 　　End Sub

VB.NET 多线程TCP端口扫描工具，使用前请输入要扫描的网段IP和端口，本程序可将扫描到的开放端口数量显示在窗口中，扫描时应用了多线程技术，扫描时显示当前线程数，适时显示扫描进度和扫描时间，以毫秒计时，扫描速度提升了不少。 　　注：本程序仅能扫描开放的端口，被禁止和未开放的端口不能被扫描到。

VB 写的拼图 用数字代表图片，将数字的顺序排列好，就完成了拼图，比起图片版的拼图，要简单多了。 　　玩法：将数字1挪动到最开始的位置，如何移动？要把占位的数字一个一个挪开，依次为1、2、3等数字让位，把整体排序好，就拼好了。

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