
谁帮我编一段VB小程序,只要是学过VB的就会
本人希望在一个窗体上点击一个命令按钮,便打开这个窗体所在的文件夹例如:我已经生成的VB工程“张.exe”保存在“C:/a/张.exe”我希望运行"张.exe"后点击里面的...
本人希望在一个窗体上点击一个命令按钮,便打开这个窗体所在的文件夹
例如:我已经生成的VB工程“张.exe”
保存在“C:/a/张.exe”
我希望运行"张.exe"后点击里面的一个按钮,就打开“C:/a”这个文件夹
不难吧?
做好后请发至本人邮箱:zhangdongshan0612@163.com
请注明您的百度名称,谢谢
对
我要随文件的位置变化而变化的哦
已发的朋友
我要去学校了
下午看,可以的话就接你了 展开
例如:我已经生成的VB工程“张.exe”
保存在“C:/a/张.exe”
我希望运行"张.exe"后点击里面的一个按钮,就打开“C:/a”这个文件夹
不难吧?
做好后请发至本人邮箱:zhangdongshan0612@163.com
请注明您的百度名称,谢谢
对
我要随文件的位置变化而变化的哦
已发的朋友
我要去学校了
下午看,可以的话就接你了 展开
展开全部
第一个解决方案是调用VB内部命令SHELL进行打开!
Option Explicit
Private Sub Command1_Click()
Shell "explorer.exe C:/a", vbNormalFocus
End Sub
第二个解决方案是调用API函数
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command4_Click() '打开 "C:\Windows"
ShellExecute Me.hwnd, "open", "C:\a", "", App.Path, 1
End Sub
Option Explicit
Private Sub Command1_Click()
Shell "explorer.exe C:/a", vbNormalFocus
End Sub
第二个解决方案是调用API函数
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command4_Click() '打开 "C:\Windows"
ShellExecute Me.hwnd, "open", "C:\a", "", App.Path, 1
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
楼上的只能打开C:/a,不能随文件移动而移动
Private Sub Command1_Click()
Shell "explorer.exe " & App.Path, 1
End Sub
已发送
Private Sub Command1_Click()
Shell "explorer.exe " & App.Path, 1
End Sub
已发送
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
ShellExecute 0,"Open",app.path & "","","",vbNormalFocus
或者
shellexecute me.hwnd,"Open",app.path,vbnullstring,vbnullstring,SW_SHOWNORMAL
或者
shellexecute me.hwnd,"Open",app.path,vbnullstring,vbnullstring,SW_SHOWNORMAL
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
早没有环境了。用记事本写很麻烦。不要意思,2分拿走了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询