Skin με Visual basic

[ntaryl]

Καλησπερα

παιδια αποφασισα να ποσταρω αυτο το παραδειγμα για το πως μπορει κανεις να βαλει skin στις εφαρμογες του.

Ελπιζω να το βρειτε χρησιμο.

Πρωτα απο ολα θα χρειαστουμε το actskin4.ocx

στο επισυναπτομενο θα υπαρχει ενα skin για το παραδειγμα

Ενσωματωνουμε στο project μας στα Components το actskin4.ocx .

Εισαγουμε το skin στην φορμα μας και ενα common dialog ,γραφουμε τον παρακατω κωδικα

>
Private Sub command1_Click()
Dim SelectedSkin As String 'Set String'
On Error Resume Next
       With cdFileBrowse 'cdFileBrowse is name of CD control'
               .DialogTitle = "Open Skin..."
               .Filter = "Skins (*.skins)|*.skn"
               .ShowOpen
               SelectedSkin = .FileName
               End With
Skin1.LoadSkin SelectedSkin
Skin1.ApplySkin Me.hWnd
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

Old_Skool.zip

[Greek-Lord]

Visual Basic .Net ή Visual Basic 6?

[ntaryl]

Καλησπερα φιλε μου

ειναι σε visual basic 6.0

cya

[ntg_net]

Ενα screenshot μπορουμε να εχουμε ?

[ntaryl]

Δες αυτο

Καπως ετσι φαινεται

Screen01.zip

[ntg_net]

Ωραιο , εχει πολλα ή μονο αυτο στο screenshot ?

Μολις σχολασω 8α το κοιταξω