vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Microsoft XTopia  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | vb@rchiv CD Vol.5  | Shop Copyright ©2000-2008
 
zurück
Knüller: vb@rchiv CD Vol.4
Knüller: vb@rchiv Offline-Reader - Die Offline-Wissensdatenbank

vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4
 
Tools & Components Anzeigen 
 
Unser Tipp: Alle Online-Forenbeiträge aus dem vb@rchiv - gesammelt in einer Offline-Wissendatenbank, mit Internet-Update-Funktion, u.v.m.

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Windows API
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??
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Vista Aero777Sem19.12.07 22:50
Re: Vista Aero355Sem27.12.07 16:47
Re: Vista Aero375ModeratorMartoeng27.12.07 18:40
Re: Vista Aero258Computer - Freak06.05.08 17:04
Re: Vista Aero246ModeratorMartoeng07.05.08 12:51
Re: Vista Aero194Computer - Freak04.06.08 14:49
Re: Vista Aero46B0mB3r17.09.08 13:32

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2008 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel