一个新手VB问题，简单的，谁能帮帮我啊？

来源：百度知道 编辑：UC知道 时间：2024/06/10 08:50:20
假如我想写个程序，假设这个程序叫1.exe。程序上有个按钮，这个按钮叫“启动计算器”，我的目的是按了“启动计算器”这个按钮之后，会弹出计算器，计算器我意见准备好了，放在我将要编译出来的1.exe的文件夹里面，叫jsq.exe。我应该如何在“启动计算器”这个按钮设置代码，使按了这个按钮之后会启动

Private Sub Command1_Click()
Select Case Trim(Text3)
Case "+"
Text4 = Text1 + Text2
Case "-"
Text4 = Text1 - Text2
Case "×", "*"
Text4 = Text1 * Text2
Case "/", "÷"
If Val(Trim(Text2)) = 0 Then
MsgBox "分母不能为零，请重新输入": Text2 = "": Text2.SetFocus
Else
Text4 = Text1 / Text2
End If
End Select

End Sub

Private Sub Command2_Click()
End
End Sub

照这些控件做一个试试，这是我们原来做过的题目。

shell app.path+"\jsq.ext"

private sub commandname_click()
openid = shell(app.path&"/jsq.exe","X")
'x 是打开类型.就是窗口的样子.最大,最小.还是默认.
end sub

上面说得不错.