Example
| Sub Main Begin Dialog UserDialog 200,120,.DialogFunc Text 10,10,180,15,"Please push the OK button" TextBox 10,40,180,15,.Text OKButton 30,90,60,20 End Dialog Dim dlg As UserDialog Dialog dlg End Sub Function DialogFunc%(DlgItem$, Action%, SuppValue%) Debug.Print "Action=";Action% Select Case Action% Case 1 ' Dialog box initialization Beep For I = 0 To DlgCount()-1 Debug.Print I;DlgName(I) Next I End Select End Function
|