Microsoft Small Basic

Program Listing: ZRS542

List Program

GraphicsWindow.Title = "Dictionary"
gw = 598
gh = 428
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh
GraphicsWindow.BackgroundColor = "LightGray" ' form color
GraphicsWindow.BrushColor = "Black" ' font color
GraphicsWindow.FontName = "Arial" ' second font candidate
GraphicsWindow.FontName = "MS Reference Sans Serif"
GraphicsWindow.DrawText(10, 14, "Word")
wordBox = Controls.AddTextBox(50, 10)
findBtn = Controls.AddButton("Search", 220, 8)
defBox = Controls.AddMultiLineTextBox(10, 40)
Controls.SetSize(defBox, gw - 20, gh - 50)
Controls.ButtonClicked = OnButtonClicked
Sub OnButtonCLicked
word = Controls.GetTextBoxText(wordBox)
def = Dictionary.GetDefinition(word)
Controls.SetTextBoxText(defBox, def)
EndSub