1樓：
private sub command1_click()for i = list1.listcount - 1 to 0 step -1
if list1.list(i) = text1.text then list1.removeitem i
next
end sub
2樓：我叫明輝
private sub command1_click()dim i as integer
if text1.text <> "" thenfor i = 0 to list1.listcount - 1if list1.
list(i) = text1.text thenlist1.removeitem (i)
exit for
end if
next i
end if
end sub
3樓：匿名使用者
sub command1_click()
dim i as integer
for i = 0 to list1.listcount-1if list1.list(i)=text1.text thenlist1.removeitem(i)
end if
next
end sub
4樓：啊就丶榮
其實不需要迴圈這麼麻煩的
list1.text=text1.text
list1.removeitem list1.listindex '刪除list選中的一項
在窗體中引入一個文字框text1，在文字框下引入一個列表框list1，單擊新增按鈕，將文字框中內
5樓：你猜我猜哇擦猜
如:第一個窗體1即:form1的**:
private sub 窗體2_click()form1.hide
form2.show
end sub
第二個窗體2即:form2的**:
private sub 還回_click()form2.hide
form1.show
end sub
退出**:
private sub 退出_click()unload me '退出"
end sub
6樓：匿名使用者
private sub command1_click()if text1 = "" then msgbox "沒用內容，不與新增！」: exit sub
list1.additem text1
end sub
private sub command2_click()if list1.listindex thenlist1.removeitem list1.listindexelse
msgbox 「請選擇條目!"
end if
end sub
vb怎樣將text1中輸入字母在text2中自動轉換成數字
private sub text1 change dim s as string,m as stringfor i 1 to len text1.text m lcase mid text1.text,i,1 if asc m 97 and asc m 122 then s s asc m 96 e...
vb中如何把控制元件變成透明的，VB中如何把控制元件變成透明的
鬆鬆一號 backstyle 屬性 返回或設定一個值，它指定 label 控制元件或 shape 控制元件的背景是透明的還是非透明的。設定值0 透明 在控制元件後的背景色和任何 都是可見的。1 預設值 非透明 用控制元件的 backcolor 屬性設定值填充該控制元件，並隱藏該控制元件後面的所有顏色...
在photoshop中如何把圖1中的窗簾簾頭處理成圖2中
老房 在photoshop中，把圖1中的窗簾簾頭處理成圖2中弧形的窗子上的方法是 1 開啟 用矩形選框工具選定平面窗簾，ctrl j複製貼上圖層，用 魔術橡皮擦工具 擦除白色背景 2 ctrl t自由變換，編輯 變換 變形 拱形 拖到上圖弧形窗簾坐處，ctrl t調整大小位置 3 用 畫筆工具 等進...