1樓：匿名使用者
跟怎麼執行無關吧 遊戲確實要公升者伍級吧 答案補充 可能是工作執行目錄的問題，把工作執行目錄設為g:\網路遊戲\大話西遊2，應該就可以了，chdir "差陸g:\網路遊戲\大虛嫌頃話西遊2" 答案補充 private sub command1_click()
if len(dir("g:\網路遊戲\大話西遊2\"))0 then
msgbox "檔案不存在或拒絕訪問！"
elsechdir "g:\網路遊戲\大話西遊2"
shell "g:\網路遊戲\大話西遊2\", 1end if
end sub
如果有什麼語法上的問題自己搞定 答案補充 這樣還是不行嗎 你的問題應該是相關資源沒辦法載入 這樣做應該是沒問題的 路徑後面加"\"看看 不行我也不知道了 等待高人吧。
2樓：匿名使用者
private sub command1_click()if dir("g:\網路遊戲\大話西遊2\")=0 thenmsgbox "檔案不存在！"
elseshell "g:\網遊\虛橡大話2\", 1end if
end sub
可以試一下這樣寫。
可以試一侍絕下這樣寫。
可以試一下這樣寫。
可以試差談旁一下這樣寫。
3樓：匿名使用者
private sub command1_click()if len(dir("g:\網路遊戲\大話西遊2\"))0 then msgbox "檔案不存棚廳在或拒絕訪問！" exit sub
chdir "g:\網脊掘絡遊戲\大話西遊2" '先換路徑。
shell "g:\網路遊戲櫻和核\大話西遊2\", 1end sub
4樓：匿名使用者
我是海風的味道。呵呵。
遠端幫你。搞定記得給分。
用vb怎麼做乙個小遊戲啊?
5樓：席兆堂憐南
一樓。呵呵我也覺著那啥。
手把手。..至少值2000
我說的是。rmb..
6樓：山芝臧柔惠
很多遊戲原始碼有註釋。
7樓：嚴迪澄巨集逸
要**的話，我的郵箱，給我你的郵箱位址，我給你乙個我剛學vb時弄得乙個小遊戲。
請問用vb怎麼做乙個下拉選單
8樓：網友
private sub combo1_click()select case
case "第1條"
1qwertyuioasdfgjk..."
case "第2條"
2qwertyuioasdfgjk..."
end select
end sub
private sub form_load()"第1條"
第2條"end sub
9樓：愛梔竹的人
視窗空白處，右鍵「選單器」
10樓：段思羽
右面有乙個list屬性，。按ctrl+enter，換行。
怎麼用vb做乙個小遊戲
11樓：網友
做祖瑪別看遊戲操作簡單，其實程式設計涉及的技術問題比較複雜。
建議vb初學者學會用picturebox控制項來做坦克大戰的遊戲，尤其多輛敵方坦克用乙個陣列來控制。當你明白「陣列」在角色、地圖、子彈設計的基礎作用時，再製作祖瑪類遊戲就知道該怎麼樣做了。
12樓：網友
蒙特瑪祖？這樣的遊戲太複雜了， 你還是先做個推箱子之類的現實點。
用vb做乙個簡單的遊戲
13樓：_死亡狙擊手
if ** > ** and ** < ** + ** and ** > ** and ** < ** + ** then
msgbox ""
end if
這是乙個簡單的碰撞檢測。
vb編寫小遊戲
14樓：網友
窗體放兩個label控制項，乙個timer控制項：
dim n as integer
private sub form_keydown(keycode as integer, shift as integer)
select case keycode
case vbkeyup
if > 0 then = - 50
case vbkeydown
if < scaleheight - then = + 50
case vbkeyleft
if > 0 then = - 50
case vbkeyright
if < scalewidth - then = + 50
end select
call check
end sub
private sub check()
if abs( -= 50 and abs( -= 50 then
n = n + 1
rnd * scalewidth, rnd * scaleheight
end if
end sub
private sub form_load()
keypreview = true
randomize
with label1
caption = ""
backcolor = vbwhite
move (scalewidth - width) / 2, (scaleheight - height) / 2, 500, 500
end with
with label2
caption = ""
backcolor = vbyellow
move rnd * scalewidth, rnd * scaleheight, 500, 500
end with
trueend sub
private sub timer1_timer()
msgbox "這局對準了" & n & "次黃方塊"
unload me
end sub
誰能用vb幫我做乙個簡單的選單啊
15樓：網友
新建乙個form,然後在介面的左上角處點選乙個類似文字框形狀的藍白色小按扭，進入後可以自己編寫了，將各個選項都設定為可見，那麼就易於。
那裡有上下左右的箭頭，試一試，你會明白的了。
16樓：網友
直接用「選單器」，在工具欄上有。
17樓：富淖扒
窗體裡面 crtl+e 就能出來了，自己寫幾個字看看就會了。
18樓：網友
直接用選單器做很容易呀。在這裡做完也沒法上傳。
怎樣製作啟動盤？怎麼做乙個啟動盤呢
你有帶燒錄的 吧，你只要把做啟動盤的檔案寫進去就可以了呀，不過我以前用的都是ghost,1分鐘就好了。怎麼做乙個啟動盤呢?這不是複製。使用ultraiso這個工具，開啟系統映象然後寫入到u盤中，系統啟動盤就成功了。如何做乙個u盤啟動盤？可按照如下步驟製作乙個u盤啟動盤 二 這樣的軟體其實很多，我們就...
vb怎麼製作乙個計算器？怎麼用VB做乙個計算器
您好，我這邊正在為您查詢，請稍等片刻，我這邊馬上回覆您 提問。括號怎麼做呢。親親正在為您查詢呢。您好，很高興為您解答，開始 程式 附件 計算器 檢視 科學型 就可以運算了。例如 2 3 5 操作 按 按2 按 按3 按 按 按5 按 最後顯示結果 25 親試一下這樣可以嗎。提問。vb程式 字元 re...
vb做60秒內迴圈倒計時的程式，VB做乙個60秒內迴圈倒計時的程式
在窗體中畫乙個文字框，text屬性為60，再畫乙個計時器，interval屬性設定為1000 單位為毫秒，1000毫秒等於1秒 enabled屬性為true.按後編寫如下計時器事件 private sub timer1 timer if text1.text 0 thentext1.text 60 ...