Private Sub Form_Load()
'Combo3.Clear: Combo4.Clear
Combo3.AddItem "UTTT"
Combo3.AddItem "UTSB"
Combo3.AddItem "UTNN"
Combo3.AddItem "UTMA"
Combo3.AddItem "UTSS"
Combo3.AddItem "UTTN"
End Sub
Private Sub Combo3_Click()
Combo4.Clear
Select Case Combo3.ListIndex
Case 0
Combo4.AddItem "08"
Combo4.AddItem "26"
Case 2
Combo4.AddItem "02"
Combo4.AddItem "20"
End Select
End Sub
ComboBox в Visual Basic
Здравствуйте, уважаемые форумчане! Я не являюсь программистом но мне нужно написать небольшую программку. У меня появилась проблема такого характера:
Необходимо чтобы при создании списка в combobox допустим вот такого:
Private Sub form_load()
Combo3.AddItem "UTTT", 0
Combo3.AddItem "UTSB", 1
Combo3.AddItem "UTNN", 2
Combo3.AddItem "UTMA", 3
Combo3.AddItem "UTSS", 4
Combo3.AddItem "UTTN", 5
В другом созданном Combobox при выборе в combo3 значения UTTT появлялись только два значения, например 01, 19, а при выборе значения UTMA только 02 и 20. Я думаю это просто, но не знаю как это сделать. Я пытался сделать это таким образом:
Private Sub form_load()
Combo3.AddItem "UTTT", 0
Combo3.AddItem "UTSB", 1
Combo3.AddItem "UTNN", 2
Combo3.AddItem "UTMA", 3
Combo3.AddItem "UTSS", 4
Combo3.AddItem "UTTN", 5
If Combo3.Text = "UTNN" Then
Combo4.AddItem "02", 0
Combo4.AddItem "20", 1
end if
If Combo3.Text = "UTTT" Then
Combo4.AddItem "08", 0
Combo4.AddItem "26", 1
end if
end sub
у меня естественно не получилось.
Буду очень благодарен за помощь. Кому интересно UTTT и т.д. это четырехбуквенные обозначения аэропортов, а цифры это посадочные курсы ВПП. Я пытаюсь сделать небольшой навигациооный калькулятор. Заранее всем спасибо!!!
Необходимо чтобы при создании списка в combobox допустим вот такого:
Private Sub form_load()
Combo3.AddItem "UTTT", 0
Combo3.AddItem "UTSB", 1
Combo3.AddItem "UTNN", 2
Combo3.AddItem "UTMA", 3
Combo3.AddItem "UTSS", 4
Combo3.AddItem "UTTN", 5
В другом созданном Combobox при выборе в combo3 значения UTTT появлялись только два значения, например 01, 19, а при выборе значения UTMA только 02 и 20. Я думаю это просто, но не знаю как это сделать. Я пытался сделать это таким образом:
Private Sub form_load()
Combo3.AddItem "UTTT", 0
Combo3.AddItem "UTSB", 1
Combo3.AddItem "UTNN", 2
Combo3.AddItem "UTMA", 3
Combo3.AddItem "UTSS", 4
Combo3.AddItem "UTTN", 5
If Combo3.Text = "UTNN" Then
Combo4.AddItem "02", 0
Combo4.AddItem "20", 1
end if
If Combo3.Text = "UTTT" Then
Combo4.AddItem "08", 0
Combo4.AddItem "26", 1
end if
end sub
у меня естественно не получилось.
Буду очень благодарен за помощь. Кому интересно UTTT и т.д. это четырехбуквенные обозначения аэропортов, а цифры это посадочные курсы ВПП. Я пытаюсь сделать небольшой навигациооный калькулятор. Заранее всем спасибо!!!
Попробуйте использовать что-то вроде :
Код:
P.S. Чуть не забыл :) предполагается, что у Combo3 значение свойства Style должно быть 2 - DropDownList
Спасибо большое мне это очень помогло, есть ещё один небольшой вопросик, как округлять числа в VB 5.0 допустим есть число 14,643278 как сделать так чтобы после запятой оставалось два знака. Я перепробовал все варианты, что нашел в инете, но все они не помогли. Поможите плиз! Заранее спасибо!
Например, так :
Код:
'Visual Basic 5.0
Dim X As Double
X = 14.643278
MsgBox X
MsgBox Format(X, "0.00") 'текст
MsgBox CDbl(Format(X, "0.00")) 'число
Dim X As Double
X = 14.643278
MsgBox X
MsgBox Format(X, "0.00") 'текст
MsgBox CDbl(Format(X, "0.00")) 'число
а как это сделать в этой ситуации есть кнопочка при нажатии на которую производится расчет
Private Sub cmd1_Click()
U1 = txt1.Text
U2 = txt2.Text
X = U1*U2
txt3.Text = Str(X)
End sub
как в этом случае округлить X?
Private Sub cmd1_Click()
U1 = txt1.Text
U2 = txt2.Text
X = U1*U2
txt3.Text = Str(X)
End sub
как в этом случае округлить X?
P.S. при этом в textBox txt3 должен появлятсся уже округленное число, после нажатия cmd1.
Извините я разобрался!!! Спасибо большое. сделал вот так:
Private Sub cmd1_Click()
U1 = txt1.Text
U2 = txt2.Text
X = U1*U2
txt3.Text = (Format(X, "0.00"))
End sub
Извините я разобрался!!! Спасибо большое. сделал вот так:
Private Sub cmd1_Click()
U1 = txt1.Text
U2 = txt2.Text
X = U1*U2
txt3.Text = (Format(X, "0.00"))
End sub
IMHO, в Вашем случае, нет особой необходимости в переменных, ибо достаточно :
Хотя я бы всё-таки использовал функцию CDbl (если в качестве разделителя целой и дробной части - используется запятая) или функцию Val (ежели разделителем выступает точка), т.е.
Код:
Private Sub cmd1_Click()
txt3.Text = Format(txt1.Text * txt2.Text, "0.00")
End Sub
txt3.Text = Format(txt1.Text * txt2.Text, "0.00")
End Sub
Хотя я бы всё-таки использовал функцию CDbl (если в качестве разделителя целой и дробной части - используется запятая) или функцию Val (ежели разделителем выступает точка), т.е.
Код:
Private Sub cmd1_Click()
txt3.Text = Format(CDbl(txt1.Text) * CDbl(txt2.Text), "0.00") '15,1 * 10,25
'txt3.Text = Format(Val(txt1.Text) * Val(txt2.Text), "0.00") '15.1 * 10.25
End Sub
txt3.Text = Format(CDbl(txt1.Text) * CDbl(txt2.Text), "0.00") '15,1 * 10,25
'txt3.Text = Format(Val(txt1.Text) * Val(txt2.Text), "0.00") '15.1 * 10.25
End Sub