UC知道VB编写 谁来看看我的vb代码是那里出错了
来源：百度知道 编辑：UC知道 时间：2024/06/14 00:24:50
Private Sub Command1_Click()
Dim a As Double
Text1.Text = "c:/1.exe"
a = "Text1.Text"
Shell "a"
End Sub
呵呵
我知道了
给你们看看
谢谢了
下面是正确的
我试调过
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Call Shell(a, vbNormalFocus)
End Sub
Private Sub Form_Load()
Text1.Text = "c:\1.exe"
Command1.Caption = "打开"
End Sub
Dim a As Double
Text1.Text = "c:/1.exe"
a = "Text1.Text"
Shell "a"
End Sub
呵呵
我知道了
给你们看看
谢谢了
下面是正确的
我试调过
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Call Shell(a, vbNormalFocus)
End Sub
Private Sub Form_Load()
Text1.Text = "c:\1.exe"
Command1.Caption = "打开"
End Sub
Dim a As String
a = "Text1.Text"
改成
a = Text1.Text
Shell "a"
改成
Shell a
Private Sub Command1_Click()
Dim a As String '把Double改为String
Text1.Text = "c:/1.exe"
a = Text1.Text '去掉双引号
Shell a '去掉双引号
End Sub
Private Sub Command1_Click()
Dim a As String '这里把双精度改为字符串型
Text1.Text = "c:\1.exe" '这里的斜杠错了
a = Text1.Text '这里不用""
Shell a '这里也不用""
End Sub
才 几行代码 错了那么多。。。。
每行都有错，唉！
Private Sub Command1_Click()
Dim a As String '原数据类型错误
Text1.Text = "c:/1.exe"
a = Text1.Text '无双引号才能将文本框内的数据赋值否则a就是"Text1.Text" 了
Shell a '去掉双引号才能运行
End Sub