VB 請教

  1. Private Sub FindStringButton_Click(ByVal sender As System.Object, _
  2. ByVal e As System.EventArgs) Handles FindStringButton.Click
  3.     Dim index As Integer = ListBox1.FindString(TextBox1.Text)
  4.     If (index < 0) Then
  5.         MessageBox.Show("找不到你要的選項.")
  6.         TextBox1.Text = String.Empty
  7.     Else
  8.         ListBox1.SelectedIndex = index
  9.     End If
  10. End Sub
複製代碼
問題:
  點樣可以連同符號, 大細階都跟足?
  FindString 搜尋唔到開頭為符號既item
  大細又分唔開- -
   E.G : [1234]
            ABC

問題:
  點樣可以連同符號, 大細階都跟足?
  FindString 搜尋唔到開頭為符號既item
  大細又分唔開- -
   E ...
ksleung 發表於 2016-1-20 23:52



    what???   did you still use vb6 to develop ?  so old

TOP

回覆 2# student_abc


    VB 2010

TOP

回覆  student_abc


    VB 2010
ksleung 發表於 2016-1-21 00:09


其實你唔駛理佢..
答返你條問題...
ListBox1.Items.IndexOf

TOP

本帖最後由 mtpmanhauyin 於 2016-1-21 00:35 編輯

回覆 1# ksleung


    Dim ListBox1_Max as integer = ListBox1.Items.count - 1
    Dim index as integer

    For i as integer = 0 To ListBox1_Max
           If Instr(ListBox1.Item(i), TextBox1.Text) >0
                 ListBox1.SelectedIndex = i
           Else
                  MessageBox.Show("找不到你要的選項.")
                  TextBox1.Text = String.Empty
           End If
    Next

唔知岩唔岩

TOP

回覆 5# mtpmanhauyin
  1. Dim ListBox1_Max as integer = ListBox1.Items.count - 1
  2.     Dim index as integer

  3.     For i as integer = 0 To ListBox1_Max
  4.            If Instr([color=Red]ListBox1[/color].Item(i), TextBox1.Text) >0
  5.                  ListBox1.SelectedIndex = i
  6.            Else
  7.                   MessageBox.Show("找不到你要的選項.")
  8.                   TextBox1.Text = String.Empty
  9.            End If
  10.     Next
複製代碼
呢到唔得@@

TOP

回覆  mtpmanhauyin 呢到唔得@@
ksleung 發表於 2016-1-21 01:02


如果係C#就咁寫.. VB.NET分別不大...
  1. private void button1_Click(object sender, EventArgs e)
  2.         {
  3.             int idx = listBox1.Items.IndexOf(textBox1.Text);
  4.             if (idx < 0)
  5.             {
  6.                 MessageBox.Show("找不到你要的選項.");
  7.                 textBox1.Text = String.Empty;
  8.             }
  9.             else {
  10.                 MessageBox.Show(idx.ToString());
  11.             }
  12.         }
複製代碼

TOP

回覆 7# 7h1r733n


    THX..

TOP