Caption = "HTMLLabel Control General Demonstration"
ClientHeight = 8295
ClientLeft = 45
ClientTop = 330
ClientWidth = 9105
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "General.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 553
ScaleMode = 3 'Pixel
ScaleWidth = 607
StartUpPosition = 2 'CenterScreen
Begin HTMLCtlsLEDemo.pucColorButton btnColor
Height = 375
Index = 0
Left = 4770
TabIndex = 8
ToolTipText = "BackColor"
Top = 3915
Width = 1275
_ExtentX = 2249
_ExtentY = 661
End
Begin VB.ComboBox cboBackStyle
Height = 315
ItemData = "General.frx":014A
Left = 4770
List = "General.frx":0154
Style = 2 'Dropdown List
TabIndex = 7
Top = 3420
Width = 3255
End
Begin VB.ComboBox cboBorderStyle
Height = 315
ItemData = "General.frx":0181
Left = 4725
List = "General.frx":01AF
Style = 2 'Dropdown List
TabIndex = 5
Top = 2700
Width = 3300
End
Begin VB.TextBox txtText
Height = 3120
Left = 225
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 2
Text = "General.frx":02D8
Top = 2700
Width = 4335
End
Begin HTMLCtlsLEDemo.pucEventList evlDemo
Height = 1950
Left = 225
TabIndex = 4
Top = 6075
Width = 8655
_ExtentX = 15266
_ExtentY = 3440
ExitVisible = -1 'True
End
Begin HTMLCtlsLE.HTMLLabel hbxDemo
Height = 1320
Left = 225
TabIndex = 0
Top = 945
Width = 8700
_ExtentX = 15346
_ExtentY = 2328
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 1
BackColor = -2147483643
ForeColor = -2147483640
Text = ""
End
Begin HTMLCtlsLEDemo.pucColorButton btnColor
Height = 375
Index = 1
Left = 6210
TabIndex = 9
ToolTipText = "ForeColor"
Top = 3915
Width = 1275
_ExtentX = 2249
_ExtentY = 661
End
Begin HTMLCtlsLEDemo.pucColorButton btnColor
Height = 375
Index = 2
Left = 4770
TabIndex = 10
ToolTipText = "AnchorColor"
Top = 4410
Width = 1275
_ExtentX = 2249
_ExtentY = 661
End
Begin HTMLCtlsLEDemo.pucColorButton btnColor
Height = 375
Index = 3
Left = 6210
TabIndex = 11
ToolTipText = "AnchorVisitedColor"
Top = 4410
Width = 1275
_ExtentX = 2249
_ExtentY = 661
End
Begin VB.Label lblHdr
AutoSize = -1 'True
Caption = "Bac&kStyle:"
Height = 195
Index = 2
Left = 4770
TabIndex = 6
Top = 3195
Width = 750
End
Begin VB.Label lblHdr
AutoSize = -1 'True
Caption = "&BorderStyle:"
Height = 195
Index = 1
Left = 4725
TabIndex = 3
Top = 2475
Width = 900
End
Begin VB.Shape shpProofOfTransparency
DrawMode = 2 'Blackness
FillStyle = 7 'Diagonal Cross
Height = 1590
Left = 3960
Top = 810
Width = 1230
End
Begin VB.Label lblHdr
AutoSize = -1 'True
Caption = "&Text:"
Height = 195
Index = 0
Left = 225
TabIndex = 1
Top = 2475
Width = 390
End
Begin HTMLCtlsLEDemo.pucLogoPane pucLogoPane1
Align = 1 'Align Top
Height = 750
Left = 0
Top = 0
Width = 9105
_ExtentX = 16060
_ExtentY = 1323
Picture = "General.frx":046D
End
Attribute VB_Name = "frmGeneral"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub btnColor_Change(Index As Integer, Color As stdole.OLE_COLOR)
With hbxDemo
Select Case Index
Case 0: .BackColor = Color
Case 1: .ForeColor = Color
Case 2: .AnchorColor = Color
Case 3: .AnchorVisitedColor = Color
End Select
End With
End Sub
Private Sub cboBackStyle_Click()
hbxDemo.BackStyle = cboBackStyle.ListIndex
End Sub
Private Sub cboBorderStyle_Click()
hbxDemo.BorderStyle = cboBorderStyle.ListIndex
End Sub
Private Sub evlDemo_ExitClicked()
Unload Me
End Sub
Private Sub Form_Load()
With hbxDemo
cboBackStyle.ListIndex = .BackStyle
cboBorderStyle.ListIndex = .BorderStyle
btnColor(0).Color = .BackColor
btnColor(1).Color = .ForeColor
btnColor(2).Color = .AnchorColor
btnColor(3).Color = .AnchorVisitedColor
End With
txtText_Change
End Sub
Private Sub hbxDemo_AfterRender()
evlDemo.Add "AfterRender"
End Sub
Private Sub hbxDemo_AnchorDefined(ByVal Id As Long, ByVal hRef As String, ByVal Left As Long, ByVal Top As Long, ByVal Width As Long, ByVal Height As Long)
evlDemo.Add "AnchorDefined", Id, hRef
End Sub
Private Sub hbxDemo_Change(ByVal Text As String)
evlDemo.Add "Change", Text
End Sub
Private Sub hbxDemo_Click()
evlDemo.Add "Click"
End Sub
Private Sub hbxDemo_DblClick()
evlDemo.Add "DblClick"
End Sub
Private Sub hbxDemo_AnchorClick(ByVal AnchorId As Long, ByVal hRef As String)
evlDemo.Add "AnchorClick", AnchorId, hRef
End Sub
Private Sub hbxDemo_AnchorMouseEnter(ByVal AnchorId As Long, ByVal hRef As String)
evlDemo.Add "AnchorMouseEnter", AnchorId, hRef
End Sub
Private Sub hbxDemo_AnchorMouseExit(ByVal AnchorId As Long, ByVal hRef As String)
evlDemo.Add "AnchorMouseExit", AnchorId, hRef
End Sub
Private Sub hbxDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
evlDemo.Add "MouseDown", Button, Shift, X, Y
End Sub
Private Sub hbxDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
evlDemo.Add "MouseUp", Button, Shift, X, Y
End Sub
Private Sub hbxDemo_UnknownParameter(ByVal Tag As String, ByVal Parameter As String, ByVal Value As String)
evlDemo.Add "UnknownParameter", Tag, Parameter, Value
End Sub
Private Sub hbxDemo_UnknownTag(ByVal Tag As String, ByVal Parameters As String)
evlDemo.Add "UnknownTag", Tag, Parameters
End Sub
Private Sub pgrDemo_PropertyChanged(ByVal PropertyName As String, ByVal Value As Variant)
(.txt)