Pridani * do stringu – Visual Basic – Fórum – Programujte.com

cauvec mel bych na vas jeste prosim otazku jak by se dalo udelat kdyz mam treba button a v nem v caption "*", kdyz se na tento button klikne tak se prida jedna "*" a bude to fungovat tak dlouho dokud tam nebude 5 hvezdicek
"

Pokud jsem pochopil dotaz, má se měnit vlastnost Caption Command tlačítka :

Private Sub Command1_Click()
If Len(Command1.Caption) < 5 then
Command1:Caption = Command1.Caption & "*"
End If
End Sub

Je to opravdu jednoduché. Tlačítku Command1 dej do Caption "*" (hvězdičku) a pak do Procedury Command_Click vlož následující kod:

Private Sub Command1_Click()

  If Command1.Caption < "*****" Then

     Command1.Caption = Command1.Caption & "*"

  End If

End Sub

To jkonopasek : j to je onco diky moc