1樓：匿名使用者
option explicit
private declare function getsystemdirectory lib "kernel32" alias "getsystemdirectorya" _
byval lpbuffer as string, byval nsize as long) as long
private declare function getwindowsdirectory lib "kernel32" alias "getwindowsdirectorya" _
byval lpbuffer as string, byval nsize as long) as long
private const max_path = 260
private const max_path1 = 261
private sub command1_click()
dim sysdir as string
dim chrlen as long
dim windir as string
獲得system路徑租敏。
sysdir = space(max_path)
chrlen = getsystemdirectory(sysdir, max_path)
if chrlen > max_path then chrlen = getsystemdirectory(sysdir, chrlen)
sysdir = left(sysdir, chrlen)
獲得windows路徑。
windir = space(max_path)
chrlen = getwindowsdirectory(windir, max_path)
if chrlen > max_path then chrlen = getwindowsdirectory(windir, chrlen)
windir = left(windir, chrlen)
在碧和窗體上顯示system路徑。
system的路徑為： "sysdir
在窗體上顯示windows路徑。
windows的路徑為：悔型盯 " windir
end sub
2樓：匿名使用者
dim tmp_path as string '宣告變數備基。
tmp_path = & 仿氏謹\" 你程式的名字。exe"
msgbox "你的核喊程式路徑在" &tmp_path
3樓：匿名使用者
可惜我學的是三菱的，我記得是要用計數器，把觸發的訊號一一用傳送指令傳送到各個資料暫存器裡簡返，然後就看裡面的數字，來進行判定當前需要進行監控的元件處於什麼狀態了，但有乙個缺點就是要我們吵遊。
自己去換成二進位的數字才能清晰地看到。
不同的產品，同樣的效公升咐銷果，需要的條件也不盡相同)
怎樣用vb獲取exe自身的檔名
4樓：匿名使用者
dim str as string
str = iif(len( >3, &"\" & ".exe", &".exe") str 就是exe檔案的路徑了。
搞這麼複雜是因為當exe檔案在根目錄下的時候， 是帶有「\」不在根目錄下的時候沒有。
vb怎麼獲取程式本身的路徑
5樓：網友
在窗體的 窗體名_load（）即窗體載入。
定義變數 aaa as string
aaa=顯示aaa即可。
aaa程式放在窗體內則表示窗體路徑，放在模組內則表示模組的路徑。
檔案儲存開啟時，檔案路徑 strfile=檔名」+「檔案型別。txt」
6樓：不勝今宵
先建乙個窗體並儲存，然後在**視窗輸入如下**：
private sub form_load()dim path as string
path =
pathend sub
執行程式，窗體名就變成程式的路徑了。
就是用來獲取程式本身的路徑。
如何實現vb.net獲取程式執行路徑
7樓：地嘉
這才是的獲取程式執行路徑的方法。
如何用vb實現:已知 檔名.exe ,如何用一按按鈕實現獲取檔案路徑並且執行程式
8樓：網友
你這說的不是太明白，按鈕是在 已知的exe中的？
想知道別的檔案位置用fileopendialog原來如此，shell & ".exe"
可以執行指定的程式，但是如果沒你寫路徑的話，就有問題了，硬碟中可能有多個檔案，誰知道你要用哪個呀？要是都想執行，就在硬碟中搜尋吧。呵。
如何利用vb實現設定.exe檔案的當前路徑
9樓：匿名使用者
用shellexecute這個api。
public declare function shellexecute lib "" 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
'配敏'''培裂枝'
shellexecute , "open", exepath, "源蠢， ,1
用vb程式設計序實現
隨機數重複的做法 把text1 text3的multiline屬性設定為true dim a 100 as integerprivate sub command1 click k 1 if text2.text then exit subfor i 1 to 100 if a i text2.tex...
VB6程式條怎麼實現，VB6如何讓程式只執行一個程式例項
實現方法很多呀。如果自帶進度條。可以用自帶的做。太久不用vb6了。放了是否自帶了。這種做法就是設定一個總值。比如100，然後把你程式要做的工作分成若干個任務，比如10個。這樣每次一個任務執行完，更新進度條的值。10,20,30.還有更靈活的。不如利用picture box。在flash裡面做一個動畫...
怎樣更改exe程式 的圖示，如何修改EXE軟體的屬性描述和圖示
去多特等軟體站 搜尋一個 exe程式圖示更改器 才幾百k 這個能改是能改，關鍵是exe檔案脫殼，脫殼後就好弄了。我早說過了，這個的關鍵是要脫殼。脫殼後還要分什麼語言編寫的。建議你看看怎麼暴力破解軟體方面的材料，一定能找出辦法的。還是一句話，關鍵要脫殼。你知道軟體可以加殼嗎？你說的問題，涉及到反向工程...