Die Datei ControlBase.bi (wird immer geladen) enthält die Funktionen :
Function isFileExist(sFile As String) As BOOL
sFile | gültiger Dateiname(ggf. mit Path ) |
Rückgabe | True wenn die Datei existiert , sonst False |
Bemerkung: | FILEEXISTS aus file.bi hat im zusammenhang mit Messagebox einen Absturz verursacht. Deshalb diese eigene Function |
Function SaveDCToFile( sFile As String, ByRef dc As HDC, ByVal dcWidth As Integer, ByVal dcHeight As Integer ) As Integer
sFile | gültiger Dateiname(ggf. mit Path ) |
dc | HDC der gespeichert werden soll |
dcWidth | Weite des HDC |
dcHeight | Höhe des HDC |
Rückgabe | 0 bei Fehler, sonst 1 |
Bemerkung: | Der Dateityp wird aus der Dateierweiterung gelesen und kann BMP,JPG,PNG,GIF oder TIFF sein. (GDI+ wird verwendet) |
Function ImgLoadFromFile(sFile As String,ByVal bkColor As UInteger, ByRef tDC As HDC,ByRef w As Integer,ByRef h As Integer) As Integer
sFile | gültiger Dateiname(ggf. mit Path ) |
bkColor | Muss ein RGBA-Wert sein oder 0 für Schwarz. Ist nur bei Bildern mit transparenten Bereichen von Bedeutung. Diese werden mit bkColor gefüllt |
tDC | HDC der das Bild erhält |
w | Enthält die Weite des Bildes |
h | Enthält die Höhe des Bildes |
Rückgabe | 0 bei Fehler, sonst 1 |
Bemerkung: | Der Dateityp wird aus der Dateierweiterung gelesen und kann BMP,JPG,PNG,GIF oder TIFF sein. (GDI+ wird verwendet). Die Argumente tDC, w und h müssen vorher dimensionierte Variable sein. |
Beispiel: |
Dim as HDC tDC Dim as integer w,h if ImgLoadFromFile("xyz.png",RGBA(255,255,255,255), tDC, w , h ) = 0 then ' Fehler ' endif ' tDC enthält jetzt das Bild ' w , h enthalten jetzt die Weite und Höhe des Bildes ' Bild kann jetzt beliebig oft verwendet werden ' bis : DeleteDC(tDC) ' nicht vergessen !' |
Function ImgLoadFromRes(sResName As String,ByVal bkColor As UInteger, ByRef tDC As HDC,ByRef w As Integer,ByRef h As Integer) As Integer
Argumente und Bedingungen sind die gleichen wie bei ImgLoadFromFile.
Die Resource-Datei muss folgende Bedingungen erfüllen:
- Resource wird nur am Namen erkannt ( keine ID )
- Resource muss mit RCDATA gespeichert sein
Beispiel Inhalt Resourcedatei:
bild1 RCDATA info1.jpg
Function DrawImageFromFile(sFile As String,ByVal zielDC As HDC,ByVal x As Integer,ByVal y As Integer,ByVal w As Integer,ByVal h As Integer) As Integer
sFile | gültiger Dateiname(ggf. mit Path ) |
zielDC | HDC in dem das Bild gezeichnet wird |
x | Linke Position im HDC wo das Bild beginnt |
y | Obere Position im HDC wo das Bild beginnt |
w | Weite das Bild gezeichnet werden soll. Wenn hier 0 ist, wird die Orginal-Weite des Bildes benutzt |
h | Höhe das Bild gezeichnet werden soll. Wenn hier 0 ist, wird die Orginal-Höhe des Bildes benutzt |
Rückgabe | 0 bei Fehler, sonst 1 |
Bemerkung: | Der Dateityp kann BMP,JPG,PNG,GIF oder TIFF sein. (GDI+ wird verwendet). Transparente Bereiche werden auch transparen gezeichnet |
Beispiel: |
Dim As HDC hdcForm hdcForm = GetDC(form1.Handle) DrawImageFromFile("sekt.png",hdcForm,40,30 ,0, 0 ) ReleaseDC(form1.Handle,hDCForm)(das könnte auch in einer onPaint Event-Sub stehen) |
Function DrawImageFromRes(sResName As String,ByVal zielDC As HDC,ByVal x As Integer,ByVal y As Integer,ByVal w As Integer,ByVal h As Integer) As Integer
Argumente und Bedingungen sind die gleichen wie bei DrawImageFromFile.
Die Resource-Datei muss folgende Bedingungen erfüllen:
- Resource wird nur am Namen erkannt ( keine ID )
- Resource muss mit RCDATA gespeichert sein
Beispiel Inhalt Resourcedatei:
bild1 RCDATA info1.jpg
Die Datei FBComdlg.bi (muß geladen sein ) enthäl die Funktion :
Function getColor(BYVAL hWnd AS HWND) AS UInteger
Bei Aufruf wird ein Farbauswahl Dialog angezeigt.
Rückgabe:
-1 wenn Abbruch geklickt wurde sonst der ausgewählte FarbWert (RGB)