1樓：匿名使用者
'窗體上新增乙個picture控制項，name屬性設為pic，index屬性設為0
'初始化picture
private sub form_load()
pic(0).left = -pic(0).width
addpic
movepic 1, 0
end sub
'新增按鈕
private sub command1_click()
dim i as integer
for i = pic.ubound to 1 step -1
if pic(i).visible = true then
exit for
end if
next
addpic
movepic pic.ubound, i
end sub
'刪除picture
private sub pic_click(index as integer)
if index <> 0 then pic(index).visible = false
sortpic
end sub
'新增picture
sub addpic()
load pic(pic.ubound + 1)
pic(pic.ubound).visible = true
'pic(pic.ubound).print pic.ubound '顯示index值,需要把pic的autoredraw設為true
end sub
'移動picture
sub movepic(byval parindex as integer, byval parprevindex as integer)
pic(parindex).left = pic(parprevindex).left + pic(parprevindex).width + 50
pic(parindex).top = pic(parprevindex).top
end sub
'排序picture
sub sortpic()
dim i as integer
dim j as integer
for i = 1 to pic.ubound
if pic(i).visible = true then
movepic i, j
j = i
end if
next
end sub
2樓：
在窗體中新增乙個command1，乙個picture1
然後在picture1上新增picture2，將其index屬性改為0，即為picture2(0)，再將其visible屬性改為false
窗體上新增**：
dim nn as integer
private sub command1_click()
if nn = 0 then
picture2(nn).visible = true '將第乙個picture2(0)顯示
else
load picture2(nn) '載入picture2控制項
picture2(nn).visible = true '將其可見
picture2(nn).left = picture2(nn - 1).left + picture2(nn - 1).
width + 50 '載入的新控制項距前乙個距離為50
end if
nn = nn + 1
end sub
private sub picture2_click(index as integer)
unload picture2(index)
for i = index + 1 to nn - 1
picture2(i).left = picture2(i).left - 50 - picture2(i).width
next
end sub
private sub form_load()
nn = 0
end sub
3樓：匿名使用者
控制項陣列就可以啊
教科書上去看嘛
vb中如何動態新增刪除控制項
4樓：匿名使用者
用 controls.remove(控制項) 動態刪除控制項。注意：在vb中只能動態刪除那些動態新增的控制項；不允許刪除在窗體設計器上布置的控制項！
示例如下：
（1）建立乙個vb工程
（2）在form1上布置兩個command（3）窗體**
option explicit
' 宣告要被動態新增/刪除的控制項
dim x as label
'-----------------------------' 動態新增乙個label控制項
'-----------------------------private sub command1_click()if x is nothing then
set x = controls.add("vb.label", "label1")
x.move 150, 150
x.autosize = true
x.caption = "這個是動態新增的標籤"
x.visible = true
end if
end sub
'-----------------
' 動態刪除控制項
'-----------------
private sub command2_click()if x is nothing then exit subcontrols.remove x
set x = nothing
end sub
private sub form_load()command1.caption = "新增控制項"
command2.caption = "刪除控制項"
end sub
（4）執行
窗體啟動
點選「新增控制項」按鈕
點選「刪除控制項」按鈕
5樓：洒家不戒女色
動態新增控制項有兩種方法，一種是新增乙個控制項，一種是再已存在的控制項組裡動態新增組員。
法1：dim withevents cmd as commandbutton
set cmd=controls.add(""vb.commandbutton","cmd1")
之後設定cmd1的各個屬性即可
法2：先在設計視窗上建立乙個控制項陣列組員，比如名為cmd1(0)的乙個按鈕，然後在程式中使用load方法載入新組員，比如 load cmd1(1)，load cmd1(2)...之後再設定其屬性即可。
乘以15是座標兩種單位的換算，vb預設座標單位是tiwp（緹），緹與畫素之間換算關係是 ： 15緹=1畫素
6樓：匿名使用者
private sub form_load()form1.controls.add "vb.commandbutton", "cmdobj1", frame1
with form1!cmdobj1
.visible = true
.width = 2000
.caption = "dynamic button"
end with
end sub
vb中使用adodc控制項新增，修改，刪除記錄的**怎麼寫
7樓：扶桑看天
'新增adodc1.recordset.addnewadodc1.recordset("欄位名") = trim(combogoodname.text)
adodc1.recordset.update'修改adodc1.recordset("欄位名") = trim(combogoodname.text)
adodc1.recordset.update
用vb編寫乙個為列表框新增刪除選項
8樓：一棵無所不知的小白菜
1、首先開啟vb軟體，繪製好相應的控制項，兩個命令按鈕，乙個列表框，乙個文字框。
2、接下來大概更改一下各個控制項的屬性。
3、然後編寫命令按鈕從鍵盤輸入文字框，並能能夠新增專案**。
4、編寫刪除**，記得要遍歷查詢。
5、執行後便可以看到這樣的程式。即編寫乙個為列表框新增刪除選項成功。
9樓：匿名使用者
vb6.0中可使用additem 方法將專案新增到 listbox 或 combobox 控制項中。也可使用
removeitem 方法從 listbox 或 combobox 控制項中刪除專案。
additem 方法：用於將專案新增到 listbox 或 combobox 控制項，或者將行新增到 ms flex grid控制項。不支援命名引數。
removeitem 方法：用以從 listbox 或 combobox 控制項中刪除一項，或從 ms flex grid
控制項中刪除一行。不支援命名引數。
**示例：
先使用 addltem 方法增加 100 項給乙個列表框。然後使用removeitem 方法按要求刪除偶數專案。
private sub form_click()
dim entry, i, msg ' 宣告變數。
msg = "點確定增加100個專案到列表框。"
msgbox msg ' 顯示資訊。
for i = 1 to 100 ' 計數值從 1 到 100。
entry = "entry " & i ' 建立輸入項。
list1.additem entry ' 新增該輸入項。
next i
msg = "點確定移除專案所有其它專案"
msgbox msg ' 顯示資訊。
for i = 1 to 50 ' 確定如何
list1.removeitem i ' 每隔一項
next i ' 刪除。
msg = "點確認從列表框刪除所有專案。"
msgbox msg ' 顯示資訊。
list1.clear
end sub
vb動態新增image控制項！
vb如何動態新增webbrowers控制項
在vb中，怎麼判斷自己動態新增的控制項是否存在？
10樓：匿名使用者
dim i as integer
for i = 0 to me.controls.count - 1if me.
controls.item(i).name="你控制項的名稱" then 'me 可以用你控制項的窗體名稱替換。
msgbox "存在"
esle
msgbox "不存在"
end if
next
控制項名稱要區分大小寫的哈。
用vb怎麼求餘數，用VB怎麼求餘數
娛樂小八卦啊 在vb中運用模運算 mod 進行求餘數。對於整型數a，b來說，取模運算或者求餘運算的方法都是 1 求 整數商 c a b 2 計算模或者餘數 r a c b。求模運算和求餘運算在第一步不同 取餘運算在取c的值時，向0 方向舍入 而取模運算在計算c的值時，向負無窮方向舍入。所謂向0方向舍...
求此動態圖出處,求這個動態圖的出處
不給圖的 都自己找出處哈 度娘alegev 希望能夠幫助你 然後圖呢 求這個動態圖的出處 日本組合ske48的mv 片想 finally此圖是官配cp 雙松井 短髮的是松井珠理奈,長髮的是松井玲奈 望採納 確認無誤後望及時採納 電影 妖獸都市 電影 妖獸都市 出品於1992年,由徐克 麥大傑執導,黎...
求vb高手詳解set acreateobject
宣告乙個物件庫，下一步就是使用這個庫裡面的函式 實際上這個庫就是wshom.ocx檔案 wscript是庫的名字，shell是裡面的乙個物件 vbs中createobject wscript.shell 是什麼意思 給你個正解吧 其實使用者 1029291429 的更改是對的。wscript.cre...