• На форуме с 9 июня 2008г.
  • Сообщений: 47
  • Спасибо: 0

Тема: ФайлЛистБокс

Как выделить программно в файлЛистБоксе строку, чьё имя известно? smile

  • fixo
  • fixo
  • Активный участник
  • Откуда: СПб
  • На форуме с 7 февраля 2009г.
  • Сообщений: 869
  • Спасибо: 41

Re: ФайлЛистБокс

На VBA :

' press enter after update
Private Sub TextBox1_AfterUpdate()
Dim i As Integer
On Error GoTo Err_Control
Dim match As String
match = TextBox1.Text
For i = 0 To ListBox1.ListCount - 1
If StrComp(CStr(ListBox1.List(i)), match) = 0 Then
ListBox1.Selected(i) = True
End If
Next
Err_Control:
If Err.Number <> 0 Then MsgBox Err.Description
End Sub

~'J'~