Information générale
Catégorie:
Codage, syntaxe et commandes
Titre:
Convert VD code to VFP
hi.. all
i need to convert code vb to vfp :
Option Explicit
Dim LoadedSkin As Integer
Dim DisableLayeredWindows As Boolean
Private Sub Form_Load()
LoadedSkin = 1
DoApplySkin
End Sub
Private Sub skn_Click(ByVal Source As ACTIVESKINLibCtl.ISkinObject)
Select Case Source.GetName
Case "A"
MsgBox "Step A. Create bitmaps (or 32-bits TGA files with alpha-channel) for your skin, and load them into SkinBuilder.", , "How to create simple application-specific skin"
Case "B"
MsgBox "Step B. Create SkinFreeForm object (in application-specific folder), and choose its background bitmap.", , "How to create application-specific skin"
Case "C"
MsgBox "Step C. Create SkinButtons in the SkinFreeForm object and assign Normal, Highlighted and Pressed bitmaps.", , "How to create application-specific skin"
Case "D"
MsgBox "Step D. Choose the meaningful names for your objects to distinguish them from your application.", , "How to create application-specific skin"
Case "InnerArea"
LoadedSkin = 3 - LoadedSkin ' Switch to another skin: 1->2, 2->1
DoApplySkin
End Select
End Sub
Private Sub DoApplySkin()
If LoadedSkin = 1 Then
skn.LoadSkin App.Path + "\Skin1.skn"
Else
skn.LoadSkin App.Path + "\Skin2.skn"
End If
If DisableLayeredWindows Then
Dim FreeForm As SkinFreeForm
Set FreeForm = skn.GetTemplates.FindObject("Simple")
If FreeForm.GetLayeredWindow = skLayeredEnable Then FreeForm.SetLayeredWindow skLayeredDisable
End If
skn.ApplySkinByName Me.hWnd, "Simple"
End Sub
thank's for advance
regard
wahyu
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement