|
Hi Shawn,
it doesn´t work. Here is the whole script. I only want to know, how I can type some values in a (kix-)form and how to read the values out. Why doesn´t it work ?
setconsole ("hide") break on $PROJEKT = createobject("KIXTART.form") $PROJEKT.backcolor = &2CCD148 $PROJEKT.text = "Textbox" $PROJEKT.width = 660 $PROJEKT.height = 660 $PROJEKT.show
function f_Eingabe($E_Text) $Projekt.messagebox($E_Text,$E_Text,0) endfunction
function Start() $My_Button = $PROJEKT.controls.button("Calculate") $My_Button.top = 250 $My_Button.left = 175 $My_Button.width = 250 $My_Button.FontSize=14 $Input_1 = $PROJEKT.controls.textbox $Input_1.left = 430 $Input_1.top = 90 $Input_1.width = 70 $Input_1.FontSize = 14 $Input_1.SetFocus $My_Value = $Input_1.text $My_Button.onclick = f_Eingabe("$My_Value") endfunction
Start() while $PROJEKT.visible $=execute($PROJEKT.doevents) loop exit
Thank you for help
|