VB.NET将任意图像文件设置为鼠标形状

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

VB6.0 代码演示如何计算加权平均值，计算加权平均值可编写以下代码实现： 　　Private Sub Command1_Click() 　　 Text7.Text = jiaquan(Text1, Text2, Text3, Text4, Text5, Text6) 　　End Sub 　　Private Function jiaquan(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer) 　　 Dim sum As Integer 　　 sum = (a * b + c * d + e * f) / (b + d + f) 　　 sum = Round(sum, 2) 　　 jiaquan = sum 　　End Function

vb.net vs2008读取INI文件示例，ini文件名为 Send.ini，代码中包括了一个读ini API函数。 　　Ini文件说明： 　　[节名] []中的节名对应此API的第一参数 　　Name=内容 Name对应此API的第二参数 　　API的第三参数是没有取到匹配内容时返回的字符串; 　　API的第四参数是要返回的字符串; 　　API的第五参数是字符串缓冲的长度，一般255; 　　API的第六参数是INI文件的路径。

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

VB OutLook式主界面菜单，可折叠和展开，类似WindowsXP的界面左侧菜单，如示例图所示，本示例菜单效果请看左侧的图文式菜单，鼠标单击后可向下滑开，显示出二级的图文菜单，再次单击则合拢菜单。以前这种菜单在微软Windows的OutLook中使用，本源码是仿写的这种菜单。

vb.net绘制生成曲线，数据从access数据库中读取，然后将数据进行简要处理后，传送给曲线生成函数，生成适时的数据曲线。 　　请注意：vb.net里PICTURE只支持像素，长度比较大，需要乘除定义精确值，8当余数为1,则刚好够总长度,否则需要判断长度，计算出坐标,画图，如果要设置数值或日期的显示格可以设置Format属性，例如： .Format = "￥0.00"。

VB 使用DataGrid显示书名数据表，这个例子相当简单，主要是学习在VB编程中如何使用DataGrid数据网格控件，将数据库内容读取出来，然后绑定到DataGrid表格中显示： 　　Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=book" 　　Adodc1.RecordSource = "select * from 书名" 　　Set DataGrid1.DataSource = Adodc1 　　DataGrid1.Columns(3).NumberFormat = "$0.00" 　　DataGrid1.Columns(4).NumberFormat = "$0.00" 　　End Sub

网络五子棋游戏源码之客户大厅和服务器 VB编的

VB.NET API函数示例，使用VB api函数画线条的一个例子，如图所示的效果中，鼠标单击两端，即可画出一条直线，主要是学习使用VB.NET中的API画图函数用法。示例运行效果请参见截图所示，本页提供该实例的源码下载。

VB 设置随机访问文件的读取位置，本例中是使用Seek语句来设置随机访问文件的读取位置，代码编写方面，主要是掌握Seek的用法，以下代码将用户的单击行为作为触发Seek的事件条件： 　　Private Sub Command1_Click() 　　 Dim str As String * 10 　　 Open App.Path & "MyFile.txt" For Binary As #1 　　 Seek #1, 5 　　 Get #1, , str 　　 Text1.Text = str 　　 Close #1 　　End Sub 　　当用户单击按钮后，执行seek语句。