当前位置 > vb6.0编程实例vb6.0编程实例精解

• 

  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-07-24 网络 更多内容 429 ℃ 928
• 

  求一个简单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-07-24 网络 更多内容 485 ℃ 936
• 

  vb编程实例

   Private Sub Form_Click()   Form1.Width = 13000   Dim i As Integer, j As Integer   Cls   Print   Print "***************九九乘法表****************...

  2024-07-24 网络 更多内容 166 ℃ 993
• 

  求一个简单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-07-24 网络 更多内容 265 ℃ 998
• 

  vb6.0编程

  我们知道IE的缓存是一个叫做Cookie的东西,我们能通过IE的工具>Internet选项>设置>查看文件 来找到它们,这时我们看到的文件路径是C:\Documents and Settings\用户名\Local Settings\Temporary Internet Files.那么这些文件真的存放在这里吗?如果你会DO...

  2024-07-24 网络 更多内容 177 ℃ 790
• 

  关于vb6.0基本编程

  '引用Microsoft Scripting Runtime Private Sub Command1_Click()     Dim fso As New FileSystemObject, fil As File     Dim ts As TextStream...

  2024-07-24 网络 更多内容 482 ℃ 827
• 

  VB6.0编程

  Private Sub Command1_Click() On Error Resume Next Dim i As Integer, a As Variant, jg As Integer, bjg As Integer, pj As Single Dim s As Integer a = Array(85, 76, 49, 56, 94, 88, 67, 82, 78, 74) For i = 0 To 9 s = s + a(i) If a(i) >= 60 Then jg = jg + 1 Else bjg = bjg + 1 End If Next pj = s / 10...

  2024-07-24 网络 更多内容 643 ℃ 631
• 

  有关vb6.0语言编程

  你的问题是: 解决办法:使用vc工具spy++你可以清楚的知道到底是button的caption,还 是button上面的图片的文字,应该是图片上面的文字! 2:在网页上面这样的方法是不行的,可以看=一=看IHTMLElement类的资料, (在vb里面好像是不行的,vc可以实现的) 3:findwindow和findwindowex这两个...

  2024-07-24 网络 更多内容 933 ℃ 421
• 

  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-07-24 网络 更多内容 489 ℃ 415
• 

  VB6.0编程代码

  im a(100) 'a()数据 '此处来赋值 Dim b(5) For i = 0 To 99 If a(i) < 6 Then b(0) = b(0) + 1 Else b(Int(a(i) 5)) = b(Int(a(i) 5)) End If Next i Print "<6.00", "66.99", "77.99", "88.99", "99.99" For i = 0 To 4 Print b(i), Next i

  2024-07-24 网络 更多内容 931 ℃ 209