用曲柄和滑块来实现转动和移动相互转换的平面连杆机构,也称曲柄连杆机构。
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啦!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)