vb程序源代码

vb程序源代码,第1张

曲柄滑块机构slider-crank mechanism

曲柄和滑块来实现转动和移动相互转换的平面连杆机构,也称曲柄连杆机构。

VB程序代码:

Public Status, Status2 As Integer, tmp, tmp2 As Single

Private Sub Command1_Click(Index As Integer)

If Text1 = "0" Then

Text1 = ""

Dim i, j As Integer

Select Case Index

Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9

If Status <>0 And Status2 = 1

Then tmp = Text1

If Status <>0 Then

Text1 = ""

End If

Text1.SetFocus

SendKeys Index, True

If Status = 0 Then tmp = Text1

If Status2 = 1 Then tmp2 = Text1

Debug.Print tmptmp2StatusStatus2vbCrLf

我也是从网上找的,我看了下结构应该没问题。

首先你要有VB 这个软件,注意你还的注意版本的问题,是否与你现有的源代码是否一致,一般来讲VB6.0的大多数.

然后打开你的VB程序,点击文件--打开工程--选择你保存源程序的代码的文件夹,选择工程文件(VBP\VBG文件) ,确定.

现在可以先按F5来试运行,没问题,点击文件---生成XXXXX.EXE --一路下去就OK啦!


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/11200106.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-14
下一篇 2023-05-14

发表评论

登录后才能评论

评论列表(0条)

保存