Загрузка текста в ListBox
Черт не получается attach, если жно без него, тогда поехали:D
Посавлю здес очень простою задачку для вас,но сам не могу доделать его. Задачка состаит в том что, например в поиске (у нас это ComboBox) найден например АНЕГДОТЫ , хочу чтобы текстовой документ под именем АНЕКДОТЫ.txt (который находится в тойже папке где и сама программа) загрузился в ListBox.
Черт не получается attach, если жно без него, тогда поехали:D
Или я не понял вопросу или все так просто, а что тут сложного, надо либо делить split получать массив, но это если надо делить по характерным признакам, можно также подгружать через сплит Split(txtDATA,vbcrlf) тогда будем вставлять построчно, а можно построчно читать файл и построчно писать сразу же в листбокс!
Или я не понял вопросу или все так просто, а что тут сложного, надо либо делить split получать массив, но это если надо делить по характерным признакам, можно также подгружать через сплит Split(txtDATA,vbcrlf) тогда будем вставлять построчно, а можно построчно читать файл и построчно писать сразу же в листбокс!
Если можно примерчике код сюда, я сдесь мучаюсь:{
У меня код такой, добавь свой сюда
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_SHOWDROPDOWN = &H14F
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
RetVal = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0)
End Sub
Private Sub Form_Load()
Open App.Path & "\things.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Letter
Combo1.AddItem Letter
Loop
Close
Combo1.Text = ""
Flag = False
End Sub
Если можно примерчике код сюда, я сдесь мучаюсь:{
У меня код такой, добавь свой сюда
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_SHOWDROPDOWN = &H14F
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
RetVal = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0)
End Sub
Private Sub Form_Load()
Open App.Path & "\things.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Letter
Combo1.AddItem Letter
Loop
Close
Combo1.Text = ""
Flag = False
End Sub
Да вроде бы все прально, открываеш, читаеш, заносиш, сразу в комбо пишешь, а что конкретно не получается код работает нормально, в каком месте ошибка вылетает?
'C:\Documents and Settings\freeloader\Мои документы\ASP.txt
Dim letter As String
Open "C:\Documents and Settings\freeloader\Мои документы\ASP.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, letter
Combo1.AddItem (letter)
Loop
Close (1)
Combo1.Text = "Ура все прочитано!"
End Sub
работае как часы
Вопрос другой, как надо делат чтобы текстовой файл который был найден на ComboBox-e был загружен в ListBox!
Вот простой примерчик
Примерчик
А что, ни кто из знатоков не может ответит на этот простой вопрос? Для меня это очень важно,прошу помагите!!!
Нет дело просто в том, что я нихрена не могу понять, что от меня требуется, я так вроде как примерно сообразил, щас напишу и на мыл тебе кину!
А что, ни кто из знатоков не может ответит на этот простой вопрос? Для меня это очень важно,прошу помагите!!!
Держи!
Держи!
Пасиб друг, то что надо :D
Держи!
Код понравился, а можно использовать TextBox в место ListBox-a? Если да тогда оставте здес пример, я сама заменяю listbox на Textbox но не получается :(
Спасибо!!!
Код понравился, а можно использовать TextBox в место ListBox-a? Если да тогда оставте здес пример, я сама заменяю listbox на Textbox но не получается :(
Спасибо!!!
Хорошо будет и через текст бокс
Хорошо будет и через текст бокс
Вот тебе и с текстбоксом :}