استایل ویستا

[drwatson]

سلام
دوستان کسی راهی بلده که بشه مثل ایکس پی برای ویستا هم یه مانیفست ساخت
که شکل برنامه شبیه ویستا بشه؟؟

[Danial_Yousefi]

از این کامپوننت می تونی استفاده کنی و برای ترنس پرنت هم میتونی از این کد استفاده کنی

Dim fadein As Boolean
Private Const GWL_EXSTYLE = -20
Private Const LWA_COLORKEY = 1
Private Const LWA_ALPHA = 2
Private Const WS_EX_LAYERED = &H80000
Const WS_EX_NOINHERITLAYOUT = &H100000

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 GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" ( _
ByVal hWnd As Long, _
ByVal cKey As Long, _
ByVal bAlpha As Long, _
ByVal dwFlags As Long) As Long

Public Sub Transpart(hWnd As Long, ByVal TranspartLevel As Byte)
Dim OldLong As Long
OldLong = GetWindowLong(hWnd, GWL_EXSTYLE)
Call SetWindowLong(hWnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYERED Or WS_EX_NOINHERITLAYOUT)
Call SetLayeredWindowAttributes(hWnd, 0, TranspartLevel, LWA_ALPHA)
End Sub

Public Sub ColorKey(hWnd As Long, lColor As Long)
Dim OldLong As Long
OldLong = GetWindowLong(hWnd, GWL_EXSTYLE)
Call SetWindowLong(hWnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYERED Or WS_EX_NOINHERITLAYOUT)
Call SetLayeredWindowAttributes(hWnd, lColor, 0, LWA_COLORKEY)
End Sub

Public Sub FadeForm(frm As Form, _
Optional fadein As Boolean = True, _
Optional Speed As Byte = 1)

Dim I As Long
' frm.Enabled = False

frm.Visible = True

Transpart frm.hWnd, 255
Do
DoEvents
For I = 0 To 255
DoEvents
Transpart frm.hWnd, 255 - I
Next

For I = 0 To 255
DoEvents
Transpart frm.hWnd, I
Next
Loop

frm.Enabled = True

End Sub

Private Sub Command1_Click()
FadeForm Me, True
fadein = False
End Sub

[SepehrEZ]

اگه توي برنامت از مانيفست استفاده كني و بعدش برنامتو تو ويستا اجرا كني استايل برنامت ويستا ميشه.
چون مانيفست استايل پيشفرض ويندوز رو به برنامت اعمال مي كنه.
اما اگه مي خواي برنامت تو ويندوز XP هم شكل ويستا باشه بايد از يه سري DLL و اسكين استفاده كني.
تو لينك زير آموزش كامل استفاده از SkinCrafter تو ويبي و همچنين قرار دادن اسكين ويندوز ويستا براي برنامه هستش به همراه لينك دانلود .يه سري بزن.

http://escada.blogfa.com/post-6.aspx