一个关于自定义控件的问题
Public Class listbox Inherits System.Windows.Forms.UserControl Public str_VenuesName As String Public str_VenuesNo As String Public arrListItems As New ArrayList Public str_BookTime() As String Private m_textcolor As Color = System.Drawing.Color.Black '字体颜色 Private Sub listbox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Label1.Text = str_VenuesNo & str_VenuesName Dim b As Integer Dim s As String'需要返回的值 Dim c As String'需要返回的值 For b = arrListItems.Count - 1 To 0 Step -1 s = arrListItems.Item(b).ToString().Remove(arrListItems.Item(b).ToString().Length - 1, 1) c = arrListItems.Item(b).ToString().Substring(arrListItems.Item(b).ToString().Length - 1, 1) MessageBox.Show(s & c) Me.List.Items.Add(s) Next End Sub Public Sub List_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles List.Click MessageBox.Show(Me.List.Items(Me.List.SelectedIndex)) End SubEnd Class
