(آموزشی) انتخاب خودکار آیتم در لیست باکس

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • ali.b

    • 2014/01/12
    • 798
    #1

    (آموزشی) انتخاب خودکار آیتم در لیست باکس

    سلام
    با کمک این کد می تونید هر متین که در تکست باکس تایپ کردین به صورت خودکار در لیست باکس انتخاب بشه
    به همراه فایل نمونه
    کد:
    Private Sub TextBox1_Change()
Dim i As Long
Dim sFind As String


sFind = Me.TextBox1.Text
If Len(sFind) = 0 Then
Me.ListBox1.ListIndex = -1
Me.ListBox1.TopIndex = 0
Else
For i = 0 To Me.ListBox1.ListCount - 1
If UCase(Left(Me.ListBox1.List(i), Len(sFind))) = UCase(sFind) Then
Me.ListBox1.TopIndex = i
Me.ListBox1.ListIndex = i
Exit For
End If
Next i
End If
End Sub
    فایل های پیوست شده
    [CENTER]
    [/CENTER]
    برچسب ها: هیچ‌کدام
    • Amir Mohsenpour

      • 2010/02/10
      • 146
      • 53.33
      #2
      سلام استاد عزیز
      فایل ضمیمه قابل دانلود نیست
      با تشکر
      [align=center]با تشکر
      امیر محسن پور[/align]

        کامنت

        • كامران

          • 2016/06/29
          • 147
          • 41.00
          #3
          نوشته اصلی توسط ali.b
          سلام
          با کمک این کد می تونید هر متین که در تکست باکس تایپ کردین به صورت خودکار در لیست باکس انتخاب بشه
          به همراه فایل نمونه
          کد:
          Private Sub TextBox1_Change()
Dim i As Long
Dim sFind As String


sFind = Me.TextBox1.Text
If Len(sFind) = 0 Then
Me.ListBox1.ListIndex = -1
Me.ListBox1.TopIndex = 0
Else
For i = 0 To Me.ListBox1.ListCount - 1
If UCase(Left(Me.ListBox1.List(i), Len(sFind))) = UCase(sFind) Then
Me.ListBox1.TopIndex = i
Me.ListBox1.ListIndex = i
Exit For
End If
Next i
End If
End Sub
          اتفاقآ منم دنبال این کد بودم ولی برای combobox کار کنه
          اگه توی این کد عوضش کنم کار میکنه ؟

            کامنت

            قبلی template بعدی
            چند لحظه..