Hallo liebe Experten!
Ich habe eine Form (Borderstyle: 0),ihr möchte ich ein Hintergrundbild geben, welches (z.B.) zur Hälfte grün und zur Hälfte schwarz ist.
Jetzt möchte ich die Farbe Grün gegen Transparenz ersetzen.
Gibt es da eine Möglichkeit?
Danke im Vorraus!
Hallo,
Ich habe eine Form (Borderstyle: 0),ihr möchte ich ein
Hintergrundbild geben, welches (z.B.) zur Hälfte grün und zur
Hälfte schwarz ist.
Jetzt möchte ich die Farbe Grün gegen Transparenz ersetzen.
Gibt es da eine Möglichkeit?
über die Schiene, eine Farbe transparent zu schalten, wie bei einem .gif, geht es so viel ich weiß nicht.
Aber Du willst ja eigentlich nur einen Bereich der Form transparent haben, die Farbe war ja wohl nur ein Denkansatz.
Einen Bereich der Form transparent zu machen geht, Beispiel:
http://www.activevb.de/tipps/vb6tipps/tipp0126.html
Gruß Rainer
Danke für die schnelle Antwort!
Aber Du willst ja eigentlich nur einen Bereich der Form
transparent haben, die Farbe war ja wohl nur ein Denkansatz.
Nein leider nicht.
Ich wollte dem Formular eine abstrakte Form geben, z.B. die von einem schräg stehendem Buch.
Ich hab mal ein Projekt gesehen bei dem sie ein Hintergrundbild hatten, welches das (hier) schräg stehende Buch beinhaltete und der Rest (um das Buch herum) grün war. Als man das Projekt startete Sah man nur das Buch und die Grüne farbe im Hintergrund war transparent.
MfG Markus
Hat sich erledigt, ich hab es hinbekommen!
mit folgendem Code:
Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib „user32“ Alias „GetWindowLongA“ (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib „user32“ Alias „SetWindowLongA“ (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib „user32“ (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
Dim Ret As Long
Const MyColorKey = vbBlack ’ make black objects clear.
Ret = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hwnd, MyColorKey, 0, LWA_COLORKEY
End Sub
Man muss nur eine BMP Datei als Hintergrund einfügen, dann geht es.
Trotzdem Danke!