powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с программой
25 сообщений из 34, страница 1 из 2
Помогите с программой
    #36507941
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ссылка на программу
http://webfile.ru/4347601

Часть программы:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Function Search(KeyField) As Integer
   List1.Text = KeyField
   Search = List1.ListIndex
End Function
--------------------------------
Private Sub Auto_Change()
   position = Search(Trim$(Auto.Text))
   
   If position > - 1  Then
       List1.ListIndex = position
       
       ShowRecord
   Else
       MaxSpeed.Text = ""
       Power.Text = ""
       Price.Text = ""
   End If
End Sub



С помощью этой функции осуществляется поиск, если в поле ввести название из листбокса(Марка и модель) то выведет все данные про нее.
Может ли кто обьяснить как это работает???
Заранее спс
...
Рейтинг: 0 / 0
Помогите с программой
    #36507951
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bosscs,

Гм, а что именно неясно?

Функция Search пытается выставить значение текста (Text) листа по полю поиска Auto.
Если ей это удается, индекс List1.ListIndex становится равен индексу этого значения, соответственно запускается ShowRecord.

Правда, значение в поле Auto должно точно соответствовать одному из элементов листа, то есть поиск по подстроке работать не будет, что, в общем-то достаточно не гуд.
...
Рейтинг: 0 / 0
Помогите с программой
    #36507955
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
P.S. Читайте правила форума и правильно выбирайте заголовок топика.
...
Рейтинг: 0 / 0
Помогите с программой
    #36507968
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не ясно как оно работает, хз почему. С чего начинает работать, вообщем я в этом деле слаб, нужно понять как это работает.
Код: plaintext
1.
2.
3.
Function Search(KeyField) As Integer
   List1.Text = KeyField
   Search = List1.ListIndex
End Function
Можно подробнее как эта функция рабротает?Что такое KeyField, почему оно написано в скобках рядом с названием?
...
Рейтинг: 0 / 0
Помогите с программой
    #36507971
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bosscsЧто такое KeyField, почему оно написано в скобках рядом с названием?

Ну вы, блин даете. А почему само слово Function вас не смущает? Или слово As....


В общем так, берем учебник , изучаем, что такое параметры функции, потом возвращаемся и задаем вопросы далее.
...
Рейтинг: 0 / 0
Помогите с программой
    #36507986
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я здесь, что бы вы отвечали на нужные мне вопросы, а не на те, которые вам нравятся. Хотя это конечно ваше дело, просто мне до завтра нужно эту работу понять.
...
Рейтинг: 0 / 0
Помогите с программой
    #36507994
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bosscsЯ здесь, что бы вы отвечали на нужные мне вопросы, а не на те, которые вам нравятся. Хотя это конечно ваше дело, просто мне до завтра нужно эту работу понять.

Ого! А амбиций-то у вас! Я думал, что я здесь для того, чтобы помогать людям, которые хотят, чтобы им помогли. А оказалось, что я вам еще и чем-то обязан.

Ответ на ваш вопрос:
bosscsЧто такое KeyField, почему оно написано в скобках рядом с названием?

Это параметр функции. В скобках он потому, что того требует синтаксис VB. Синтаксис VB такой, потому что так решил Билли.

bosscsМожно подробнее как эта функция рабротает?

В общих чертах работу функции я описал выше.
А подробнее - здесь один объект, два свойства, две переменных и один оператор присваивания. Что именно из них неясно?
...
Рейтинг: 0 / 0
Помогите с программой
    #36507998
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я вообще первый раз вижу этот параметр, и не понимаю как, зачем и почему его присваивают листбоксу. Далее Search = List1.ListIndex. Присваиваем всей функции значение выбранной записи, опять же никак не могу понять)
...
Рейтинг: 0 / 0
Помогите с программой
    #36508001
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bosscsЯ вообще первый раз вижу этот параметр, и не понимаю как, зачем и почему его присваивают листбоксу.

Это и есть строка поиска и присваивают ее с целью поиска.

Если такой текст не будет найден среди элементов листбокса, то ListIndex будет равен -1. Если будет найден - то он станет текущим элементом, соответственно ListIndex на него укажет.


bosscsДалее Search = List1.ListIndex. Присваиваем всей функции значение выбранной записи, опять же никак не могу понять)

результат будет проверен в строке
Код: plaintext
If position > - 1  Then

то есть это и есть проверка найден/не найден
...
Рейтинг: 0 / 0
Помогите с программой
    #36508004
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
List1.Text это текст их листбокса? присваиваем KeyField(Я так понимаю это то, что мы вводим)
правильно?Search = List1.ListIndex функции присваиваем номер выбраного элем. Все равно не вижу смысла)
position = Search(Trim$(Auto.Text)) убираем пробелы и присваиваем, до этого у нас Search=индексу елем. Хз, я вообще запутался((
...
Рейтинг: 0 / 0
Помогите с программой
    #36508008
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bosscsList1.Text это текст их листбокса? присваиваем KeyField(Я так понимаю это то, что мы вводим) правильно?

List1.Text - это текст ТЕКУЩЕГО элемента листбокса. Его можно не только прочитать, но и ЗАПИСАТЬ, изменив таким образом текущий элемент

bosscsSearch = List1.ListIndex функции присваиваем номер выбраного элем. Все равно не вижу смысла)

Смысл в том, чтобы сравнить его с значением -1 и понять, найден элемент или нет

bosscsposition = Search(Trim$(Auto.Text)) убираем пробелы и присваиваем, до этого у нас Search=индексу елем. Хз, я вообще запутался((

position становится равно индексу элемента с текстом Auto.Text. Или -1, если текст не найден.
...
Рейтинг: 0 / 0
Помогите с программой
    #36508010
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
выкиньте вообще функцию search
так понятнее?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Auto_Change()

   List1.Text = Trim$(Auto.Text)
   
   If List1.ListIndex > - 1  Then
        ShowRecord
   Else
       MaxSpeed.Text = ""
       Power.Text = ""
       Price.Text = ""
   End If

End Sub
...
Рейтинг: 0 / 0
Помогите с программой
    #36508015
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
К примеру
Выбрал 1 елем
BMW M3 GRT=введенный текст
Search=1
position = Search(введенный текст))
Если -1
List1.ListIndex=-1
ShowRecord
-1 это же не найдено, почему идет ShowRecord?
Else все поля пустые

мдя( Сорри, я глуп(
...
Рейтинг: 0 / 0
Помогите с программой
    #36508019
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bosscsК примеру
Выбрал 1 елем
BMW M3 GRT=введенный текст
Search=1
position = Search(введенный текст))
Если -1
List1.ListIndex=-1
ShowRecord
-1 это же не найдено, почему идет ShowRecord?
Else все поля пустые


Если НЕ найдено, ShowRecord НЕ идет
...
Рейтинг: 0 / 0
Помогите с программой
    #36508021
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Это уже проще, но врядли я понимаю
List1.Text = Trim$(Auto.Text)
Текст=введенному тексту
If List1.ListIndex > -1 Then
Если совпадает то List1.ListIndex сам становится на то значение, которое совпало?
...
Рейтинг: 0 / 0
Помогите с программой
    #36508022
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bosscsЕсли совпадает то List1.ListIndex сам становится на то значение, которое совпало?

Да. Я это писал вам в 23:42 и в 00:50
...
Рейтинг: 0 / 0
Помогите с программой
    #36508023
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Это уже проще, но врядли я понимаю
List1.Text = Trim$(Auto.Text)
Текст=введенному тексту
Результатом этого что мб? -1 либо
If List1.ListIndex > -1 Then
Если совпадает то List1.ListIndex сам становится на то значение, которое совпало?
...
Рейтинг: 0 / 0
Помогите с программой
    #36508025
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
List1.Text = Trim$(Auto.Text)
Текст=введенному тексту
Результатом этого мб? либо -1 либо оно если оно совпало, то оно становится на нужный листиндекс?
...
Рейтинг: 0 / 0
Помогите с программой
    #36508027
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bosscsРезультатом этого мб? либо -1 либо оно если оно совпало, то оно становится на нужный листиндекс?

Да. Я это писал вам в 23:42, в 00:50 и в 01:41
...
Рейтинг: 0 / 0
Помогите с программой
    #36508028
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Огромное спасибо, и низкий вам поклон, что смогли выдержать мои сверхумные вопросы.
Надеюсь это последний:
А почему оно само становится на нужный индекс? Как оно это понимает, ведь это всего лишь совпавший текст
...
Рейтинг: 0 / 0
Помогите с программой
    #36508029
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bosscs
А почему оно само становится на нужный индекс? Как оно это понимает, ведь это всего лишь совпавший текст

Вам нужны исходники листбокса? Это не ко мне, это к Билли.
...
Рейтинг: 0 / 0
Помогите с программой
    #36508030
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Все ухожу, ухожу.
Еще рас спасибо!
...
Рейтинг: 0 / 0
Помогите с программой
    #36508031
Фотография IguMEN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А становится ли? Ни одного условия в функции Search не наблюдается. На мой взгляд, функция слегка кастрирована.
_______________________
Public Морозов
...
Рейтинг: 0 / 0
Помогите с программой
    #36508033
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
IguMEN,

так прога-то работает? в чем сомнения?
...
Рейтинг: 0 / 0
Помогите с программой
    #36510306
Фотография IguMEN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Впервые вижу такой РАБОЧИЙ поиск по листбоксу
_______________________
Public Морозов
...
Рейтинг: 0 / 0
25 сообщений из 34, страница 1 из 2
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с программой
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]