| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1726 人关注过本帖, 1 人收藏
标题:请教:如何在VB的按钮控件中,调用.exe文件?
只看楼主 加入收藏
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
我hwnd一直用的是me.hwnd
2008-06-15 12:17
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
收藏
得分:0 
要是在标准模块中调用那怎么办呢?
2008-06-15 12:24
fantasy_spz
Rank: 1
等 级:新手上路
帖 子:55
专家分:0
注 册:2006-8-21
收藏
得分:0 
调用文本已经搞定,我用的是:
Shell "NotePad.EXE " & App.Path & "\para_inwave.txt", vbNormalFocus
2008-06-16 11:45
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
shell
2008-06-17 09:23
frankxq
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2008-7-3
收藏
得分:0 
你要的是不是一开机自动运行.exe啊?请看下面开机自动运行代码

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''模塊
'Modul31
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public Const HKEY_CURRENT_USER = &H80000001

Public Const REG_SZ = 1

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''from
程序說明:
    要使程序每次啟動時自動運行可以在注冊表文件
'
  ﹛HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run寫入啟動信息,這樣在Windows每次啟動時都會自動運行
'
  ﹛使用 RegCreateKey 取的HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run 的 hKey 的值既你所名的名稱
'
  ﹛使用 RegSetValueEx 在 hKey 下寫入一個以"我的記事本"作為名,以 "Notepad.exe"作為值的啟動
'
所有控件:
'
'Command1
'Command2
'
程序代碼:

'Form1
Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command1_Click()
Dim SubKey As String
Dim Exe As String
Dim hKey As Long

SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
Exe = "Notepad.exe" '你所要啟動的項目
RegCreateKey HKEY_CURRENT_USER, SubKey, hKey

RegSetValueEx hKey, "我的記事本", 0, REG_SZ, ByVal Exe, LenB(StrConv(Exe, vbFromUnicode)) + 1

RegCloseKey hKey


End Sub
2008-07-03 21:32
快速回复:请教:如何在VB的按钮控件中,调用.exe文件?
数据加载中...
 
   



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

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