Control Reference

Sub Form1_Load
  Form1.Caption = "My Application"
  Form1.BackColor = "#ffffff"
End Sub

Sub cmdSubmit_Click
  MsgBox "Button clicked!"
  cmdSubmit.Enabled = False
End Sub

Sub txtName_Change
  lblPreview.Caption = "Hello, " & txtName.Text
End Sub

lblStatus.Caption = "Ready"
lblStatus.ForeColor = "#00ff00"

Sub chkAgree_Click
  If chkAgree.Value = 1 Then
    cmdSubmit.Enabled = True
  Else
    cmdSubmit.Enabled = False
  End If
End Sub

Sub optSmall_Click
  CalcPrice
End Sub
Sub optMed_Click
  CalcPrice
End Sub
Sub optLarge_Click
  CalcPrice
End Sub

Sub CalcPrice
  If optSmall.Value = 1 Then total = 10
  If optMed.Value = 1 Then total = 14
  If optLarge.Value = 1 Then total = 18
  lblTotal.Caption = "$" & total
End Sub

Sub Form1_Load
  cboCrust.Clear
  cboCrust.AddItem "Thin Crust"
  cboCrust.AddItem "Deep Dish"
  cboCrust.AddItem "Stuffed Crust"
  cboCrust.ListIndex = 0
End Sub

Sub cmdAdd_Click
  lstTasks.AddItem txtTask.Text
  txtTask.Text = ""
  lblStatus.Caption = "Task added."
End Sub

Sub cmdRemove_Click
  If lstTasks.ListIndex = -1 Then
    MsgBox "Select an item to remove."
    Exit Sub
  End If
  lstTasks.RemoveItem lstTasks.ListIndex
End Sub

' Place OptionButtons inside a Frame
' to create a mutually exclusive group

' fraSize contains optSmall, optMed, optLarge
' fraToppings contains chkPep, chkSaus, chkXCheese

Sub optSmall_Click
  CalcPrice
End Sub

Sub TabContainer1_TabChange
  lblStatus.Caption = "Tab " & TabContainer1.SelectedTab
End Sub

Sub Form1_Load
  Grid1.Rows = 1
  Grid1.Cols = 4
  Grid1.FixedRows = 1
  Grid1.FixedCols = 0

  Grid1.TextMatrix(0, 0) = "Date"
  Grid1.TextMatrix(0, 1) = "Region"
  Grid1.TextMatrix(0, 2) = "Rep"
  Grid1.TextMatrix(0, 3) = "Sales"
End Sub

Sub cmdLoad_Click
  Dim row
  row = Replace("2023-10-01,North,Smith,1500", ",", vbTab)
  Grid1.AddItem row
End Sub

# Python with Pandas
import pandas as pd

def cmdLoadData_Click():
    df = pd.DataFrame({
        "Product": ["Laptop", "Mouse", "Keyboard"],
        "Price": [1299.99, 29.99, 89.99],
        "Stock": [25, 150, 60]
    })
    grdProducts.DataFrame = df

Sub Form1_Load
  Chart1.Title = "Q1 Sales Performance"
  Chart1.Clear
  Chart1.AddPoint "Jan", 450, vbBlue
  Chart1.AddPoint "Feb", 520, vbGreen
  Chart1.AddPoint "Mar", 380, vbRed
End Sub

Sub optBar_Click
  Chart1.ChartType = "0 - Bar"
End Sub
Sub optLine_Click
  Chart1.ChartType = "1 - Line"
End Sub
Sub optPie_Click
  Chart1.ChartType = "2 - Pie"
End Sub

Sub Form1_Load
  Data1.CreateTable "Products", "ID:AutoNumber, Name:Text, Price:Number"
  Data1.TableName = "Products"

  Data1.AddNew
  Data1.Fields("Name") = "Laptop Pro"
  Data1.Fields("Price") = 1299.99
  Data1.Update

  Data1.MoveFirst
  lblStatus.Caption = "Record 1 of " & Data1.RecordCount
End Sub

Sub cmdFind_Click
  Data1.FindFirst "Name = 'Laptop Pro'"
  If Data1.NoMatch Then
    MsgBox "Not found"
  End If
End Sub

Image1.Picture = "https://example.com/photo.jpg"
Image1.Stretch = True

Dim ball_x, ball_y, ball_dx, ball_dy

Sub Form1_Load
  ball_x = 200 : ball_y = 150
  ball_dx = 4  : ball_dy = 3
End Sub

Sub Timer1_Timer
  Canvas1.Clear
  Canvas1.FillCircle ball_x, ball_y, 20, "#ff4444"
  Canvas1.DrawText "Score: " & score, 10, 20, "#ffffff", 14

  ball_x = ball_x + ball_dx
  ball_y = ball_y + ball_dy
  If ball_x < 20 Or ball_x > 430 Then ball_dx = 0 - ball_dx
  If ball_y < 20 Or ball_y > 280 Then ball_dy = 0 - ball_dy
End Sub

Shape1.Shape = 3  ' Circle
Shape1.FillColor = "#ff6600"
Shape1.BorderColor = "#000000"

' Battery monitor gauges
Sub Form1_Load
  GaugeVolts.MinValue = 10
  GaugeVolts.MaxValue = 16
  GaugeVolts.Title = "Voltage"
  GaugeVolts.Unit = "V"
  GaugeVolts.ThresholdLow = 11.5
  GaugeVolts.ThresholdHigh = 13.5
  GaugeVolts.GaugeStyle = "0 - Radial"

  GaugeSoc.MinValue = 0
  GaugeSoc.MaxValue = 100
  GaugeSoc.Title = "SOC"
  GaugeSoc.Unit = "%"
End Sub

' Update from MQTT data
Sub UpdateGauges(voltage, soc)
  GaugeVolts.Value = voltage
  GaugeSoc.Value = soc
End Sub

Sub Form1_Load
  hsbRed.Min = 0
  hsbRed.Max = 255
End Sub

Sub hsbRed_Change
  UpdateColor
End Sub
Sub hsbRed_Scroll
  UpdateColor
End Sub

Sub UpdateColor
  lblRed.Caption = hsbRed.Value
End Sub

Sub VScroll1_Change
  Shape1.Height = VScroll1.Value
End Sub

Sub cmdCalc_Click
  Dim dobStr, age
  dobStr = dtpBirth.Value
  age = Year(Now) - Year(dobStr)
  lblAge.Caption = "You are " & age & " years old."
End Sub

Sub Form1_Load
  Web1.Url = "https://www.wikipedia.org"
  txtUrl.Text = "https://www.wikipedia.org"
End Sub

Sub cmdGo_Click
  Web1.Navigate txtUrl.Text
  lblStatus.Caption = "Navigating..."
End Sub

Sub Web1_DocumentComplete
  lblStatus.Caption = "Done"
End Sub

' Simple GET request
Sub cmdFetch_Click
  Dim result
  result = Inet1.OpenURL("https://api.ipify.org")
  MsgBox "Your IP: " & result
End Sub

' JSON with callback
Sub cmdGetJSON_Click
  Inet1.GetJSON "https://jsonplaceholder.typicode.com/users/1", "OnJSON"
End Sub

Sub OnJSON(data)
  txtOutput.Text = "Name: " & data("name")
End Sub

' Authenticated request
Sub cmdAuth_Click
  Dim response
  response = Inet1.Execute(txtUrl.Text, "GET", "", "Authorization: Bearer " & txtToken.Text)
  txtResponse.Text = response
End Sub

Sub cmdConnect_Click
  Mqtt1.BrokerUrl = "mqtt7.victronenergy.com"
  Mqtt1.Port = 8883
  Mqtt1.UseTLS = True
  Mqtt1.Connect
End Sub

Sub Mqtt1_Connect
  Mqtt1.Subscribe "N/+/system/0/Dc/Battery/Voltage"
  Mqtt1.Subscribe "N/+/system/0/Dc/Battery/Soc"
  lblStatus.Caption = "Connected"
End Sub

Sub Mqtt1_Message(topic, payload)
  If InStr(topic, "Voltage") > 0 Then
    GaugeVolts.Value = Val(payload)
  ElseIf InStr(topic, "Soc") > 0 Then
    GaugeSoc.Value = Val(payload)
  End If
End Sub

Sub Mqtt1_Error(errMsg)
  lblStatus.Caption = "Error: " & errMsg
End Sub

Sub Form1_Load
  Timer1.Interval = 1000
  Timer1.Enabled = True
  lblTime.Caption = Time

  ' Stopwatch using a second timer
  Timer2.Interval = 100
  Timer2.Enabled = False
End Sub

Sub Timer1_Timer
  lblTime.Caption = Time
End Sub

Sub Timer2_Timer
  TickCount = TickCount + 1
  lblElapsed.Caption = FormatNumber(TickCount / 10, 1) & "s"
  shpProgress.Width = (TickCount * 5) Mod 300
End Sub

Sub Form1_Load
  ' Add contacts with custom fields (City, Postal)
  Rolodex1.AddCard "Anderson, David", "555-123-4001", "david@acme.com", "CEO", "City", "New York", "Postal", "10001"
  Rolodex1.AddCard "Baker, Jennifer", "555-123-4002", "jennifer@tech.io", "Developer", "City", "San Francisco", "Postal", "94102"
End Sub

Sub cmdAdd_Click
  Rolodex1.AddCard txtName.Text, txtPhone.Text, txtEmail.Text, txtNotes.Text, "City", txtCity.Text, "Postal", txtPostal.Text
  Dim firstLetter
  firstLetter = UCase(Left(txtName.Text, 1))
  Rolodex1.GotoLetter firstLetter
End Sub

' Create a LoginBox UserControl with
' properties: Username, Password
' methods: Clear(), Validate()
' events: LoginClicked, CancelClicked