VB演示操作存储过程的方法

一款基于VB开发的药品管理程序，数据库采用SqlServer，运行之前首先在SQL查询分析器里执行SQL目录下的myMedsys.sql脚本.大家可根据源程序代码自行扩展程序，二次开发完善。

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

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

vb 拉霸游戏，这个游戏我没玩过，玩上去像是抽奖的游戏，有个杠杆可以搬动，搬动后左边的数字滚轮会不停的变化，右边可以设置难度等级，同时这个游戏的窗口也是很特别的，采用不规划的椭圆形，在设计创建不规则的VB窗口时，本源码中的窗口编写技巧也是可以用上的，本游戏是由国外源码改写，在VB6.0环境下可直接编译运行。

VB6.0演示一个求解数学问题，求两个数最大公约数，这是个简单的数学问题，数学基础好，用VB很轻松就编写出本程序了。在运行的窗口中，分别输入两个整数，单击按钮，程序将显示两个数的最大公约数是多少。求解的过程代码描述如下： 　　If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) > 2147483647 Or Val(Text2.Text) > 2147483647 Then 　　 MsgBox "输入的数0或溢出，请重新输入！" 　　 MsgBox "输入的数0或溢出,请重新输入!", vbInformation + vbOKOnly, "数据错误" 　　 Text1.Text = "" 　　 Text2.Text = "" 　　 Text1.SetFocus 　　Else 　　 m = Val(Text1.Text) 　　 n = Val(Text2.Text) 　　If m < n Then 　　 temp = m: m = n: n = temp 　　End If 　　Do 　　 r = m Mod n 　　 m = n 　　 n = r 　　Loop While r 0 　　Label3.Caption = "两个正整数m和n的最大公约数为: " & m 　　End If

VB.NET编写支持发送附件的邮件发送实例，本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类，这里使用了SmtpClient 类发送电子邮件，可设置允许添加的附件类型，支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式，为了避免程序出错，在本程序刚启动时，帐号、密码框暂时不可用。

一个使用Winsock控件的VB典型范例，架构为CS结构，由服务端和客户端组成，两者都运行后，可互通消息。调试步骤： 　　1）打开服务器端的“工程1.dsw”工程 　　2）点击运行按钮。 　　1）打开客户端的“工程1.dsw”工程 　　2）点击运行按钮。 　　3）此时服务器端和客户端已经建立连接 　　4）在服务器和客户端分别输入任何内容，另一端将会收到该内容并显示出来。 　　说明：必须先运行服务器端工程，再运行客户端工程。

VB 类似超级兔子的程序界面，这只是一个应用程序的界面效果，不包括界面菜单中的功能，因此对界面UI的美化可以参考。这个界面是使用BMP贴图的方式实现，整个窗口就是一张图片，但是经过了处理，添加了菜单，其实挺简单的，当时用在一个手机维修管理系统中了，现在发上来，不知道对大家是否有用？

VB的保存文件对话框调用创建一例，弹出“打开”对话框，还有保存对话框，另存为对话框，通用对话框，cdlOFNFileMustExist当用户输入非法的文件名时,要显示一个警告。 　　cdlOFNReadOnly指示对话框关闭时只读复选框的状态。。

VB 6.0 将数组中的数据利用图表分析,也就是用柱状图来显示数组中的数据,所有的操作都是从点击按钮开始的,如下代码: 　　Private Sub Form_Load() 　　Dim i 　　i = Array(1, 2, 3, 4, 5, 6, 7) 　　Dim j 　　For j = 0 To UBound(i) 　　 With MSChart1 　　 .RowCount = UBound(i) + 1 　　 .Row = j + 1 　　 .ColumnCount = 1 　　 .Data = i(j) 　　 .RowLabel = i(j) 　　 End With 　　Next j 　　End Sub