Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу Народ помогите полу-чайнику. Словарь из 100 слов
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
alex-ttt alex-ttt вне форума
Новичок
 
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.04.2006
По умолчанию Народ помогите полу-чайнику. Словарь из 100 слов - 12.04.2006, 21:38

Вообщем суть такова. Есть 100 русских слов и 100 английских переводов к ниму. Нужно сделать так, что при выборе русского слова в ListBox - английский перевод к ниму писался где нибудь, хотябы в TextBox.

Сделал только пока список слов в ListBox

Код:
Private Sub Form_Load()
List1.AddItem "go"
List1.AddItem "walk"
.....
.....
End sub
Поможите кто чем может, мне эта прога жуть как важна. Заранее ООООООгрооооооооомнейшее спасибо!
Если че - аська 304243155
Ответить с цитированием
  (#2 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 12.04.2006, 22:20

Вот приблизительный алгоритм реализации Вашей задачи :

Код:
Private Sub Form_Load()
iRussian = Array("Идти", "Проходить", "Наркотик", "Ключ", "Книга")
List1.List = iRussian
End Sub

Private Sub List1_Click()
Text1.Text = GetEnglishWord(List1.ListIndex + 1)
End Sub

Private Function GetEnglishWord(iWord)
GetEnglishWord = Choose(iWord, "Go", "Walk", "Drug", "Key", "Book")
End Function
Ответить с цитированием
  (#3 (permalink)) Старый
alex-ttt alex-ttt вне форума
Новичок
 
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.04.2006
По умолчанию 13.04.2006, 09:10

pashulka, ругается на List1.list = iRussian пишет Compile error : Argument not original[/b]
Ответить с цитированием
  (#4 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 13.04.2006, 13:46

alex-ttt, В ActiveX элементах управления используемых в MS Office такой синтаксис является правильным, а вот чистого VB у меня нет, поэтому я и сказал приблизительный, т.е. допускающий изменения. В качестве обходного решения, можно использовать что-то вроде :

Код:
Private Sub Form_Load()
Dim iCount As Integer
For iCount = 1 To 100
    List1.AddItem GetRussianWord(iCount)
Next
End Sub

Private Sub List1_Click()
Text1.Text = GetEnglishWord(List1.ListIndex + 1)
End Sub

Private Function GetRussianWord(iWord As Integer) As String
GetRussianWord = Choose(iWord, "Идти", "Проходить", "Наркотик", _
                 "Ключ", "Книга")
End Function

Private Function GetEnglishWord(iWord As Integer) As String
GetEnglishWord = Choose(iWord, "Go", "Walk", "Drug", "Key", _
                 "Book")
End Function
Ответить с цитированием
  (#5 (permalink)) Старый
alex-ttt alex-ttt вне форума
Новичок
 
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.04.2006
По умолчанию 13.04.2006, 16:01

УРААА!!!! РАБОтАЕТ! Спасибо!!! По больше-бы таких людей! Спас!
Ответить с цитированием
Ads.
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите чайнику ) Lamer1 Windows 7 10 22.06.2012 22:52
помогите чайнику!!! petes Любые вопросы от новичков 3 06.01.2012 05:19
помогите чайнику саша28 Любые вопросы от новичков 3 06.11.2011 02:08
Помогите чайнику!!! iv-gumen Видеокарты 15 28.08.2011 23:18
помогите чайнику Любомир Любые вопросы от новичков 10 08.06.2011 12:50
Помогите чайнику!!! petes Любые вопросы от новичков 4 05.06.2011 13:12
помогите чайнику!!! odessit Охлаждение и разгон 0 01.05.2011 02:03
помогите чайнику zumae Материнские платы 9 27.03.2011 15:54
Помогите чайнику с выбором) divi Видеокарты 3 02.08.2009 23:22
2009 год – помогите выбрать (полу-)/профессиональную видеокамеру artmaster44 Подбор комплектующих 1 07.01.2009 15:29



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов