高分求教. 关于combo控件的问题,立即送分,绝不失言

Question

sorryCombo.additem "内容"

Answer 1

Private Sub Combo1_Click()
    Combo2.AddItem Combo1.Text
End SubPrivate Sub Form_Load()
    For i = 1 To 100
        Combo1.AddItem i
    Next
End Sub

Answer 2

WAWQ
请说的具体点.
最好给出代码.
谢谢

Answer 3

还有个问题.
怎样将combo2中的所有内容按先后顺序附给一个变量?

Answer 4

也可以将combo2中的所有内容附给一个数组

Answer 5

Private Sub Combo1_Click()
    Combo2.AddItem Combo1.Text
    str = str & Combo1.Text
    Debug.Print str
End Sub

Answer 6

Private Sub Combo1_Click()
Combo2.AddItem (Combo1.Text)End SubPrivate Sub Form_Load()
Dim t As Integer
Dim s As StringFor t = 1 To 100s = "" & t
Combo1.AddItem t
Next t
End Sub

Answer 7

Dim strArray()    As String
    ReDim strArray(0)
    for i=0 to combo2.ListCount - 1
        ReDim Preserve strArray(i)
        strArray(i) = combo2.List(combo2.ListIndex)
    next

Answer 8

public i as integer
private sub combo1_click()
    
    
    str=i & combo1.text
    combo2.additem str
    i=i+1
end sub

Answer 9

dim myArray() as stringPrivate Sub Combo1_Click()
    Combo2.AddItem Combo1.Text
    redim preserve myArray(combo1.listcount - 1)
    myArray(combo1.listcount - 1) = combo2.list(combo2.newindex)
End Sub