VB怎么实现在文本框输入文件名“文件1”,点击“打开”按钮,就调用“程序1”打开D:\下的“文件1”
展开全部
Private Sub Command1_Click()
'可以自行加入判断程序1和文件1是否存在的语句,如下:
'If Dir(app.path & "程序1.exe")="" or Dir("D:\" & Trim(Text1.Text))="" Then Msgbox "文件不存在!"
Shell "程序1.exe " & Trim(Text1.text),vbNormal
End Sub
'可以自行加入判断程序1和文件1是否存在的语句,如下:
'If Dir(app.path & "程序1.exe")="" or Dir("D:\" & Trim(Text1.Text))="" Then Msgbox "文件不存在!"
Shell "程序1.exe " & Trim(Text1.text),vbNormal
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub File1_Click()
Open File1.Path & "\" & File1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, temp
str1 = str1 & temp & vbCrLf
Loop
Close #1
Text1.Text = str1
End Sub
Open File1.Path & "\" & File1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, temp
str1 = str1 & temp & vbCrLf
Loop
Close #1
Text1.Text = str1
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
“文件1”,是什么格式的文件?打开后显示出来吗?
比如说是个文本文件,打开后直接读出来显示在文本框里。
另外,“文件1”的路径就是"D:\" 吗?
比如说是个文本文件,打开后直接读出来显示在文本框里。
另外,“文件1”的路径就是"D:\" 吗?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询