Private Sub Combo1_Change()
Label1.Caption = Combo1
End Sub
Private Sub Combo1_Click()
Label1.Caption = Combo1
End Sub
Private Sub SetStatus()
Label1.Caption=Combo1.Text
Label2.Caption=Text1.Text
Label3.Caption=Form1.Caption
End Sub
Private Sub Combo1_Change()
SetStatus
End Sub
alleonid писал(а):Пытаюсь понять почему комбо ченджь не работает
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 21