Rendere la grafica di vb come xp o vista

[ssj 28 fede]

[Guida]Rendere la grafica di vb come xp o vista

Per prima cosa scaricatevi questo

Perfavore, Entra oppure Registrati per vedere i Link!

Ora prendete il file modMain.bas e ResXpStylesTester.res e inseriteli nel vostro progetto (progetto>aggiungi file)
Ora modificate modmain e scriveteci questo

Spoiler

Option Explicit

Public Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type
Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean
Public Const ICC_USEREX_CLASSES = &H200

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Const SM_CXICON = 11
Private Const SM_CYICON = 12

Private Const SM_CXSMICON = 49
Private Const SM_CYSMICON = 50

Private Declare Function LoadImageAsString Lib "user32" Alias "LoadImageA" ( _
ByVal hInst As Long, _
ByVal lpsz As String, _
ByVal uType As Long, _
ByVal cxDesired As Long, _
ByVal cyDesired As Long, _
ByVal fuLoad As Long _
) As Long

Private Const LR_SHARED = &H8000&
Private Const IMAGE_ICON = 1

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0
Private Const ICON_BIG = 1

Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Const GW_OWNER = 4


Public Sub Main()

On Error Resume Next

Dim iccex As tagInitCommonControlsEx
With iccex
.lngSize = LenB(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex

' On Error GoTo 0
Form1.Show 'Nome del form d'avvio

End Sub

e avete finito

Fonte : vb6.forumcommunity.net

 

[tribale]

se funziona e buona la guida bravo