当前位置 > vb编程实例讲解vb编程实例讲解详解
-
求一个简单vb编程实例
控件:image,picture,timer代码:Dim x As Integer Dim y As IntegerPrivate Sub Form_Load() x = 100 y = 100 Timer1.Interval = 100 End SubPrivate Sub Timer1_Timer() If ***.Top >= pic.Height img.Height Then y = 100 End If If ***.Top <= 0 Then y = 100 End If If img.Left >= pic.Width img...
2024-08-27 网络 更多内容 986 ℃ 941 -
vb编程实例
Private Sub Form_Click() Form1.Width = 13000 Dim i As Integer, j As Integer Cls Print Print "***************九九乘法表****************...
2024-08-27 网络 更多内容 139 ℃ 380 -
求一个简单vb编程实例
控件:image,picture,timer代码:Dim x As Integer Dim y As IntegerPrivate Sub Form_Load() x = 100 y = 100 Timer1.Interval = 100 End SubPrivate Sub Timer1_Timer() If ***.Top >= pic.Height img.Height Then y = 100 End If If ***.Top <= 0 Then y = 100 End If If img.Left >= pic.Width img...
2024-08-27 网络 更多内容 579 ℃ 69 -
VB与串行通信编程实例
代码如下: Private Sub Command1_Click() MSComm1.Output = "123456" End Sub Private Sub Form_Load() MSComm1.PortOpen = True MSComm1.RThreshold = 1 MSComm1.SThreshold = 1 MSComm1.InputMode = comInputModeText Text1 = "" End Sub Priv...
2024-08-27 网络 更多内容 862 ℃ 419 -
VB与串行通信编程实例
代码如下: Private Sub Command1_Click() MSComm1.Output = "123456" End Sub Private Sub Form_Load() MSComm1.PortOpen = True MSComm1.RThreshold = 1 MSComm1.SThreshold = 1 MSComm1.InputMode = comInputModeText Text1 = "" End Su...
2024-08-27 网络 更多内容 432 ℃ 861 -
vb编程实例
Static s As Integer s 是静态变量,过程结束后,数据依然存在,且值保持原来不变 一开始s=0 m(1),走入Function,时,n=1 ,循环一次(加上一个1),s=1,m(1)=1 m(2),走入Function,时,s=1(值保持原来1不变),n=2 ,循环2次(加上2个1),s=3,m(2)=3 m(3),走入Function,时,s=3(值保持原来3不变),,n=3 ,循环...
2024-08-27 网络 更多内容 381 ℃ 366 -
vb编程例题
题目好像不全。以下的程序是实现这样的功能:用随机函数产生10个50以内(包括50)的随机整数存入一维数组,从键盘上输入一个数,在数组中查找这样的数,最后返回查找结果:在数组的第几个元素中找到,或是未找到这样的数。Private Sub Command1_Click() D...
2024-08-27 网络 更多内容 740 ℃ 258 -
vb6.0编程实例 最好是绘图的
最简单的画图代码,鼠标按下就画图:Dim i As BooleanPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)i = TrueEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Not i Then Me.CurrentX = X Me...
2024-08-27 网络 更多内容 509 ℃ 181 -
VB 编程!
先从工程菜单中引用Microsoft Scripting Runtime Private Sub Command1_Click() Dim FS As FileSystemObject Set FS = New FileSystemObject '如果存在文件则删除 If FS.FileExists("C:\Test.txt") Then FS.DeleteFile ("C:\Test.txt") '创建文件 FS...
2024-08-27 网络 更多内容 285 ℃ 400 -
求简单的vb入门编程实例教程
http://www.***.cn/eschool/video/vb/ 我认为这是最好的教程了,很全面也很具体,要是有耐心的话,学上它一年就能出师咯,如果有白屏,就给我发个邮件,我给你它的下载器。 tenghao1995@163.com
2024-08-27 网络 更多内容 179 ℃ 300
- 08-27vb教程编程实例详解
- 08-27vb编程实例速成150例
- 08-27vb编程基础篇
- 08-27vb语言编程实例
- 08-27vb程序编程
- 08-27vb编程基本步骤
- 08-27vb编程视频教学视频
- 08-27vb编程从入门到精通教程
- 08-27vb编程代码100例
- 08-27vb代码编程实例
- 新的内容