1樓：匿名使用者
樓上的，不許要引用吧~~~
option explicit
private declare function getdrivetype lib "kernel32" alias "getdrivetypea" _
(byval ndrive as string) as long
private declare function getlogicaldrivestrings lib "kernel32" alias "getlogicaldrivestringsa" _
(byval nbufferlength as long, byval lpbuffer as string) as long
private sub command1_click()
dim rtn as string, a, b$(), i%, u as boolean
dim alldrives as string
alldrives = space$(64) '設定緩衝
rtn = getlogicaldrivestrings(len(alldrives), alldrives) '呼叫函式得到包含所有驅動器的字串
alldrives = left(alldrives, rtn)
a = split(trim(alldrives), chr(0))
redim b(ubound(a))
u = false
for i = 0 to ubound(a) - 1
b(i) = getdrivetype(a(i))
if b(i) < 2 or b(i) > 6 then b(i) = 1
b(i) = choose(val(b(i)), "未知型別", "移動盤", "硬碟", "對映盤", "光碟機", "記憶體盤")
if b(i) = "移動盤" then u = true
next
text1 = ""
text1 = iif(u, "發現有移動盤!", "未發現移動盤!") & vbcrlf
for i = 0 to ubound(a) - 1
text1 = text1 & a(i) & "---" & b(i) & vbcrlf
next
end sub
怎麼用vb做一個簡單的程式
2樓：愚信苑君
先載入窗體上的各種控制元件，然後進入寫**可以從最簡單的加法器做起
3樓：寇同書訾妍
別人寫好的程式，你是不可以直接訪問的，都加了殼，你只能反彙編~
4樓：是小白啊
加入標籤label1，caption設定為「你好，請輸入你的姓名」
加入文字框text1，用來輸入姓名的
加入標籤label2，按照你的要求設定字型屬性，autosize屬性設成true
分別加入確定，繼續，結束按鈕
以下是**：
private sub form_load()me.結束.visible = falseme.
繼續.visible = falselabel2.visible = falseend sub
private sub 繼續_click()me.結束.visible = falseme.
繼續.visible = falselabel2.visible = falseme.
確定.visible = true
label1.visible = truetext1.visible = true
end sub
private sub 結束_click()endend sub
private sub 確定_click()label2.caption = text1.text & "同學，你好，祝你學好vb程式設計"
me.結束.visible = true
me.繼續.visible = true
label2.visible = truelabel1.visible = falsetext1.
visible = falseme.確定.visible = falseend sub
如何使用vb編寫一個簡單的小程式？
5樓：織布大王盧夫人
在桌面上，滑鼠左鍵雙擊程式，在開啟的vb6主介面上，左邊是工具選單欄，單擊標籤按鈕，在form1視窗上，繪製出一label1，然後在其屬性視窗上改個名字，如caption為第一數，如下圖所示。
接著，用同樣的方法，在form1視窗上繪製出第二數，並且在左邊工具選單欄，單擊文字框按鈕，並繪製出來。在文字框屬性欄的text屬性上，將其text1刪除，也就是清空資料，如下圖所示。
然後，反覆用第一步驟和第二步驟做成如圖所示的介面來，學習需要反覆練習，在練習中不斷進步。這裡是做簡單的加法程式，如下圖所示。
接著，加法程式的介面做好後，還不能執行加法運算，必須還要在form1視窗上繪製出一個命令按鈕來，在左邊工具選單欄，單擊命令按鈕，並繪製出來。然後給其屬性視窗下caption改名為計算，如下圖所示。
然後，程式看起來是做好了，單擊如圖所示的執行按鈕，彈出自己做出的form1視窗，輸入數字3和6，然後單擊計算。可是結果並沒有出現，如下圖所示。
最後，前面5個步驟只是做了程式的介面，想要程式出結果，那必須加些**了，既然是簡單程式，只加一行**就可以了。雙擊命令按鈕，在**視窗中輸入如下：text3.
text = val(text1.text) + val(text2.text)後，再單擊執行，輸入數字，單擊計算，此時就出現結果了，如下圖所示。
用vb編寫一個程式
6樓：良從安苗籟
private
declare
function
findwindow
lib"user32"
alias
"findwindowa"
(byval
lpclassname
asany,
byval
lpwindowname
asstring)
aslong
private
declare
function
sendmessage
lib"user32"
alias
"sendmessagea"
(byval
hwnd
aslong,
byval
wmsg
aslong,
byval
wparam
aslong,
lparam
asany)
aslong
private
const
wm_close
=&h10
private
subtimer1_timer()rs=
findwindow(0&,
"windows
工作管理員")'這裡填寫要禁止啟動的程序名稱ifrs
<>0then
sendmessage
rs,wm_close,0,0
endif
endsub
7樓：燕澹厲採
三種方法
一、在遊戲的安裝目錄下新建一個文字文件，改名為ws2_32.dll就可以了。二、用vb的話可以用open語句random方式開啟遊戲檔案，遊戲就不能執行了。
三、或者用查程序的方式每秒查一次，如有就結束該程序。
8樓：茂興安水憶
我來糾正樓上的錯誤
求助答案的shell函式
只能再某些系統下才能用
而且可移植性不好
或許到別人電腦上就用不起了
我建議還是老老實實用api函式先獲取控制代碼再結束掉程序，一般的遊戲窗體都有標題
很容易獲取到控制代碼，
要想達到徹底的禁止這個遊戲執行那麼你就可以用timer控制元件來監控即可
用vb做一個程式
9樓：匿名使用者
完整**如下：
option explicit
private d as string
private w as string
private sub command1_click()msgbox d & w
end sub
private sub form_load()option1.caption = "星期一"
option2.caption = "星期二"
option3.caption = "星期三"
option4.caption = "星期四"
option5.caption = "星期五"
option6.caption = "星期六"
option7.caption = "星期天"
option1.value = true
d = "星期一"
option8.caption = "上課"
option9.caption = "休息"
option8.value = true
w = "上課"
end sub
private sub option1_click()d = option1.caption
end sub
private sub option2_click()d = option2.caption
end sub
private sub option3_click()d = option3.caption
end sub
private sub option4_click()d = option4.caption
end sub
private sub option5_click()d = option5.caption
end sub
private sub option6_click()d = option6.caption
end sub
private sub option7_click()d = option7.caption
end sub
private sub option8_click()w = option8.caption
end sub
private sub option9_click()w = option9.caption
end sub
10樓：匿名使用者
private sub command1_click()msgbox combo1.text & combo2.textend sub
如圖所示
用vb編寫一個簡單的程式
11樓：考山歷雅柔
上面的程式有問題
'給視窗加3個text控制元件
text.text
都設為0，再加個command
控制元件'付上以下程式
ok了private
subcommand1_click()
dimd
assingle,las
singled=
val(text1.text)l=
val(text2.text)v=
0.7854*l
*(d+0.5*l
+0.005*l
^2+0.000125*l
*(14-l)
^2*(d
-10))^2
/1000
text3.text=v
endsub
怎麼編寫VB投票統計程式，怎麼編寫一個VB投票統計程式？
private sub command1 click text1.text val text1.text 1end sub private sub command2 click text2.text val text2.text 1end sub private sub command3 click...
用VB編寫程式，求S A B C ，階乘的計算分別用Su
1 用sub實現的過程bai 如下 du dim a,b,c,s a 1b 2 c 3s 0 sub jc x dim v v 1while x 0 v v x x x 1 wend s s v end sub jc a jc b jc c msgbox s 2 用function的過程zhi如下 ...
求VB高手 編寫程式，找出10000 99999的所有迴文數
private sub mand1 click dim i as long,j as longdim x1 as long,x2 as longdim str as string dim flag as boolean str 從 10000 到 99999 之間的迴文數有 vbcrlf for i...