1樓：匿名使用者
dim withevents mybutten as commandbutton
private sub command1_click()set mybutten = controls.add("vb.commandbutton", "name1")
mybutten.move 200, 200, 1000, 1000mybutten.caption = "動態新增"
mybutten.visible = trueend sub
private sub mybutten_click()controls.remove mybuttenset mybutten = nothingend sub
2樓：草原上之狼
新增乙個按鈕
設定index屬性為0
private sub command1_click(index as integer)
if index = 0 then
load command1(1) '新增按鈕command1(1).left = 0 '調整位置command1(1).top = 0
command1(1).visible = true '設定可見else
unload command1(1) '解除安裝按鈕end if
end sub
3樓：匿名使用者
刪除就是生成後然後把visible引數改成false就可以消失了
vb編輯乙個退出按鈕，程式**怎麼寫
4樓：
最簡單的：
private sub command1_click()endend sub
end語句幫助你關閉所有已經開啟的檔案，顯示的視窗，以及申請的記憶體等等，能夠滿足90%的需要，但是end也不是萬能的，所以嚴謹的程式設計師還是會自己釋放所占用的資源，完畢後再退出。
5樓：
private sub command1_click()unload meend sub
vb中怎樣通過命令按鈕結束乙個過程?
6樓：我提提問
按鈕時結束command1下面的過程？
不一定能實現，因為command1按下了可能已經掛起，不讓你按command2了。
如果非得要做，你可以這樣
外面 dim a as boolean
command1 裡寫 if a then exit sub :a=0
command2 裡寫 a=1
7樓：天命蝸牛
雙擊按鈕後，**如下：
private sub comamand1_click()
endend sub
8樓：慶年工坊
private sub command1_click()
endend sub
vb中如何刪除登錄檔中某乙個鍵？
9樓：
（樓上在弄什麼，看不懂）
你說的乙個鍵下面還有子鍵是什麼意思？我好象沒聽過
vb**:
private sub form_load()
on error resume next
dim reg
set reg = createobject("wscript.shell")
reg.regdelete "hkey_local_machine\software\chenwb"
end sub
在我的xp的vb6.0上試是ok的
注：1、你刪的是乙個鍵（登錄檔中右邊那一欄的），不是乙個項（資料夾樣的）
2、防毒軟體已被關，以防被禁止。你把**中「on error resume next」去掉，如果出錯說明被禁止
3、若上兩條失敗，請另請高明...
vb中如何做錯誤處理，VB中如何做錯誤處理
在可能會出錯語句前加 on error resume next 或on error goto err1 err1為識別符號 在可能出錯的語句前邊新增錯誤陷阱語句 on error goto errlabel 在出現以上語句的模組中,在此語句以後的所有 出現錯誤時,均會自動轉向errlabel 行.例...
職場中如何做很好的情緒管理者,職場中如何做乙個很好的情緒管理者
我以前經來常受情緒源 影響,很容易情緒化,後面反思良久,得到一些結論首先認知情緒。情緒來自主觀臆斷,是人性裡面善惡論的產物。改善情緒說簡單也簡單,說難也難。簡單說就是換位思考,這個大家都知道。難是難在知易行難。我們需要更客觀,更全面的看待問題,先站在對方的立場上想一想為什麼,再回到自己的立場上來看。...
精武堂中如何做任務
6我的是29級和48級的號,剛才登入時還沒顯示,只要你在精武堂頁面儲存一下書籤,多登入幾次就可以了！網上買禮物方便實惠，還時尚，我空間有詳細的網購步驟和技巧總結。我在網購經驗比較多，網上的東西真的便宜很多，選購也很方便，我收集了很多熱賣好評的商品和店鋪，並做了統計排行，很多都是專家通過比較店鋪信譽和...