KiXforms

[Frank Bonefont]

I want to close a form using a Function statement. I'm coding in vbScript and using a kiXForm in the code. I receive the following error message:

C:\Documents and Settings\Dad\My Documents\AdminScriptEditor\bkuprstr3.vbs(131, 2) Microsoft VBScript runtime error: Type mismatch: 'Close'

I appreciate your help...

'~~< Form1> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim Form1: Set Form1 = System.Form()
Form1.Text = "Backup/Restore:"
'~~< CancelButton ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim CancelButton: Set CancelButton = Form1.Controls.Button
CancelButton.Size = System.Size(102, 21)
CancelButton.Text = "Cancel..."
CancelButton.Location = System.Point(175, 212)
CancelButton.OnClick = "Exit_Form( CancelButton )"
.
.
.
'region Event Handlers

Function Exit_Form( Object )
Close()
End Function

'endregion

[Shawn]

Couple ways to do this ...

1) If you want to close the form but continue executing code after the DoEvents loop, I would just Form.Hide inside your Exit_Form function ... this will cause the loop to finish (because Form.Visible will be false) ... then just carry-on after the loop

2) If you want to close the form and the script, maybe just WScript.Quit from inside the function.


-Shawn

[Frank Bonefont]

Thanks Shawn...I'll give it a try. I'm new to KiXforms and I see lots of advantages with forms within vbScript. Thanks for replying...

[CluM09]

Hello,

I have a For..Next loop within the VBscript code to run some task. I like to insert the Execute(Formname.DoEvent) within the loop so that when I click on the button, it will quit the VBScript and close the form.

However, when I insert the Execute(Formname.DoEvent) code within the For...Next Loop, the loop cannot proceed. The loop just hangs at the Execute(Formname.DoEvernt) line indefinitely.

How can I stop break the loop with a button click?

Thanks for any suggestion.