home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of Windows 95.com 1996 December
/
WIN95_DEC_1996_2.ISO
/
htmlmisc
/
vb5ccein.exe
/
RCDATA
/
CABINET
/
ctrlwiz.dll
/
1033
/
TEXT
/
STDINFO
next >
Wrap
Text File
|
1996-10-25
|
5KB
|
190 lines
This file contains the standard Property, Event, and Method Templates.
Each section is marked with an "*" in column1, and the name of the section
in capital letters starting in column2. The end of a section is marked with
an "*" in column1, and the word "END" in capital letters starting in column
2. Everything else is ignored. Items within the "<>" symbols must NOT be
localized!!!
*PROPERTY_GET
Public Property Get <Public_Name>(<Arguments_Def>) as <Data_Type>
<RT_Opt><Set><Public_Name> = <Data_Src><Arguments_Use>
End Property
*END
*PROPERTY_GETNULL
'The body of <Public_Name> is intentionally left blank
Public Property Get <Public_Name>() as <Data_Type>
End Property
*END
*PROPERTY_LET
Public Property Let <Public_Name>(<Arguments_Def>ByVal New_<Public_Name> as <Data_Type>)
<DT_Opt><RT_Opt><Data_Src><Arguments_Use> = New_<Public_Name>
PropertyChanged "<Public_Name>"
End Property
*END
*PROPERTY_LETNULL
'The body of <Public_Name> is intentionally left blank
Public Property Let <Public_Name>(ByVal New_<Public_Name> as <Data_Type>)
End Property
*END
*PROPERTY_SET
Public Property Set <Public_Name>(ByVal New_<Public_Name> as <Data_Type>)
<DT_Opt><RT_Opt>Set <Data_Src> = New_<Public_Name>
PropertyChanged "<Public_Name>"
End Property
*END
*PROPERTY_SETNULL
'The body of <Public_Name> is intentionally left blank
Public Property Set <Public_Name>(ByVal New_<Public_Name> as <Data_Type>)
End Property
*END
*PROPERTY_VAR
Dim m_<Public_Name> as <Data_Type>
*END
*PROPERTY_CONST
Const m_Def_<Public_Name> = <Default_Value>
*END
*METHOD_SUB
Public Sub <Public_Name>(<Arguments_Def>)
<Data_Src> <Arguments_Use>
End Sub
*END
*METHOD_FUNC
Public Function <Public_Name>(<Arguments_Def>) as <Data_Type>
<Public_Name> = <Data_Src>(<Arguments_Use>)
End Function
*END
*METHOD_FUNC_NULL
Public Function <Public_Name>(<Arguments_Def>) as <Data_Type>
End Function
*END
*EVENT
Private Sub <Data_Src>(<Arguments_Def>)
RaiseEvent <Public_Name> <Arguments_Use>
End Sub
*END
*EVENT_BODY
RaiseEvent <Public_Name> <Arguments_Use>
*END
*SAVEDATA_HDR
Private Sub <UserControl>_WriteProperties(PropBag As VB.PropertyBag)
*END
*SAVEDATA_BODY
Call PropBag.WriteProperty("<Property_Name>",<Data_Src>,m_Def_<Property_Name>)
*END
*LOADDATA
Private Sub <UserControl>_ReadProperties(PropBag As VB.PropertyBag)
*END
*SAVEDATA_BODY
<Data_Src> = PropBag.ReadProperty("<Property_Name>",m_Def_<Property_Name>)
*END
*INITPROPERTIES_HDR
Private Sub <UserControl>_InitProperties()
*END
*INITPROPERTIES_BODY
<Property_Name> = m_Def_<Property_Name>
*END
*SUB_END
End Sub
*END
*METHOD_CIRCLE
Public Sub Circle_(X As Single, Y As Single, Radius As Single, Color As Long, StartPos As Single, EndPos As Single, Aspect As Single)
<Data_Src> (X,Y),Radius,Color,StartPos,EndPos,Aspect
End Sub
*END
*METHOD_SUB_CIRCLE
Public Sub Circle_(X As Single, Y As Single, Radius As Single, Color As Long, StartPos As Single, EndPos As Single, Aspect As Single)
End Sub
*END
*METHOD_LINE
Public Sub Line(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single, Color As Long)
<Data_Src> (X1, Y1)-(X2, Y2), Color
End Sub
*END
*METHOD_SUB_LINE
Public Sub Line(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single, Color As Long)
End Sub
*END
*METHOD_PSET
Public Sub PSet_(X As Single, Y As Single, Color As Long)
<Data_Src> Step(X, Y), Color
End Sub
*END
*METHOD_SUB_PSET
Public Sub PSet_(X As Single, Y As Single, Color As Long)
End Sub
*END
*METHOD_SCALE
Public Sub Scale_(Optional X1 As Variant, Optional Y1 As Variant, Optional X2 As Variant, Optional Y2 As Variant)
<Data_Src> (X1, Y1)-(X2, Y2)
End Sub
*END
*METHOD_SUB_SCALE
Public Sub Scale_(Optional X1 As Variant, Optional Y1 As Variant, Optional X2 As Variant, Optional Y2 As Variant)
End Sub
*END
*METHOD_POINT
Public Function Point(X As Single, Y As Single) As Long
Point = <Data_Src>(X, Y)
End Function
*END
*METHOD_FUNC_POINT
Public Function Point(X As Single, Y As Single) As Long
End Function
*END
*READPROP_HDR
'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
*END
*WRITEPROP_HDR
'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
*END
*INITPROP_HDR
'Initialize Properties for User Control
Private Sub UserControl_InitProperties()
*END