VB 將 list1 的內容放入 list2 的語句中

舉個例子，你自己看看：

舉個簡單的例子，你先建立兩個列表框，然後向listzuo新增幾個專案。 繪製另乙個 cmdyou 按鈕。

private sub cmdyou_click() '按鈕。

dim x as integer '將變數 x 宣告為數值。

while > 0 '迴圈，當選擇左側的列表框 （LSTZUO） 時，對於 x = 0 到 - 1'迴圈 x 的值，0 表示列表框中的項總數。

if = true then '判斷，如果在列表框的左側 （LSTZUO） 中選擇了專案 X，則。

將列表框左側的所選內容新增到右側 （lstyou）、x'刪除列表框左側的選定內容。

exit for '結束迴圈，請注意：您必須首先在判斷結束時結束 for 迴圈。

end if '結束審判。

next x

wend '如果不滿足 while 迴圈條件，則終止迴圈。

end sub

我不知道如何提問。

if = true then

如果它換行，則新增乙個結尾

if = true then

end if

或者只是把它寫在一行上。

if = true then

那樣的話，**應該沒問題，在vb中執行，再加到list2中，搭建的主要作用就是不把list1中選定的專案刪除'將所選專案從 list1 傳輸到 list2。

private sub command1_click()dim i as integer

for i = - 1 to 0 step -1if = true then

0iend if

next i

end sub

此外，虛擬機組在產品**上，超級便宜。

是您應該編寫的內容陣列。

for i = 0 to - 1

next i

樓上正規路，還行

也許可以控制控制，但我還沒有嘗試過。

下面是list1中的列表框，雙擊要傳輸到list2的資料，然後將資料新增到list2中，list1中的相關資料將被自動刪除！

private sub list1_dblclick()end sub

** 和以下注釋：

private sub list1_dblclick()'雙擊 list1 時觸發該事件。

list2 新增當前選定的 list1 的文字'list1：從 list1 中刪除當前選定的條目 end sub

IndexRemoveItem 方法的語法由以下部分組成：

部分說明。

object

必填。 值為 Apply To 的物件表示式，用於列表中的物件。

索引是必需的。 乙個整數，表示要刪除的物件中項或行的位置。 對於列表框或組合框

或 MS Flex Grid 控制項中的第一行，index = 0。

ss '所有資訊都放入 list1if instr（ss， then ss'如果它包含在文字框中輸入的資訊，請將其放入 list2 中