Сообщение от SBJoker
на основе какой информации текст должен меняться? Просто по порядку?
Присвой в редакторе форм свойству Tag кнопки значение 0 (ноль).
Private Sub Command1_Click()
dim k as integer
k = CInt(Command1.Tag)
k = k + 1
Command1.Tag = k
select case k
case 1
Label1.Caption = "First text"
case 2
Label1.Caption = "Second text"
case else
Label1.Caption = "Last text"
end select
End Sub
|
k = CInt(Command1.Tag) - Ошибка Не совпадение типов
А если исключить эту строчку , то перещёлкивание не идёт а стоит на First text .
СПАСИБО ЧТО ОТКОЛИКНУЛИСЬ .
БУДУДАЛЬШЕ ПРОБОВАТЬ -если у кого идеи появяться подкиньте