Добре дошли!

Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

Въпрос за listbox

Последователи

4 февруари 201016 г.

Имам за задача да направя програма за превод. Списък с думи и като се цъкне на някоя да вади превода.

Идеята ми е да го направя с listbox и като се цъкне на някоя от думите в него отстрани да се показва превода. Как може да стане подобно нещо?

6 февруари 201016 г.

Private Sub List1_Click()

Select Case List1.ListIndex

Case Is = 0

Text1.Text = "Hello"

End Select

Select Case List1.ListIndex

Case Is = 1

Text1.Text = "Bye"

End Select

End Sub

Кьдето лист индекс 1 -думата "Здравей" 2-думата "Довниждане"

П.с. Изисква се да си направиш модулче с всички думи за превод , сьщо тька трябва да напишеш точни изрази за да не се получават недосмислици!

Редактирано 6 февруари 201016 г. от slav4opk (преглед на промените)

7 февруари 201016 г.

Автор

Страшно много ти благодаря! А може ли да стане следното нещо...имам text box в него пиша примерно dog и то си го намира в listbox-а и ми го изкарва превода - куче или това е вече прекалено сложно?

7 февруари 201016 г.

Отделен TextBox ли искаш да е или Text1.Text?

Според мен е по добре само два TextBoxs и option.buttons да избере6 от Eng - Bg или Bg - Eng!

7 февруари 201016 г.

Автор

Идеята ми е да има text box където като напиша dog, то да ми го намери в списъка с думи който ще вкарам и да ми изкара превода куче.

8 февруари 201016 г.

Private Sub cmdClick_Click()

Dim I As Integer

For I = 0 To lstList1.ListCount - 1

If lstList1.Selected(I) Then

txt1.Text = lstList1.List(I)

End If

Next I

End Sub

Може и така ... ако ще ти е по-лесно, но с Command button :angry: Няма нужда да изписваш код за всяка дума :angry:

Редактирано 8 февруари 201016 г. от aMoPe (преглед на промените)

8 февруари 201016 г.

Автор

aMoPe, това нещо не бачка като го сложа си ми вади пак английското...

А как може да стане това за което писах в предишния ми пост?

Редактирано 8 февруари 201016 г. от doomblade (преглед на промените)

8 февруари 201016 г.

Знаеш ли какво направих аз Май все пак ще стане с код за всяка думичка :down:

Private Sub lstList1_Click()

If lstList1.ListIndex = 0 Then

txtText1.Text = "Довиждане"

End If

If lstList1.ListIndex = 1 Then

txtText1.Text = "Здравей"

End If

End Sub

Така, а думичките ги въведох от с-то List за лист бокса ... Ще даваш стойност на листиндекс съотвтно от 0 до колкоото думички имаш ...И проверяваш за всяка дума.... Малко е дълъг метода но става.Ето ти скрийншот:

Дано съм помогнала

Слабостта му каква е ... ако дадеш на Sorted = true програмата ше ги кара по ред не по азбучен ред, защото на listindex си дал съответно 1,2,3 и т.н. А както може би знаеш, индекса е с приоритет над Sorted. Не знам, ще помисля пак и ако мога ще доусъвършествам ..

Редактирано 8 февруари 201016 г. от aMoPe (преглед на промените)

8 февруари 201016 г.

aMoPe незнам защо се задьлбочаваш , момчето ясно каза какво му е нужно!

Private Sub List1_Click()

Select Case List1.ListIndex

Case Is = 0

Text1.Text = "Hello"

End Select

Select Case List1.ListIndex

Case Is = 1

Text1.Text = "Bye"

End Select

Select Case List1.ListIndex

Case Is = 2

Text1.Text = "Dog"

End Select

End Sub

Private Sub Text2_Change()

If Text2.Text = "Куче" Then

List1.ListIndex = 2

End If

End Sub

В листа си добави "Куче" - добави си и TextBox - Text2!

Мисля че от примера с кучето можеш да си направиш останалите думички!?!

Редактирано 8 февруари 201016 г. от slav4opk (преглед на промените)

8 февруари 201016 г.

Автор

Идеално, а има ли вариант да не прави разлика между въвеждането на куче, Куче, КУЧЕ, кУче и т.н.?

Или автоматично да обръща всичко въведено в textbox-a в малки букви, и аз в кода да ги въвеждам с малки букви...

Редактирано 8 февруари 201016 г. от doomblade (преглед на промените)

9 февруари 201016 г.

ами ако използваш варианта на @slav4opk тогава думата , която въвеждаш в Text2.Text я превърни в малки символи, използвайки функцията LCase.

например:

Private Sub Text2_Change()

cntr=LCase(Text2.Text)

If cntr = "куче" Then

List1.ListIndex = 2

End If

по този начин както и да въведеш думата в текстбокса тя винаги ще бъде преобразувана в малки букви.

Редактирано 9 февруари 201016 г. от shanto (преглед на промените)

9 февруари 201016 г.

Автор

Благодаря на всеки един който ми помогна!

9 февруари 201016 г.

@slav4opk добре де ... за всяка дума ли трябва да се пише код? Не може ли да се направи с цикъл по някакъв начин? Но трябва да имаш инсталиран транслатор за целта, нали... или? Друга идея имаш ли ? :shake_puter: защото така става много дълго .. а какво казваше за модула?