我正在将VB6应用程序移植到.NET,所需的UI元素之一是水平列表框。我似乎无法弄清楚如何在.NET中复制它。
样本:
VB6代码将复制上面的图像:
Private Sub Form_Load()
lst_horizontal(1).FontSize = 6
Dim iMaxChoices As Integer
iMaxChoices = 10
For i = 1 To iMaxChoices
lst_horizontal(1).AddItem (" " + CStr(i))
Next i
End Sub
Private Sub lst_horizontal_Click(Index As Integer)
Dim iMaxChoices As Integer
iMaxChoices = 10
For i = 0 To iMaxChoices - 1
If lst_horizontal(1).Selected(i) Then
Debug.Print ("Item " + CStr(i + 1) + " selected")
End If
Next i
狡猾的词:我可以弄清楚如何在Silverlight/XAML中复制它,但是不能以这种方式完成此应用程序。
最佳答案
Winforms也支持此功能。将MultiColumn属性设置为True,将ColumnWidth属性设置为15。