none
listbox排序的問題 RRS feed

  • 問題

  • Public Class Form1

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If TextBox1.Text <> "" Then
                ListBox1.Items.Add((ListBox1.Items.Count + 1).ToString.PadLeft(3, "0") & "-" & TextBox1.Text)
                TextBox1.Text = ""
            End If
        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            If TextBox1.Text <> "" Then
                If ListBox1.SelectedIndex = -1 Then
                    ListBox1.Items.Add(TextBox1.Text)
                Else
                    ListBox1.Items(ListBox1.SelectedIndex) = (ListBox1.Items.Count - 1).ToString.PadLeft(3, "0") & "-" & TextBox1.Text
                End If
            End If
        End Sub

    請問我要如何更改編碼才能使button2修改listbox選項的同時保持編碼不變呢

    2013年4月10日 下午 12:33

解答

  • ListBox1.Items(ListBox1.SelectedIndex) = (ListBox1.SelectedIndex + 1).ToString.PadLeft(3, "0") & "-" & TextBox1.Text

    • 已標示為解答 s34188550 2013年4月10日 下午 01:12
    2013年4月10日 下午 01:06

所有回覆