主题:[原创](急)vb调用flac时,vb界面上的.text参数怎么传给flac的命令流中呢?
vb调用flac时,vb界面上的文本框里.text参数怎么传给flac的命令流中呢?
Private Sub CommandComputer_Click()
EM = Val(TxtE.Text) '土弹性模量
U = Val(TxtU.Text)
end sub
其中:test.dat中用到EM,U
Private Sub Command1_Click()
'定义打开Flac时返回的值
Dim Flac As Long
'在VB中调用Flac3d
Flac = Shell("E:\工具箱\FLAC 3D\flac3d v3.00-251\Flac3d v3.00\f3d300.exe", vbNormalFocus)
SendKeys "{Enter}", True
'调用命令流
SendKeys "call F:\VB\work\test.dat", True
SendKeys "{Enter}", True
end sub
可是计算时,Flac里计算时,说Bad conversion parameters(EM)
怎么使参数传递给test.dat呢?谢谢
Private Sub CommandComputer_Click()
EM = Val(TxtE.Text) '土弹性模量
U = Val(TxtU.Text)
end sub
其中:test.dat中用到EM,U
Private Sub Command1_Click()
'定义打开Flac时返回的值
Dim Flac As Long
'在VB中调用Flac3d
Flac = Shell("E:\工具箱\FLAC 3D\flac3d v3.00-251\Flac3d v3.00\f3d300.exe", vbNormalFocus)
SendKeys "{Enter}", True
'调用命令流
SendKeys "call F:\VB\work\test.dat", True
SendKeys "{Enter}", True
end sub
可是计算时,Flac里计算时,说Bad conversion parameters(EM)
怎么使参数传递给test.dat呢?谢谢