This article contains a sample script for creating a user input dialog.
To run this script:
- Copy the script below, or click here to download the BAS file: user dialog example -- text box focus.BAS
- In a Windows Explorer window, navigate to C:\Program Files\Golden Software\Grapher 13.
- Double click on Scripter.exe to launch Scripter.
- Press Ctrl+A to select all of the existing lines then press Delete.
- If you copied this script, press Ctrl+V to paste it into Scripter. If you downloaded it, click File | Open, select the BAS file from your downloads directory, and click Open.
- Click Script | Run to run the script.
OR:
- Copy the script below.
- Open Grapher and turn on the Script Manager by clicking View | Display | Script Manager.
- Press Ctrl+A to select all of the existing lines in the Script Manager and then press DELETE.
- Press Ctrl+V to paste it into the Script Manager.
- Click the Start/Resume icon (
) in the Script Manager.
*********
Sub Main Begin Dialog UserDialog 200,119,"Caption text",.DialogFunc ' %GRID:10,7,1,1 Text 10,10,180,15,"Please input text" TextBox 10,40,180,15,.text CancelButton 110,84,60,21 End Dialog Dim dlg As UserDialog Debug.Print Dialog(dlg) End Sub Function DialogFunc%(DlgItem$, Action%, SuppValue%) DlgFocus "Text" End Function
Updated September 24, 2018
Comments
Please sign in to leave a comment.