VBNet - Форум - Из ListBox в TextBox

Вопрос: Из ListBox в TextBox Добавлено: 16.02.03 15:52

Автор вопроса: Silver Flamingo | ICQ: 116970115

Как сделать так, чтобы при выборе элемента в ListBox'е (например 2326523 - Владимир) в TextBox попадали только цифры? Please!
Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

paul_sn

Вопросов: 16
Ответов: 164

Web-сайт: sergeyev.zzn.com
Профиль | | #1

Добавлено: 16.02.03 20:29

Вот примерчик. Два варинта. Если ты знаешь количество цифр и если не знаешь

Option Explicit
Dim strAll As String
Dim strResult As String
Dim Pos As Integer
Dim Dr As String
Private Sub Command1_Click()
    strAll = List1.List(List1.ListIndex)
    strResult = Mid$(strAll, 1, 6)
    Text1.Text = strResult
End Sub

Private Sub Command2_Click()
    strResult = ""
    Pos = 1
    strAll = List1.List(List1.ListIndex)

    Do While Not Mid$(strAll, Pos, 1) = " "
        Dr = Mid$(strAll, Pos, 1)
        Pos = Pos + 1
        strResult = strResult & Dr
    Loop

        Text1.Text = strResult
End Sub

Private Sub Form_Load()
    List1.AddItem "123456 - dddddddd"
    List1.AddItem "332664 - sdfwefsd"
    List1.AddItem "359415 - sdfsfwww"
    List1.AddItem "234341234 - sdfsfwef"
    List1.AddItem "112 - sdfwdwerfwf"
End Sub

Ответить

Номер ответа: 2
Автор ответа: