A volte può capitare di lavorare su un portatile... in un altra
locazione... Altre volte, almeno a me, capita di star fuori per
diverso tempo, tanto da non poter leggere la posta. Non è questo,
comunque, il caso.
Mi spiace che tu l'abbia presa così a male. Sono lusingato dal fatto
che tu voglia rispondere alle mie come alle questioni di altri
compagni di viaggio in questo forum...
Ma non c'è stata malafede né superficialità. Ma solo il fatto di
lavorare su un'altra macchina, in un'altra città...
Ti ringrazio ancora per le volte che hai aiutato me e tutti gli altri.
Mi auguro che questo incidente diplomatico si chiuda qui.
Lucio
Il giorno 27/feb/08, alle ore 15:03, Massimo Valle ha scritto:
On 27/feb/08, at 12:03, Lucio Liberi wrote:
FATTO!
dotpos=InStr(me.text,".")
if dotpos <> 0 then
MsgBox "Attenzione, inserire la virgola come separatore dei
decimali!"
'me.text=""
me.text=replace(me.Text,".",",")
me.SelStart=dotpos <<<<<----------------------- la
magia sta tutta qui....
else
App.ResetResult()
end if
Però mi domando cosa rispondo a fare alle tue domande. Se guardavi
il mio esempio nel tuo post relativo ai numeri decimali trovavi
questo:
Function KeyDown(Key As String) As Boolean
if key = "." then
dim insertionPoint as integer = me.selStart
if instr(me.text, ",") = 0 then
me.text = left(me.text, insertionPoint) + "," + mid(me.text,
insertionPoint+1)
me.selStart = insertionPoint+1
end if
return true
end if
End Function
Significa che non lo hai nemmeno provato.
Massimo Valle
|