Добре дошли!

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

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

Помощ за една задачка в vb

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

15 юни 200818 г.

Dim x As String
x = Combo1.Count
If x = 1 Then
Label1.Caption = "Намерете лицето на триъгълник ABC с дадени :"
Label4.Caption = ""Лицето на триъгълник ABC е:"
Label6.Caption = "ha="
Label7.Visible = False
Text3.Visible = False
Image1.Picture = LoadPicture(App.Path & "\triangle.bmp")
ElseIf x = 2 Then
Label1.Caption = "Намерете лицето на правоъгълник ABCD с дадени :"
Label4.Caption = ""Лицето на правоъгълник ABCD е:"
Label6.Caption = "b="
Label7.Visible = False
Text3.Visible = False
Image1.Picture = LoadPicture(App.Path & "\rec.bmp")
ElseIf x = 3 Then
Label1.Caption = "Намерете лицето на трапеца ABCD с дадени :"
Label4.Caption = ""Лицето на трапеца а ABCD е:"
Label6.Caption = "b="
Label7.Visible = True
Text3.Visible = True
Image1.Picture = LoadPicture(App.Path & "\trapec.bmp")
Else
MsgBox "Изберете фигура !", , "Лице на фигура "
End If
End Sub

Моля ви помогнете ми

Къде е грешката ми?

Редактирано 15 юни 200818 г. от samon (преглед на промените)

15 юни 200818 г.

""Лицето на триъгълник ABC е:"

Това не трябва ли да е без едното ". VB не разбирам ама така ми се струва :speak:

16 юни 200818 г.

Автор

""Лицето на триъгълник ABC е:"

Това не трябва ли да е без едното ". VB не разбирам ама така ми се струва

Не те разбрах как <<"Лицето на триъгълник ABC е:" да е без едно>> да нямаш предвид х=1?

ако е това, според теб как трябва да е х=0? незна ама на мен така не става.

Ако някои има други идеи да пише :rolleyes:

Ето още малко инфо:

Целта е като от комбо-бокса избереш правоъгълвик или трапец и натиснеш чайката/чекчето, да ти излязат параметрите за да можеш да сметнеш лицето. :-)

Проблема е че когато избера нещо различно от триъгълник не ми излиза нищо т.е не работи.

Редактирано 16 юни 200818 г. от samon (преглед на промените)

16 юни 200818 г.

Проблема е че когато избера нещо различно от триъгълник не ми излиза нищо т.е не работи.

Промени леко логиката:

Combo1.OnChange

If Combo1.Value == 1 Then

Label1.Caption = "Намерете лицето на триъгълник ABC с дадени :"

.....

и т.н. Идеята е да се прехване събитието в смяната на стойността на комбо бокса, иначе ВБ-то няма как да разбере, че потребителя е направил някаква промяна

16 юни 200818 г.

Автор

Промени леко логиката:

Combo1.OnChange

If Combo1.Value == 1 Then

Label1.Caption = "Намерете лицето на триъгълник ABC с дадени :"

.....

и т.н. Идеята е да се прехване събитието в смяната на стойността на комбо бокса, иначе ВБ-то няма как да разбере, че потребителя е направил някаква промяна

Мерси мого сега ще го пробвам