| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 373 人关注过本帖, 1 人收藏
标题:请 帮帮我吧 我现在使用 很急
只看楼主 加入收藏
tanhatohti
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2012-10-10
结帖率:0
收藏(1)
已结贴  问题点数:20 回复次数:4 
请 帮帮我吧 我现在使用 很急

我 想 在 text 中 输入 文件名 比如:D:\Program Files   然后 点击 “打开” 按钮  就打开text框中指定的文件打开
   [attach]65396[/attach]
  代码怎么写的?


[ 本帖最后由 tanhatohti 于 2012-10-10 21:16 编辑 ]
2012-10-10 20:48
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:5 

不要選我當版主
2012-10-11 01:15
曙光电子
Rank: 3Rank: 3
等 级:论坛游侠
威 望:2
帖 子:85
专家分:160
注 册:2012-6-9
收藏
得分:5 
打开什么文件?给你个程序参考一下!
播放器源码.rar (7.82 KB)
2012-10-12 21:51
zhujianlin
Rank: 4
等 级:业余侠客
帖 子:66
专家分:247
注 册:2012-6-22
收藏
得分:5 
你有必要把后缀改为”.bat“。
2012-10-15 10:54
爱神的箭
Rank: 2
等 级:论坛游民
威 望:1
帖 子:24
专家分:35
注 册:2012-10-14
收藏
得分:5 
网上找的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 Command1_Click()
Dim FileName As String
FileName =text1.text
ShellExecute Me.hwnd, vbNullString, FileName, vbNullString, vbNullString, 1
End Sub

人生无非是笑笑人家,再让人家笑笑而已~
2012-10-15 14:36
快速回复:请 帮帮我吧 我现在使用 很急
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016926 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved