Переменная в нескольких процедурах - VB
Формулировка задачи:
только выделяется почемуто "bytq" и пиется "variable not defined". ИМХО я както неправильно обявил "g". но как надо?
з.ы. процедур несколько и все они должны считать именно эту g по всей проге
з.з.ы. остальные процедуры такие же тока там другие лэйблы и комманды
Решение задачи: «Переменная в нескольких процедурах»
textual
Листинг программы
Private g As Byte Private Sub Command1_Click() Label1.Visible = False Label2.Visible = True Command1.Visible = False Command3.Visible = True Command2.Visible = False Command4.Visible = True q = q + 1 Command1.Caption = "q=" & q End Sub Private Sub Command2_Click() Label1.Visible = False Command1.Visible = False Command2.Visible = False Command3.Visible = True Command4.Visible = True Label2.Visible = True q = q + 1 Command2.Caption = "q=" & q End Sub Private Sub Command19_Click() Command19.Visible = False Command20.Visible = False Command21.Visible = False Command22.Visible = False Label8.Visible = False Label9.Visible = True q = q + 1 Command19.Caption = "q=" & q Form1.Print q End Sub Private Sub Command20_Click() Command19.Visible = False Command20.Visible = False Command21.Visible = False Command22.Visible = False Label8.Visible = False Label9.Visible = True q = q + 1 Command20.Caption = "q=" & q Form1.Print q End Sub Private Sub Command21_Click() Command19.Visible = False Command20.Visible = False Command21.Visible = False Command22.Visible = False Label8.Visible = False Label9.Visible = True q = q + 1 Command21.Caption = "q=" & q Form1.Print q End Sub Private Sub Command22_Click() Command19.Visible = False Command20.Visible = False Command21.Visible = False Command22.Visible = False Label8.Visible = False Label9.Visible = True q = q + 1 Command22.Caption = "q=" & q Form1.Print q
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д