0

ドロップダウンリストからラベルに各項目を追加しようとしています。なぜそれがうまくいかないのか、どんな推測でも。回答ありがとうございます。

Dim labels(2) As Label
Public Sub AddItemsFromDropdownlistToLabel()
    DefineLabels()
    'Add Items From Dropdownlist1 to three lables
    For Each item As Object In DropDownList1.Items
        If LabelCount < 3 AndAlso LabelCount > 0 Then
            labels(LabelCount).Text = item.ToString
        End If
    Next
End Sub
Public Sub DefineLabels()
    labels(0) = label1
    labels(1) = label2
    labels(2) = label3
End Sub
4

2 に答える 2

2

いくつかの問題

1:チェックしているので、データLabelCount>0 labels(0)が入力されることはありません。

2:ラベル配列の作成を進めるために、ループ内のアイテムごとに増分するものはありません。

3:itemドロップダウンのそれぞれがのインスタンスですListItem。それから何か役に立つものを得るには、またはのいずれitem.Textかを使用するのが最善ですitem.Value

于 2013-01-15T08:47:04.473 に答える
1

LabelCountの値が 0 のように見え、 で変更されていませんfor each。代わりに使用できます:

For i as Integer = 0 to DropDownList1.Items.Count
    If i >= 3 Then Exit For
    labels(i).Text = DropDownList1.Items(i).ToString()
Next

DropDownList1ComboBox などだと思います。

于 2013-01-15T08:50:30.823 に答える