Code Samples
The product includes numerous Visual Basic sample applications. All samples
include complete source code. For more detailed sample code please refer to the
sample applications.
Control Panel Applet
Listing 1 shows a very simple control panel applet.
' Must implement the IControlPanel interface
Implements IControlPanel
Private Property Get IControlPanel_Description() As String
IControlPanel_Description = "This is control panel applet example #1."
End Property
Private Property Get IControlPanel_Icon() As Long
IControlPanel_Icon = LoadResPicture(ICON_ID, vbResIcon)
End Property
Private Property Get IControlPanel_Name() As String
IControlPanel_Name = "Control Panel Applet Example #1"
End Property
Private Sub IControlPanel_OnDoubleClick()
' Show a modal form
MainForm.Show vbModal
End Sub
|
Listing 1 Control panel applet
|
