|
Hello...
I need help! In this script I would like to go from the window B to the window A! Use so the back-button...
PS. I speak very badly in English! :(
;debug on
cls
setconsole("hide")
break on
$System = CreateObject("Kixtart.System")
$Form = $System.Form()
$Form.BackColor = Green
$Form.Width = 340
$Form.Height = 610
$Form.Text = "A"
$Form.Button1 = $Form.Controls.button("Button")
$Form.Button1.Width = 120
$Form.Button1.Height = 50
$Form.Button1.Text = "A"
$Form.Button1.Top = 10
$Form.Button1.Left = 10
$Form.Button1.OnClick = "ButtonA()"
$Form.Button8 = $Form.Controls.button("Button")
$Form.Button8.Width = 120
$Form.Button8.Height = 50
$Form.Button8.Text = "Exit"
$Form.Button8.Top = 500
$Form.Button8.Left = 205
$Form.Button8.OnClick = "quit"
$Form.Show
While $Form.Visible
$=Execute($Form.DoEvents)
Loop
Function ButtonA()
$System = CreateObject("Kixtart.System")
$Form = $System.Form()
$Form.Width = 340
$Form.Height = 610
$Form.BackColor = Green
$Form.Text = "B"
$Form.Button1 = $Form.Controls.Button("Button")
$Form.Button1.Width = 120
$Form.Button1.Height = 50
$Form.Button1.Text = "1"
$Form.Button1.Top = 10
$Form.Button1.Left = 10
$Form.Button1.OnClick = "OnButtonClick()"
$Form.Button2 = $Form.Controls.Button("Button")
$Form.Button2.Width = 120
$Form.Button2.Height = 50
$Form.Button2.Text = "2"
$Form.Button2.Top = 65
$Form.Button2.Left = 10
$Form.Button2.OnClick = "OnButtonClick()"
$Form.Button3 = $Form.Controls.Button("Button")
$Form.Button3.Width = 120
$Form.Button3.Height = 50
$Form.Button3.Text = "3"
$Form.Button3.Top = 120
$Form.Button3.Left = 10
$Form.Button3.OnClick = "OnButtonClick()"
$Form.Button4 = $Form.Controls.Button("Button")
$Form.Button4.Width = 120
$Form.Button4.Height = 50
$Form.Button4.Text = "4"
$Form.Button4.Top = 175
$Form.Button4.Left = 10
$Form.Button4.OnClick = "OnButtonClick()"
$Form.Button5 = $Form.Controls.button("Button")
$Form.Button5.Width = 120 ; Breite
$Form.Button5.Height = 50 ; Länge
$Form.Button5.Text = "Exit"
$Form.Button5.Top = 500
$Form.Button5.Left = 205
$Form.Button5.OnClick = "quit"
$Form.Button6 = $Form.Controls.Button("Button")
$Form.Button6.Width = 120
$Form.Button6.Height = 50
$Form.Button6.Text = "Back"
$Form.Button6.Top = 500
$Form.Button6.Left = 10
$Form.Button6.OnClick = "OnButtonClick()"
$Form.Show
While $Form.Visible
$=Execute($Form.DoEvents)
Loop
EndFunction
Can somebody help me???
Thx.... :)
| 
