Erster Versuch mit Version 5.62

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
dl5ndh
Beiträge: 94
Registriert: 13.05.2008 19:55

Erster Versuch mit Version 5.62

Beitrag von dl5ndh »

Ich habe mit der Version 5.62 eine Form-Datei erstellt, also ein einfaches Fenster mit 2 Text-Gadgets drin. Diese Datei hat den Namen Beispiel-Fenster.pbf
Jetzt brauche ich aber noch eine Hauptdatei, also eine Datei mit der Endung *.pb, in welcher dann dieses Formfenster aus der Datei Beispiel-Fenster.pbf geöffnet wird und die Ereignisschleife dazu drin ist.
Kann man zum Formfenster auch die Ereignisschleife generieren lassen und wenn ja, wie geht das ?

Hier ist mein Formdatei-Quelltext aus Beispiel-Fenster.pbf:

Code: Alles auswählen

;
; This code is automatically generated by the FormDesigner.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures needs to be put in another source file.
;

Global Window_0

Global Text_0, Text_1

Enumeration FormFont
  #Font_Window_0_0
  #Font_Window_0_1
EndEnumeration

LoadFont(#Font_Window_0_0,"Bahnschrift Light Condensed", 100)
LoadFont(#Font_Window_0_1,"Arial", 22)


Procedure OpenWindow_0(x = 0, y = 0, width = 1600, height = 800)
  Window_0 = OpenWindow(#PB_Any, x, y, width, height, "", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_Tool | #PB_Window_ScreenCentered)
  Text_0 = TextGadget(#PB_Any, 10, 10, 1580, 170, "BEISPIEL", #PB_Text_Center | #PB_Text_Border)
  GadgetToolTip(Text_0, "Fenster für die Ratebegriffe")
  SetGadgetColor(Text_0, #PB_Gadget_FrontColor,RGB(255,255,255))
  SetGadgetColor(Text_0, #PB_Gadget_BackColor,RGB(0,64,128))
  SetGadgetFont(Text_0, FontID(#Font_Window_0_0))
  Text_1 = TextGadget(#PB_Any, 1190, 190, 400, 35, "Beispiel", #PB_Text_Center | #PB_Text_Border)
  GadgetToolTip(Text_1, "Anzeige der Bereiche")
  SetGadgetFont(Text_1, FontID(#Font_Window_0_1))
EndProcedure

Procedure Window_0_Events(event)
  Select event
    Case #PB_Event_CloseWindow
      ProcedureReturn #False

    Case #PB_Event_Menu
      Select EventMenu()
      EndSelect

    Case #PB_Event_Gadget
      Select EventGadget()
      EndSelect
  EndSelect
  ProcedureReturn #True
EndProcedure
Vielen Dank für's lesen und die Beantwortung, falls mir jemand helfen möchte.
Gerhard



+ Code-Tags -- Andesdaf
Nino
Beiträge: 1300
Registriert: 13.05.2010 09:26
Wohnort: Berlin

Re: Erster Versuch mit Version 5.62

Beitrag von Nino »

dl5ndh hat geschrieben:Kann man zum Formfenster auch die Ereignisschleife generieren lassen und wenn ja, wie geht das ?
Datei > Einstellungen > Form > [v] Ereignisprozedur generieren :-)
Benutzeravatar
dl5ndh
Beiträge: 94
Registriert: 13.05.2008 19:55

Re: Erster Versuch mit Version 5.62

Beitrag von dl5ndh »

Vielen Dank, ich habe mal nachgesehen und unter Form war schon standardmaessig das Generieren der Ereignisprozedur vorgesehen.
Kann ich also das komplette Programm, also auch den übrigen Programmtext innerhalb der Datei Irgendwas.pbf hinzufügen und laufen lassen?
Also benötige ich keine "normale" *.pb Datei mehr nehme ich mal an.

Oder anders gefragt, wohin schreibe ich den Quelltext des eigentlichen Hauptprogrammes?
Ein schönes WE dann :)
Benutzeravatar
dl5ndh
Beiträge: 94
Registriert: 13.05.2008 19:55

Re: Erster Versuch mit Version 5.62

Beitrag von dl5ndh »

Hallo, bitte nicht mehr antworten, ich habe nach einigem Probieren jetzt mein Problem gelöst, denke ich zumindest.
Bis ein anderes Mal, wenn wieder mal etwas klemmt :shock:
Gerhard
Antworten