Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Vista Aero
Autor: Sem
Datum: 19.12.07 22:50
Hallo Ich habe ein Problem ich möchte so ähnlich wie beim IE7 unter Vista oben den Fensterbereich "glassig" erstellen und auf diesem "glassigen" Bereich möchte ich zweiTextboxen, zwei Label und zwei Buttons erstellen. Ich habe auch schon den Code für das "glassig" machen (Nur unter Vista): Modul1 ======================= Option Explicit Private Declare Function InitCommonControls Lib "COMCTL32.DLL" () As Long Public Sub Main() Dim X As Long X = InitCommonControls Form1.Show End Sub Form1 ======================= Option Explicit Private Type tRect m_Left As Long m_Right As Long m_Top As Long m_Buttom As Long End Type Private Declare Function ApplyGlass Lib "dwmapi.dll" Alias "DwmExtendFrameIntoClientArea" (ByVal hWnd As Long, rect As tRect) As Long Private Sub cmdGlass_Click() Dim GRect As tRect Dim lngReturn As Long GRect.m_Buttom = 50 GRect.m_Left = 50 GRect.m_Right = 50 GRect.m_Top = 50 Me.BackColor = vbBlack lngReturn = ApplyGlass(Me.hWnd, GRect) End Sub ========================== Ende Code das Rechteck das man angibt hier mit 50,50,50,50 ist dann der Bereich der nicht durchsichtig ist. Wenn ich jetzt ein Textbox auf dem "glassigen" Beriech platziere, wird die Schrift auch "glassig". Wer kann mir helfen??

Vista Aero	2.970	Sem	19.12.07 22:50
Re: Vista Aero	1.842	Sem	27.12.07 16:47
Re: Vista Aero	1.727	Martoeng	27.12.07 18:40
Re: Vista Aero	1.612	Computer - Freak	06.05.08 17:04
Re: Vista Aero	1.611	Martoeng	07.05.08 12:51
Re: Vista Aero	1.642	Computer - Freak	04.06.08 14:49
Re: Vista Aero	1.512	B0mB3r	17.09.08 13:32
Re: Vista Aero	1.480	Computer - Freak	06.12.08 10:08

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen