Microsoft Small Basic

Program Listing: HXT563

List Program

' Sample using Controls.Remove and Controls.Move

Initialise()
While ("True")
Program.Delay(20)
EndWhile

'============================================
'SUBROUTINES
'============================================
Sub Initialise
'Buttons
buttonLabel[1] = "/ListenReadWatch.html"
buttonLabel[2] = "/home?forum=smallbasi"
buttonLabel[3] = "file:///C:/Users/"
buttonLabel[4] = "www.google.com"
numButton = Array.GetItemCount(buttonLabel)
buttonWidth = 175
For i = 1 To numButton
button[i] = Controls.AddButton(buttonLabel[i],(buttonWidth+10)*(i-1),10)
Controls.SetSize(button[i],buttonWidth,30)
EndFor
'Window size
GraphicsWindow.Width = numButton*(buttonWidth+10)+10 ' + 160
Controls.ButtonClicked = OnButtonClicked
EndSub ' Initialized

Sub OnButtonClicked
'' * To open an url in browser:
If browser <> "" Then
Controls.Remove(browser)
EndIf
If (Controls.LastClickedButton = button[1]) Then
url = "http://vmars.us/reads/ListenReadWatch.html"
browser = LDControls.AddBrowser(800,600, url)
Controls.Move(browser, 0, 50)

ElseIf (Controls.LastClickedButton = button[2]) Then
' * To open an url in IE BrowserControl in GraphicsWindow:
url = "https://social.msdn.microsoft.com/Forums/en-US/home?forum=smallbasic"
browser = LDControls.AddBrowser(800,600, url)
Controls.Move(browser, 0, 50)

ElseIf (Controls.LastClickedButton = button[3]) Then
' * To open a local htm(l) file on your drive in IE BrowserControl in GW:
url = "file:///C:/Users/vmars/Desktop/~reads/ListenReadWatch.html"
browser = LDControls.AddBrowser(800,600, url)
Controls.Move(browser, 0, 50)

ElseIf (Controls.LastClickedButton = button[4]) Then
browser = LDControls.AddBrowser(600, 600, "https://www.google.com")
Controls.Move(browser, 0, 50)
EndIf
EndSub ' OnButtonClicked