MouseUp

[Filippo]

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

[micro]

Ok

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

[maXim]

Ciao micro,

verifica questo:

[micro]

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.