1樓:匿名使用者
可以考慮按鈕陣列,即新加的按鈕與已存在的按鈕name相同,僅具有不同的index,那麼這一組按鈕的相同事件都可以在同一個過程中實現,藉由這個過程的index引數來區別使用者單擊的是哪個按鈕。舉個例子:
兩個按鈕都叫做command1,index分別為0和1index為0 的按鈕的caption為“按鈕1”
index為1 的按鈕的caption為“按鈕2”
雙擊其中之一可新增**:
if index = 0 then
msgbox "你單擊了按鈕1"
elsemsgbox "單擊了按鈕2"、
end if
這樣新加了按鈕之後,照樣用已經存在的過程來處理單擊事件。
2樓:網友
vb沒有那麼大的功能的,你最好先定義一個cmd給他賦予屬性”在text1裡寫入。
shell c:\ 然後設定的觸發事件 是點選command1的時候 將這個cmd顯示出來。
所以呢,如果你想以你以上的思路去做的話,最好用visual studio做,因為這個編譯工具非常強大。
3樓:海浪人生
肯定可以建立的 按鈕。
也能刪除 按鈕。
不過你說的事件不確定就不太好弄了。
如果你是說執行text 裡面的內容 那是完全可以的。
樓上說的對 用組來實現。
怎樣指定一個動態增加按鈕的事件(vb.net)
4樓:匿名使用者
a在執行時將事件與事件處理程式相關聯。
addhandler event, addressof eventhandler
各部分說明。
event要處理的事件的名稱。
eventhandler
將處理事件的過程的名稱。
sub testevents()
dim obj as new class1
associate an event handler with an event.
addhandler , addressof eventhandler
call the method to raise the event.
stop handling events.
removehandler , addressof eventhandler
this event will not be handled.
end sub
sub eventhandler()
handle the event.
msgbox("eventhandler caught event.")
end sub
public class class1
declare an event.
public event ev_event()
sub causesomeevent()
raise an event.
raiseevent ev_event()
end sub
end class
比如:addhandler , addressof button1_click
明白了吧。
vb6.0動態增加按鈕
5樓:涐吢銥舊囿儚
其實也不是很難,給你一個框架,作為參考吧。
具體的也只有你自己進行完善。
先在窗體上新增一個標準按鈕。
在屬性視窗中,把它的 index屬性設定成 0
名稱改為 cmddyncmd (其它的名稱也行,注意後面的說明)
visible 可以設定成 false
option explicit
private lcmdindex as long
private sub loadcmdbutton()
這兒就是載入動態按鈕的。
dim i&
for i = 0 to nnn '這兒nnn等於你需要的按鈕數減1,可以用變數的。
你應該能通過你的“資料庫中"a"表中"名稱"欄位”專案數 來確定值為多少。
*注意這兒的 cmddyncmd 就是設計時確定的按鍵名稱 **
if (lcmdindex > 0) then load cmddyncmd(i)
cmddyncmd(i).visible = true
這兒的 caption 屬性,你自己用**跟你的 資料庫中"a"表中"名稱"欄位內容關聯。
cmddyncmd(i).caption = 動態按鈕" &i + 1
這兒的 x 、y 你可以根據 i 的值來進行計算。
cmddyncmd(i).top = x
cmddyncmd(i).left = y
直接 cmddyncmd(i).move x, y也行。
nextend sub
這兒就是動態按鈕的事件**。
根據 index 判斷是哪個按鈕觸發了事件。
跟你事先設計好的控制元件陣列完全是相同的用法。
*注意!!!注意這兒的 cmddyncmd 就是設計時確定的按鍵名稱。
private sub cmddyncmd_click(index as integer)
msgbox "你點選的是第 " index + 1 & 個動態按鈕。",64
具體事件**只能你自己寫。
end sub
vb中如何用**新增命令按鈕
6樓:杜哥是個小天才
按以下步驟實現動態新增命令按鈕。
1)新建一個vb6工程。
2)form1窗體**。
option explicit
定義要動態新增的命令按鈕變數(帶事件處理)
dim withevents cmdx as commandbutton
點選動態新增的按鈕,彈出對話方塊。
private sub cmdx_click()
msgbox "動態新增的命令按鈕!!!
end sub
滑鼠雙擊窗體,動態新增一個命令按鈕。
private sub form_dblclick()
if cmdx is nothing then
set cmdx = cmd1")
點選我呀"trueend if
end sub(3)執行。
啟動後滑鼠雙擊窗體點選命令按鈕,彈出一個對話方塊。
7樓:在世貿天階灌籃的高飛燕草
private sub form_load()"cmdok", form1
form1! =true
end sub
新增控制元件陣列的話,需要手動新增1個命令按鈕,把index設定為0private sub command1_click(index as integer)
static s
if index = 0 then
s = s + 1
load command1(s)
command1(s).visible = truecommand1(s).height = command1(s - 1).height + 500
end if
end sub
8樓:網友
你都有做過了還上來問幹嘛!傻子!語氣還硬的很,不要忘了現在你是在求人,知道也不告訴你。
vb動態新增的控制元件陣列怎麼響應事件?
9樓:匿名使用者
private sub command_click(index as integer)
index是控制元件屬性。可以說是指定代號,就是那個括號裡的數(index)
點下去之後看看這個command的代號(index)是多少select case index '檢查代號(index)是多少case 0 '如果代號(index)是0,msgbox "1號" '那就執行代號(index)為0的按鈕控制元件!(陣列從0排起的)
case 1
msgbox "2號"
case 2
msgbox "3號"
case 3
msgbox "4號 "
case 4
msgbox "5號 "
中間省略……
case 9
msgbox "10號 "
end select '把正確的都選出來了,任務結束end sub
c動態新增tree,c treeView 動態新增子節點的問題
treenode rootnode new treenode this.treeview1.nodes.add rootnode 就這樣加根節點,子節點也是同樣方法。語句 parentnode.childnodes.add childnode 其中 parentnode 父結點 childnodes...
請問如何在excel中可以新增按鍵,當按鍵按下後,所在行的內容不可更改被鎖定呢
程式代做喲,點名字發郵件聯絡。請問如何在excel中可以新增一個按鍵,實現以下功能,謝謝老師 5 格式已做好,其他內容自己填 用vba 應該能行。如何在excel中設定一個按鈕,當按鈕按下後,計算a1 a2 a3,而按鈕不按下的時候計算a1 a2的值 你好 可以做一個選擇按鈕。資料有效性 當選擇12...
js 動態新增的按鈕 onclick事件怎麼寫
我剛寫的.需要引用jquery,我這個jq用的是google的共用地址,你也可以換成自己的.在ie8下除錯的,其他沒事,用jquery的話一般瀏覽器都沒問題,試試吧 js設定onclick事件 春風化雨 html頁面設定onclick事件可以在html中設定,也可以在js中設定,下面分別介紹。你的 ...