Description

Add an entry for an integer value.

Syntax

object

Required. Object name, returned by set Dim idlg As InputDlg = New InputDlg.

strLabel

Label as it appears in the dialog

lgnValue

Initial value

Example

Dim idlg As InputDlg = New InputDlg

idlg.Title = "My title"

Dim iNum = idlg.AddInt("Number", 1)   ' add numeric field, label = "Number", initial value = 1

                                      ' and return the field index in iNum variable

If idlg.ShowDialog Then           ' if OK was clicked...

  MsgBox(idlg.GetItemValue(iNum))  ' return the value of field with index iNum

End If

See also

AddDateTime, AddCombo, AddString, AddSwitch, ComboAddItem

GetItemValue