test

#UseInterface Web, ColoniePortal, ShipPortal;

Var Frachter As CMyShip;

Var WF As New CHtmlListBox('WF');//welcher Frachter soll fliegen?

WF.Add(New CHtmlListBoxItem('[T]Frachter', '1123366', True);

WF.Add(New CHtmlListBoxItem('[AD]-Topus', '1127320', False);

WF.Add(New CHtmlListBoxItem('[KSF]-Plus', '1130912', False);

Var s As Integer;

 

Var form As New CHtmlForm(New CScriptUrl()); //erstellt eine Form in die die ganzen Buttons usw. hineinkommen

 

 

//nächste Zeile überprüft ob der Button gedrückt wurde

If(Request.Form.ContainsKey('name'))

{

  s = New CMyShip(Request.Form.Item('WF'));

  Frachter.ShipID = s;

  form.Add(Request.Form.Item('WF');

  form.Add(Request.Form.Item('Key'));//gibt den Inhalt der TextBox aus

  form.Add(New CHtmlBreak());

  form.Add(Request.Form.Item('CBox');//gibt an ob sie angehackt ist, 1 bei true, nichts bei false

  form.Add(New CHtmlBreak());

  form.Add(Request.Form.Item('DropDown'));//gibt den DropDown Listenwert aus

  form.Add(New CHtmlSubmitButton('OK', 'Button2');

}

Elseif(Request.Form.ContainsKey('Button2'))

{

  form.Add('Ein sinnloser Text');

  Frachter.Aktion.AndockenAn(16242);

  form.Add(New CHtmlSubmitButton('nicht OK', 'Button3');

}

Elseif(Request.Form.ContainsKey('Button3'))

{

  form.Add('Ein sinnloser Text zum Zweiten');

}

Else

{

 

  form.Add('Das ist ein Test');//fügt einen Text hinzu

 

  form.Add(New CHtmlBreak());//fügt einen Zeilenumbruch hinzu

 

  form.Add(New CHtmlTextBox('Text', 'Key');//fügt eine Textbox hinzu, Text: was drin steht, Key: Wert um die identifizieren zu können

  form.Add(New CHtmlBreak());

 

  form.Add(New CHtmlCheckBox(True, 'CBox');//fügt eine Checkbox hinzu, True/False = checked, CBox der Key

  form.Add(New CHtmlBreak());

 

  Var liste As New CHtmlListBox('DropDown');//erstellt eine DropDownBox

  liste.Add(New CHtmlListBoxItem('Wert1', 'Name1', True);//fügt eine Auswahlmöglichkeit hinzu

  liste.Add(New CHtmlListBoxItem('Wert2', 'Name2', False);// True/False gibt an ob diese Möglichkeit am Anfang ausgewählt sein soll

  form.Add(liste);

  form.Add(WF);

 

  form.Add(New CHtmlSubmitButton('OK', 'name');//neuer Button, OK: Aufschrift des Buttons, name: Identifikationsname

}

 

Response.Add(form);//fügt form dem Fenster hinzu sodass es angezeigt wird