Come tutti sapete in Visual Basic 6 è possibile lavorare solamente nello stile di Windows 98/95.

In questa semplice guida vi spiegherò come trasformare la grafica dei vostri progetti in quella di Windows XP/Vista/Se7en.

Innanzitutto scaricate il pacchetto che contiene tutti i file che useremo: Scarica Pacchetto

Ora apriamo XP Styler Hacker e selezioniamo l’eseguibile di Visual Basic 6 . (Con questo programmino renderemo la grafica del VB in stile XP/Vista/Se7en)

Includiamo nel nostro progetto i file “ResXpStylesTester.res” e “Modmain.bas” che sono situati nella cartella “Modulo E RES“

Modifichiamo dal nostro progetto il codice contenuto nel modulo : “Modmain.bas” in questo modo:

‘http://www.danyoutlaw.it/

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

Andiamo nelle proprità del progetto e dall’ opzione “Oggetto d’avvio” selezioniamo “Sub Main” , in modo che il primo file che VB va a vedere è il modulo.

Provando l’applicazione noterete il cambiamento.

Nota Bene:
Per cambiare l’icona aprite il file .RES con Resources Hacker e modificate l’icona dalla funzione “Replace Icon”.
Salvate il RES e reimportatelo nel progetto di VB.

Popularity: 29% [?]