Below ist the code of an sub-dialog.
It will be call from a maindialog
My question: What is wrong in the editbox objekt?
How can a check integer values (ie. ChnNummbers) in editboxes?
Why does not the sript "autosequenz" start ?
Thanks for help !
Answers also in german possible
'###########################################################
' Code of the Dialog
'(Declarations)
'End of (Declarations)
Sub Abbrechen_EventClick() 'button cancel
Dim This : Set This = Abbrechen
Dialog.Cancel
End Sub
Sub edEndKanal_EventInitialize() 'editbox
Dim This : Set This = edEndKanal
This.Text = GlobUsedChn
End Sub
Sub edStartKanal_EventInitialize() 'editbox
Dim This : Set This = edStartK
anal
This.Text = 1
End Sub
Sub OK_EventClick() 'button ok
Dim This : Set This = OK
If (edStartKanal.Text < 1) Or (edStartKanal.Text > edEndKanal.text) Then
Call MsgBoxDisp("Ungültige Werte")
End If
If (EdEndKanal.Text > GlobUsedChn) Or (edEndKanal.Text < edStartKanal.Text) Then
Call MsgBoxDisp("Ungültige Werte")
Else
KommChnStart_ = edStartKanal.Text 'load to a UserVar
KommChnEnd_ = edEndKanal.Text
Call scriptstart (AutoActpath & "autosequenz") 'If values ok do this script !
Dialog.Cancel 'and close subdialog
End if
End Sub
'###########################################################################
