Ti consiglio già che ci sei di farlo meglio di InvBox in quanto fin'ora non si era mai sentito di una simil TextBox che non supporta il testo.
Già che siamo in tema a tutti quelli, fortunatamente pochi, sventurati che fidandosi di un imbratta codice come me hanno creato InvBox farebbero bene a cambiare così il codice della Sub Change:
Public Sub Tbox_Change()
If Trim$($hTbox.Text) = "" Then
$hTxt.Text = $sInvito
Else
$hTxt.Text = ""
Endif
Me.Text = $hTbox.Text
Raise Change
End
e cioè aggiungere fra Endif e Raise:
Se hanno la pretesa anche di leggere quanto viene scritto nel controllo ;D
:-[ Tra parentesi non so neanche se è il procedimento corretto ma sembra funzionare.
Si lo so di essere un tonno e infatti non l'ho mai nascosto.
Meno male che fra poco su Rai uno c'è Catarella e spero di imparare qualcosa.
:ciao:
Ho provato ad aggiungere le 2 linee:
Me.Text = $hTbox.Text
Raise Change
ma mi da errore dicendomi che Change non è un evento statico, senza funziona bene. Boh... :-\
dunque, avrei risolto in questo modo:
Dim valore As String
valore = InputBox("Nome Corso", "Nuova Tabella") 'inserimento dato"
If Len(valore) > 6 Then
Message.Error("troppi caratteri", "OK")
Else
Label1.Text = valore
Endif
non so se è molto elegante ;D