19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
si ma il codi si allunga di molto...
mà ai idea
quante configurazioni dovrebbe assumere un singolo form
Dim t As TextBox
t = New TextBox(Me)
t.Move(1, 1, 500, 50)
t.text = "xxxxxxxxxxxx"Condivido il problema sollevato da Simo...come fare una cosa del genere?
una cosa da sciegliere...
C'è la funzione Conv$, che converte i caratteri da un set ad un altro.
in alternativa qualcosa che controlla se è un ASCII oppure appartiene ad un altro set...
Forse si può fare con i tab, ma io preferisco usare keypress.
Spero di essere stato sufficentemente chiaro diversamente fatemi sapere
, ma ho capito poco dal codice: riporto quindi ancora la mia impressione, e' possibile che per muoversi tra i controlli occorra aprire un while? Ci sono, come scrivi, 8 controlli, solo due combobox che sono piu' difficili a desetfocusare, e non capisco perche' consideri i valori generati dal programma tipo l'incremento o l'id operatore nel ciclo, se sono automatici.Obbiettivo :Essre sicuro che non vengano scritti altri caratteri.
If TextBox1.text = "," Then
TextBox1.text = "0,"
Endif
Do While Left(TextBox1.text, 2) = "00"
TextBox1.text = Mid(TextBox1.text, 2)
Loop
Do While Left(TextBox1.text, 3) = "-00"
TextBox1.text = "-0" & Mid(TextBox1.text, 3)
Loop
'qui ci metti tutti i like che vuoi, che devono comprendere anche i numeri parziali ovviamente
dim procedi as boolean
if textbox1.text like cosi' o cosa' o pomi'
'con le regexp duro fatica, figurati a scriverne una a mente che prenda piu' casi
'in ogni caso puoi fare un ciclo: se tieni in valor in array che puoi richiamare a seconda del caso, definiti globali, puoi
'anche riusarli in tutto il programma
' i numeri accettabili se non mi sfugge qualcosa sono, mentre li scrivi, "-", "-0", "0,"
procedi=true
endif
if procedi=true then
TextBox1.tag = TextBox1.text
else
TextBox1.text = TextBox1.tag
endif
If TextBox1.text = "," Then
TextBox1.text = "0,"
Endif
Do While Left(TextBox1.text, 2) = "00"
TextBox1.text = Mid(TextBox1.text, 2)
Loop
Do While Left(TextBox1.text, 3) = "-00"
TextBox1.text = "-0" & Mid(TextBox1.text, 3)
Loop
If InStr(TextBox1.text, "e") Then
TextBox1.text = Replace(TextBox1.text, "e", "")
Endif
If IsNumber(TextBox1.text & "0") = False Then
TextBox1.text = TextBox1.tag
Endif
TextBox1.tag = TextBox1.text ' tips[np].setfocus
Comunque, a parte gli scherzi, nemmeno io ho capito cosa vorresti fare, imho con otto controlli si potrebbe ben fare un setfocus senza andare a cercare WAIT o cose simili, visto l'ordine dei controlli, forse basterebbe una condizione nel keypress della combobox? Ma, ripeto, sicuramente non ho capito.If key.code = key.tab Then
' if combobox.text etc etc then
ValueBox1.SetFocus()
Stop Event
Endif IF Key.code = Key.enter OR Key.code = Key.return THEN
IF plen > 28 THEN
tips[np].text = ""
tips[np].setfocus
ELSE
nh = 1
ENDIF
ENDIFun parere non fa mai male....
prova oraBeh, le prove dovresti farle tu (ho poco tempo anche per le mie cose!), non ti serve neanche il tuo progetto, prendi una textbox in un progetto di prova e fino a che ci trovi difetti continui a cambiare tutto
Io, come tutti gli altri del forum, posso darti indicazioni, ma non e' che possiamo riguardare pezzo pezzo...le funzioni cho ho fatto per ora stanno solo in campoelettrico
risultato???
devo trovare il modo di estendere il like a tutto l'unicode dopo è apposto per sempre!!!!