VB NET版 五子棋游戏

vb 判断经历多少个工作日，在两个日期选择器中选择日期值，然后判断选定的两个日期之间相差了多少天，判断两个定点之间的天数，比较基础，但也很有必要学习，时间和日期计算在很多软件中都要用到，这个例子相对简单些。大致代码： 　　If IsDate(Text1) = True And IsDate(Text2) = True Then 　　 Dim i As Integer 　　 i = gongzuori(CDate(Text1), CDate(Text2)) 　　 Label3.Caption = "经历" & i & "个工作日" 　　Else 　　 MsgBox "请输入日期型" 　　End If

VB6 屏幕滚动字幕，这个文字滚动区域被控制在屏幕的右下角，由右向左开始滚动，中间的高度可以调节，通过调节Me.Top = Screen.Height - Me.Height - 800参数，来改变文字滚动区域距离屏幕顶部的距离，文字滚动的实现是基于计时器和循环来实现，下面的代码可为你提供本效果的实现思路： 　　Label1.Caption = "这里定义需要滚动的文字内容： 用VB制作的文字滚动效果！" 　　Me.Left = Screen.Width 　　Me.Top = Screen.Height - Me.Height - 800 　　BeginPath Me.hWnd 　　SetBkMode Me.hWnd, TRANSPARENT 　　EndPath Me.hWnd 　　rgn = PathToRegion(Me.hWnd) 　　SetWindowRgn Me.hWnd, rgn, True 　　Timer1.Interval = 200 　　Timer1.Enabled = True 　　End Sub 　　Private Sub Timer1_Timer() 　　 Me.Left = Me.Left - 100 　　 If Me.Left < Label1.Width * (-1) Then 　　 Timer1.Enabled = False 　　 Me.Left = Screen.Width 　　 Timer1.Enabled = True 　　 End If 　　End Sub

VB 石头剪刀布猜拳游戏，游戏操作方法：在窗体左下方的石头、剪子、布图标中，单击用户想要出的一种手势，电脑会自动给出该手势，任一方赢了都会给出相应提示图片信息。游戏结果判定逻辑： 　　将用户和计算机所选的图片的序号合成一个字符串，根据这个字符串判断用户的输赢 　　00 石头对石头 重来 　　01 石头对剪子 用户赢 　　02 石头对布 用户输 　　10 剪子对石头 用户输 　　11 剪子对剪子 重来 　　12 剪子对布 用户赢 　　20 布对石头 用户赢 　　21 布对剪子 用户输 　　22 布对布 重来

VB 6.0 过程引用传递参数，显示传递前和传递后的参数值： 　　Private Sub mysub(ByRef i As Integer) 　　 i = 100 　　End Sub 　　Private Sub Form_Resize() 　　 Dim num As Integer 　　 num = 1 　　 Print "传递前:" & num 　　 Call mysub(num) 　　 Print "传递后:" & num 　　End Sub

VB演示分割文件与合并文件，这里使用到比较多的文件操作函数，比如FileToSplit、FileLen、UBound、FileCount、FileInfo等。本范例文件分割的思路：程序通过调用FreeFile函数来取得可以的文件号，以二进制的方式打开文件，根据文件的长度FilesLen和每个分割单位的比较，得出被分割之后的子文件个数，重新定义最后一个子文件的大小，将所取得的内容，分别存储到各个子文件中，将文件分割情况，存储到自定义的结构类型FileInfoFile中，最后将文件分割的情况，存入到模版文件中。 　　关于文件合并，则可看作是上述的逆过程，不再详述，请参见源码中的文件注释。

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

vb捕获键盘按键和鼠标坐标位置，监测鼠标的位置和鼠标按键的名称，如窗体所示，随意移动鼠标，即可适时显示出鼠标坐标，若敲击键盘，则会获取到哪一个键被按下，两个功能的代码写在按钮事件中，获取鼠标XY坐标位置： 　　Me.Label3.Text = "x=" + e.X.ToString() + " y=" + e.Y.ToString() 　　获取键盘按下： 　　Me.Label4.Text = "code=" + e.KeyCode.ToString() + " value=" + e.KeyValue.ToString()

VB.NET 人事管理系统 SQLSERVER版，这个系统主要是练习VB.NET与数据库方面的操作，功能不复杂，包括了启动窗口界面、系统设置、添加用户、修改密码、重新登录、员工档案管理、查询员工档案、员工档案报表、编辑考勤信息、考勤信息报表、查查找员工评价、工作评价报表、编辑员工调动、员工调动报表、编辑员工工资、查找员工工资、系统帮助、工资管理模块等。在软件启动时，有一个启动窗口效果，带渐变的动画。

VB6 获取当前打开窗口数量，如何获取当前打开窗口数量，本示例打开一个窗口后，在测试时会打开另外一个窗口，然后主窗口中会统计到这个打开的窗口，把当前打开窗口的数量填入文本框中。本程序可学习一下DoEvents()的用法。调用新窗口显示可参考以下代码： 　　Private Sub Command1_Click() 　　 Form2.Show 　　 Call Form_Activate 　　End Sub 　　Private Sub Form_Activate() 　　 Text1.Text = DoEvents() 　　End Sub

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