Attribute VB_Name = "HtmlCtrlDemoModule"
Option Explicit
'---------------------------------------------------------
'HtmlCtrlDemo
'Use of the WS_HTML_CTRL widget
'---------------------------------------------------------

Public wsFactory As New WStFactory
Public wsForm As New WStForm
Public wsWidget As New WStWidget

Public Sub Main()
    Dim sObjectName As String
    Dim sEventValue As String
    Dim bEnd As Boolean
    Dim bResult As Boolean
    
    bEnd = False
   'Form creation and customization
    wsFactory.CreateFormByName "myForm"
    wsForm.SetCoordTypeByName "myForm", WS_FORM_CT_BYPERCENTAGE
    
    'Widgets creation
    wsFactory.CreateWidget WS_LABEL, 0, "formTittle", 30, 0, 40, 5, "Html Control Demo"
    wsFactory.CreateWidget WS_BUTTON, 0, "exitButton", 5, 80, 29, 12, "Exit"
    wsFactory.CreateWidget WS_HTML_CTRL, 0, "myHtmlCtrl", 5, 17, 90, 60, ""
    wsFactory.CreateWidget WS_MENU, 0, "urlMenu", 5, 10, 90, 35, ""
    
    'Fonts and icons used
    wsFactory.CreateCustomFont 1, 14, True, False, False, "Times New Roman", 0
    wsFactory.LoadExternalIcon 3, WS_EXIT, "iconlib.dll"
    wsWidget.SetIconByName "exitButton", 3
    wsWidget.SetFontByName "formTittle", 1
    wsWidget.SetFontByName "exitButton", 1
   
    'Widget attachment
    wsForm.AddObjectByName "myForm", "formTittle"
    wsForm.AddObjectByName "myForm", "urlMenu"
    wsForm.AddObjectByName "myForm", "exitButton"
    wsForm.AddObjectByName "myForm", "myHtmlCtrl"
     
    'Widgets customization
    wsWidget.ChangeMenuTypeByName "urlMenu", WS_COMBO_BOX_MENU_TYPE
    wsWidget.AddOptionByName "urlMenu", 0, "http://www.softogo.com"
    wsWidget.AddOptionByName "urlMenu", 0, "http://www.google.com.ar"
    wsWidget.AddOptionByName "urlMenu", 0, "http://gmail.com"
    wsWidget.AddOptionByName "urlMenu", 0, "http://10.10.10.19"
       
    wsWidget.SetUrlAddressByName "myHtmlCtrl", "http://www.softogo.com"
        
    bResult = wsForm.ShowByName("myForm", True, True)
    'Waits for an event and perform an action
    While (bEnd = False And bResult)
        
        bResult = wsForm.GetEvent()
        sEventValue = wsForm.GetLastEventStrValue()
        sObjectName = wsForm.GetLastEventSourceName()
       
        Select Case sObjectName
            Case "exitButton"
                bEnd = True
            Case "WSFunctionKeysController"
                If wsForm.GetLastEventIntValue() = WS_ESC Then
                    bEnd = True
                End If
            Case "urlMenu"
                If wsWidget.GetSelectedItemByName("urlMenu") <> -1 Then
                    wsWidget.SetUrlAddressByName "myHtmlCtrl", _
                    wsWidget.GetOptionByName("urlMenu", wsWidget.GetSelectedItemByName("urlMenu"))
                End If
                
        End Select
    Wend

End Sub