VB Script - Custom Dialog with Textbox and Dropdown

VB Script - Custom Dialog with Textbox and Dropdown

In this case, we want to create a dialog with a drop-down box and input/text box for numerical input. The values from dialog controls are stored in variables var1 & var2, thus allowing math operations, flow control, etc., from the user's response.  

CODE: 

Dim MyList (2)  'Initialize a static array
MyList (0) = "0.000001"
MyList (1) = "0.000005"
MyList (2) = "0.0000001"
'Create dialog object
Set dlg1 = CreateDialog(16,35,256,89,"Part Material and Temperature")
'Add system buttons
dlg1.Add_OKButton 204,24,40,14
dlg1.Add_CancelButton 204,44,40,14
'Declare variables to get the listbox selection
Dim var1, var2
var1 = 20
var2 = 0 'to select first item by default
dlg1.Add_TextBox 24, 24, 72, 12, var1  'Add a Text Box
dlg1.Add_DropListBox 124,24,72,40,mylist,var2  'Add a drop list box
'Add some static text boxes
dlg1.Add_Text 24,12,75,8,"Part Temperature: (C)"
dlg1.Add_Text 124,12,75,8,"Part CTE: (mm/mm/C)"
Button = ShowDialog ( Dlg1 )  'Show dialog
'Verify drop listbox selections
MsgBox("Temperature = " & var1 &vbCRLF & "DropListbox = " & var2)
Set Dlg1 = Nothing  'Destroy the dialog object after use

    • Related Articles

    • Parametric Programming - Part Families

      Do you manufacture and inspect Part Families? Meaning, variety of parts having similar overall geometry but with varying dimensional characteristics? Instead of cresting one program for each unique part, you can realize significant time savings by ...
    • VB Script - Variable use for Feature Names and User Notes

      When looping Program steps by use of VB Script loop - i.e. For Loop, Do Until, etc. - Features that have been executed more than one time will automatically be renamed using standard convention as such - Circle1, Circle1...1, Circle1...2, ...
    • Launch CMM-Manager Program using External Command

      It is possible to run another CMM-Manager Program from the External Command operation. This is useful if you'd like to create a simple launching program - i.e. main program that prompts user for next program, and then runs accordingly to user ...
    • VB Script - Prompt to skip manual Alignment

      Many times a CMM program may have a manual alignment followed by a DCC alignment. In some cases, the manual alignment does not need to be executed each time the program is run. This is true if subsequent running of the program is done with each part ...
    • VB Script - End program or display error if Dim is Out of Tolerance

      You can retrieve report data into VB using the “GetReportInfo()” function. double GetReportInfo( CString sReportName, CString sReportType, int nIndex ) Return Value The value at the specified cell of the report if the function is successful. The ...