Newsgroup: it.comp.appl.access
Titolo: Tastiera su monitor touch screen

Salve a tutti
Ben trovati,
è da molto che non scrivo sul newsgroup, ma sicuramente vi leggo sempre.
L'esigenza che mi si presenta è quella di poter creare una tastiera su
monitor e poterla utilizzare con touch screen
Ho già creato una maschera con tutti i pulsati, un primo tentativo è quello
di creare una casella non associata e ad ogni pressione di una lettera
Me.display = Me.display & "a"
il back space l'ho inpostato con OldValue
Forse esiste una strada più semplice spero possiate aiutarmi.
Il problema è, se seguo questra strada intrapresa, come restituire il testo
creato sulla casella display all'ultima casella attiva destinataria del
testo scritto.
Spero di essere stato chiaro, e nella speranza di ricevere vostri preziosi
consigli rinnovo il mio bentrovati
a presto
CLaudio

 ha scritto nel messaggio
news:IdnXd.1026545$35.38...@news4.tin.it...

Non sò con precisione come funzioni il touch screen, ma ipotizzo che
esegua l'evento dietro il controllo...!
Perchè invece delle caselle non associate no metti dei CommandButton.
Il touch screen dovrebbe generare l'evento Click, e dovrebbe essere
estremamente
più semplice con una Funzione sola fare tutto.
Quello che devi verificare è come il touch screen manifesta il suo modo di
funzionare
nei confronti dei controlli che visualizzi.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 @Alex (Alessandro Baraldi)
Ciao
Claudio

 ha scritto nel messaggio
news:8ToXd.1027062$35.38...@news4.tin.it...

Su evento Click invece di richiamare la procedura Evento metti così:
=Scrivi()
quindi nel codice:
Private Function Scrivi()
    me.txtCalsellaDiTesto=me.txtCalsellaDiTesto & 
Screen.Activecontrol.Name
End Function
Ovviamente il Nome del CommandButton deve essere quello del Carattere,
alternativa
è quella di sfruttare la proprietà TAG del controllo ed inserire li la
lettera da prelevare, in
quel caso la funzione sarebbe:
Private Function Scrivi()
    me.txtCalsellaDiTesto=me.txtCalsellaDiTesto & Screen.Activecontrol.TAG
End Function
Ciao
-- 
@Alex (Alessandro Baraldi)


 se ho reso l'ideao
Credo tu faccia bene a lavorare come se si trattasse di un mouse.
Feci delle cose con un touch screen parecchi anni fa (quando i touch screen 
in commercio facevano pietà) e una volta installate le driver questo si 
comportava esattamente come un mouse.
Peraltro a suo tempo il touch screen era talmente inaffidabile che 
ripiegammo su una trackball (ossia un mouse rovesciato), ed il software 
rimase lo stesso.
Rick 

 Rick
Speriamo che ci riesca a prescindere ;-)
Ciao
CLaudio

 End Function
Questa funziona va benissimo, il mio unico problema è però il trasferimento 
dei dati scritti nella casella che mi interessa.
Mi spiego meglio
La tastiera ha valore universale, cioè usabile su più maschere e su più 
caselle di testo.
Aperta una maschera, selezionata la casella di testo io dovrei iniziare a 
scrivere su quella casella,
pensavo di inserire in una variabile il valore dell'ultima casella 
selezionata (quella appunto su cui devo scrivere) e dopo aver scritto sulla 
Casella di testo DISPLAY, trasferire su quella con il tasto invio
coplicato?? fattibile?? altre soluzioni??
grazie
Claudio


Non puoi usare
Screen.activecontrol.name
 perchč nel momento in cui "scrivi" lui ti porta il 
focus sulla lettera
L'unica (che mi viene in mente) č mettere dei Tag nei controlli dove scrivi 
e su enter
di questi controlli scrivi una variabile pubblica che ti identifica il nome 
del controllo
MAssimiliano 

 Claudio
Gestisci l'Evento su Attivato della TextBox e chiama una funzione in un
Modulo:
'------------- METTI TUTTO IN UN MODULO -------------------------
Public actCtl    as Access.Control
Public Function SetActiveControl()
    actCtl=Screen.ActiveControl
End Function
Public Function Scrivi()
    actCtl=actCtl & 
Screen.Activecontrol.Name


 End Function
Mi da variabile oggetto non impostata
non capisco perchè
eppure mi sempra sia impostata
CLaudio


 End Function
EVVAIIII
grazie Alex ho risolto sembra che funzioni
ti faccio sapere adesso faccio alcune prove
ciao
Claudio
