Italian MouseUp

micro

Well-Known Member
Licensed User
Salve ragazzi,
ho installato la versione trial e inizio a fare le mie prime prove anche se effttivamente non sò se ii tutto sarà trasportabile sul device con Windows CE 5.0 vedi thread http://www.basic4ppc.com/forum/italian-forum/2357-windows-ce-per-arm.html
Ho visto che per l'oggetto imagebutton così come per l'oggetto button (e forse anche per altri) non è possibile scatenare l'evento MouseUp quando il mouse è sull'oggetto.
Pensavo di raggirare l'ostacolo con la funzione AddEvent ma probabilmente non è così :)) se era così semplice ci sarebbero già stati)
Ho fatto:
B4X:
AddEvent("SerButton", "MouseUp", "SerButton_MouseUp")
e poi inserita la Sub ma ..... nulla.
Riesco a raggirare l'ostacolo (non è una cosa necessaria ma l'aspetto grafico per me conta molto) con l'evento MouseUp della Form tirandomi fuori le coordinate?
In pratica ho caricato delle immagini in una immaginelist e a seconda se ci clicco sopra e rilascio il pulsante, le immagini del pulsante cambiano e vorrei che lo facesse anche se ci sono sopra.
Poi ci sarebbe da raggirare l'ostacolo anche dell'evento MouseLeave (che qui non esiste) ed è per questo che chiedo a Voi almeno se avete la soluzione il tempo lo dedico a qualcos'altro.

Grazie
 

micro

Well-Known Member
Licensed User
Grazie giannimaione per la disponibilità ma non ho le credenziali e i privilegi :( per scaricare la dll.
Se Erel me ne dà la possibilità potrò provarla.

Di nuovo grazie e a presto.
 

giannimaione

Well-Known Member
Licensed User
dai Micro, con poco meno di 70 euro e con tre anni di aggiornamenti.
accattatill

cosa vuoi di piu' dalla vita... un lucano! :)
 

micro

Well-Known Member
Licensed User
ma certo giannimaione ehehehehe :D, domani lo farò era solo che volevo provare prima sul device per essere sicuri di non avere problemi di compatibilità.
Inizia a bere che ti raggiungo tra poco.... :sign0060:
 

giannimaione

Well-Known Member
Licensed User
sono cattivo...

Inizia a bere che ti raggiungo tra poco.... :sign0060:
raggiungermi dove? a Napoli ? :sign0060:
mi fa piacere ; ;)
in questo periodo puoi approffittare del magnifico souvenir che viene dato in omaggio a tutti
i turisti; una bella busta di "monnezza" :mad:
 

micro

Well-Known Member
Licensed User
Allora...ho acquistato la versione enterprise.
Ho referenziato la dzmagicEvent nel codice di prova ma quando mandavo il codice in esecuzione mi diceva che non riusciva a caricare la coredlll.dll
Infatti stranamente con una ricerca files neanche la minima traccia della coredll.dll.
L'ho prelevata dall'archivio che avevo e l'ho inserita nella dir di Basic4ppc, adesso l'errore è cambiato e sempre in concomitanza della seguente riga di codice:
B4X:
events.Hook(512)
Naturalmente events è il nome all'oggetto dzMagicEvent caricato.
Allego gli errori.
Sapete dirmi dovè l'incoveniente?

Grazie
 

Filippo

Expert
Licensed User
Ciao micro,

una sola domanda: sei sicuro die aver installato sul tuo ppc .NETCF 2.0 ?
Senza .NETCF 2.0 la maggior parte delle DLL non funzionano.


Ciao,
Filippo
 

micro

Well-Known Member
Licensed User
certo filippo,
anzi proprio adesso (cosa strana) ho scaricato l'esempio Test2 e tutto funziona, anche aggiungendo un'imagebutton con l'evento MouseMove (x.Hook(512)).
Funziona tutto alla perfezione mentre nel mio codice di prova mi compaiono gli errori che ho riportato, eppure ci sono le stesse righe di codice.

Mistero
 

Filippo

Expert
Licensed User
Se puoi caricare il codice sul Forum, forse ti posso dare una mano d'aiuto.
 

micro

Well-Known Member
Licensed User
Ok
B4X:
Sub Globals
   'Declare the global variables here.
   
End Sub

Sub App_Start
   dzem.New1("SerButton", true)
   dzem.Hook(512) '<<<<<<<<quì mi dà errore!!
   FormStart.Show
   FormStart.Refresh
   Sleep(500)
   FormStart.ForeLayer = true
   SerButton.Image = ImageList1.Item(0)
   FormStart.FDrawString ("Loading.....", 16,750,20,550,500,255,255,255)
   formstart.Refresh
   Carica_Settings
   Sleep(500)
   FormStart.FErase(750,20,550,500)
   FormStart.Refresh
   Sleep(500)
   FormMain.ForeLayer = true
   FormMain.FDrawString ("Seriale", 12,17,65,100,100,255,255,255)
   FormMain.Show
   FormMain.Refresh
   'Tab1.New1("FormMain", 100, 30, 400, 200)
   'Tab1.AddTabPage("Test_Seriale")
   'Tab1.AddTabPage("Test_Stampanti")
End Sub


Sub FormMain_Close
        dzem.UnHook(512)
        AppClose
End Sub

Sub Carica_Settings
'..........
End Sub

Sub SerButton_ButtonDown
   SerButton.Image = ImageList1.Item(1)
End Sub

Sub SerButton_ButtonUp
   SerButton.Image = ImageList1.Item(0)
End Sub

Sub dzem_MagicEvent
'Qui il codice non è completo ma mi serviva vedere solo se ci andavo quando scatenavo l'evento
   SerButton.Image = ImageList1.Item(2)
End Sub
Come vedi riporto le stesse chiamate che ci sono in Test2 ecc., solo che qui mi compaiono gli errori menzionati precedentemente.

Ciao
 

micro

Well-Known Member
Licensed User
Ciao maxim ;)
era proprio quello l'errore.
Non mi sono soffermato sui componenti aggiunti perchè pensavo che quando sceglievo Both e cliccavo sulla dll automaticamente veniva caricata al posto giusto la dll device e desktop.
.......mi sbagliavo.

Grazie ancora.
 
Top