VBA: Tilføj ekstra tegn til UserForm tekstboks
Hej alle,Jeg sidder og bokser med en problemstilling, som jeg håber I kan bidrage med lidt hjælp til.
OPLÆG:
Jeg har en UserForm, der skal bruges til noget rollespil. I den kan brugeren (gamemasteren) oprette et væsen med nogle data.
Én af disse data er væsnets forsvars bonus (defense bonus).
Denne indtastes i en tekstboks i UserFormen.
PROBLEMSTILLING:
Hvis ikke der er indtastet noget i tekstboksen, så vil jeg gerne have den er tom.
Men hvis brugeren indtaster noget her, så vil jeg gerne have, at den indtastede data automatisk efterfølges af en lille stjerne.
Jeg har prøvet alle mulige forskellige muligheder, og alle mine løsninger ender med, at den udfylder tekstboksen med brugerens input, og så udfylder tekstboksens maksimale antal resterende tegn med stjerner?!
Mistænker mig selv for at have oprettet en slags uendelig løkke, men kan ikke gennemskue, hvordan jeg gør det anderledes.
Warning: Jeg er ret ny i VBA.
Min kode ser således ud:
Private Sub TextBoxCreatureDefenseBonusConstant_Change()
If TextBoxCreatureDefenseBonusConstant.Text = "" Then
TextBoxCreatureDefenseBonusConstant.Text = ""
Else
TextBoxCreatureDefenseBonusConstant.Text = Mid(TextBoxCreatureDefenseBonusConstant.Text, 1, Len(TextBoxCreatureDefenseBonusConstant.Text)) & "*"
End If
End Sub