Hallo RB Freunde,
ich versuche verzweifelt das Logitech G15 Display mittels des folgenden
ActiveX Controls anzusteuern.
G15 ActiveX Control: http://g15forums.com/forum/viewtopic.php?t=521
Dazu muss ich das Handle einer 160x43 Pixel grossen 24bit BMP an das Display
senden.
Ich bekomme aber staendig die Fehlermeldung "Loading of Bitmap failed."
Hier der Code den ich mir bis eben zusammen geschustert habe.
Dim LCD As New AvLCD
Dim Bild As Picture
Bild = NewPicture(160, 43, 24)
Bild.Graphics.DrawString("Test", 10, 20)
'Das Programm bekommt einen Namen in der G15 PlugIn Liste und
initialisiert das Display.
LCD.initLCD("EVE Test")
' Senden wir nun das Bild an das Control
LCD.showBitmap(Bild.Graphics.HandleTypeHDC, 1) 'An dieser Stelle tritt der
Fehler auf :(
' Melden wir uns wieder ab...
LCD.closeLCD
Hier nun das was in der Hilfe des ActiveX Controls steht:
*Properties
* *Name* *Type* *Description*
------------------------------
buttonStates integer property buttonStates - Get the current button states.
*Methods*
*Name* *Parameters* *Returns* *Description*
------------------------------
closeLCD method closeLCD - Disconnect from the LCD control functions.
initLCD appName as string method initLCD - Initialize the LCD. Remember to
pass a parameter indicating what you want your application to be called.
setCallback funcAddr as integer method setCallback - Set the address of a
callback sub. Use the addressOf operator. The sub must be a SUB and must
have one byVal Long parameter. showBitmap bHandle as integer, shouldAlert as
integer method showBitmap - Pass a reference to an image (like
picturebox.image). 24-bit, only the red channel will be used. showPixels pixArr
as variant, shouldAlert as integer method showPixels - Pass a byte array
exactly 6880 pixels in size, consisting of the image to display.
Ich waere fuer jede Hilfe wirklich sehr Dankbar :)
