VB编写的一个很简单的屏保实例，运行时，注意设置FRm_run为运行窗口。

通过VB或VBA，介绍了几种控制从网页数据上下载数据，及按要求发送数据或指令的方法。

相机的打开识别，ROI区域的绘制等源程序代码，适用于锂电池的视觉检测识别，用作点定位的练习案例

能产生机器码，根据机器码产生注册码。算法及有关窗口变量自己修改，只是用于VB原程序注册之参考用。

这是一些关于vb.net课程中的一些函数，里面有关于这些函数的使用方法及应用。

VB程序窗口调整 控件按比例缩放代码,非常有用,让程序最大化后不那么难看了

VB6.0软件注册的一个应用，本序列号生成器需要在您的程序读取用户的硬件编号，如硬盘序列号，然后您再根据用户的硬件编号生成25位数字序列号.用这种方法生成的注册码是唯一的，不容易被破解，不过在盗版盛行的中国，这一方法虽可以避免，但不是绝对，要想写出不被破解的软件注册体系，你当然要从这些常用的软件注册码生成方法中去学习，去研究，因此本代码仅供参考。 　　序列号: (可以使用ctrl v 在第一输入框种粘贴),序列号是本产品的唯一注册码，请妥善保存好。如果您重新安装本产品后将仍会用到这个注册码. 　　使用帮助，单击每一项目的提示按钮，将显示改功能的相应解释说明.左边的蓝色按钮是生成相应序列号的功能按钮.

支持超大文件发送，。智能处理重叠的文件名。。。有源码，供VB爱好者学习、

用VB编写的简单汉诺塔程序 Private Sub cmdStart_Click() n = Int(Text1.Text) ReDim Data(1 To n, 1 To 3) For i = 1 To n For j = 1 To 3 Data(i, j) = 0 Next j Next i For i = 1 To n Data(i, 1) = i Next i ColNow = 1 SelNum = 0 Call ShowPic End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp If SelNum = 0 Then SelNum = Data(1, ColNow): Call Pop Case vbKeyDown If SelNum <> 0 Then If Push = True Then SelNum = 0 If Data(n, 3) = n Then Call ShowPic: MsgBox "恭喜你通过！", vbOKOnly, "Pass" End If Case vbKeyLeft ColNow = ColNow - 1 If ColNow < 1 Then ColNow = 1 Case vbKeyRight ColNow = ColNow + 1 If ColNow > 3 Then ColNow = 3 End Select Call ShowPic End Sub

简单的正三角 倒三角 图形 生成程序