Hi Sorry for english
I use this image for my projekt
Mmm.. you can BitBlt the Char from this image with fellow code...
Only Sample..
Code:
Private Sub ScrollMessage(Destination As Control, Charact As String, IDpic As Integer)
'Called to set the message picture
Dim startX As Long
Dim i As Integer
If IDpic = 0 Then
startX = 0
Else
startX = IDpic * 5
End If
If Charact = "" Or Charact = " " Then
BitBlt Destination.hdc, startX, 0, 5, 6, PicSrcText.hdc, 150, 0, SRCCOPY
ElseIf Charact > Chr(96) And Charact < Chr(110) Or Charact > Chr(64) And Charact < Chr(78) Then
Select Case Charact
Case Is = "a", "A"
BitBlt Destination.hdc, startX, 0, 5, 6, PicSrcText.hdc, 0, 0, SRCCOPY
Case Is = "b", "B"
BitBlt Destination.hdc, startX, 0, 5, 6, PicSrcText.hdc, 5, 0, SRCCOPY
Case Is = "c", "C"
BitBlt Destination.hdc, startX, 0, 5, 6, PicSrcText.hdc, 10, 0, SRCCOPY
and write the char as Bitmap to the LCD!
It's work great Show my Projekt.. Paint your own Char to the Bitmap and paint it to LCD
Destination As Control = Picturebox that has "HDC" and Autoredraw = True
IDpic = position where paint the Char to LCD
Charact As String = only one char "A" or what ...
Greetings Emil