GFSkinEngine/TestToolsfrm.frm
VERSION 5.00
Begin VB.Form TestToolsfrm
BorderStyle = 0 'Kein
Caption = "TestToolsfrm"
ClientHeight = 3195
ClientLeft = 0
ClientTop = 0
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows‑Standard
Begin VB.CommandButton Command1
Caption = "Close"
Height = 315
Left = 3000
TabIndex = 1
Top = 2820
Width = 1575
End
Begin VB.Label Label1
Caption = "Label1"
Height = 195
Left = 0
TabIndex = 0
Top = 0
Width = 3015
End
End
Attribute VB_Name = "TestToolsfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'(c)2001 by Louis
Dim ContinueFlag As Boolean
Public Sub ShowTools()
'on error resume next 'sample how to handle external palettes
Call SE_LoadPalette(99, True)
Call SECB_AddCallBackForm(Me)
'
'NOTE: ERROR: the back picture must be recreated or it will be wrong,
'the reason for this error was not found yet, it happens if the
'system palette is changed and the tool window is moved.
'If then the palette of the tool window is reloaded then the back picture is
'the one of the main form.
'
Me.Show
Me.Refresh
'enter waiting loop
ContinueFlag = False 'reset
Do
DoEvents
Loop Until (ContinueFlag = True)
Me.Hide 'do NEVER unload a form that is skinned
Me.Refresh
Call SECB_RemoveCallBackForm(Me)
Call SE_UnloadPalette(99)
End Sub
Public Sub SE_ReceiveCallBackMessage(ByVal Msg As Integer, ByVal wParam As String, ByVal lParam As String, ByRef ReturnValueUsedFlag As Boolean, ByRef ReturnValue As Long)
'on error resume next 'callback sub of the GFSkinEngine
'nothing to do right here
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'on error resume next
If Button = vbRightButton Then
Call SE_OpenFormMenu("TestToolsfrm", TestToolsfrm)
End If
End Sub
Private Sub Command1_Click()
'on error resume next
ContinueFlag = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
'on error resume next
MsgBox "NO! NEVER UNLOAD A FORM USED BY THE SKIN ENGINE!", vbOKOnly + vbCritical
Cancel = True
End Sub
[END OF FILE]