PureBasic Forums - English

Code: Select all

Enumeration
    #Form1
    
EndEnumeration
Enumeration
    #comboBox2
    #linkLabel2
    #Containerpanel1
    #panel1
    #radioButton2
    #ContainergroupBox2
    #groupBox2
    #button2
    #statusStrip1
    #ContainergroupBox1
    #groupBox1
    #webBrowser1
    #treeView1
    #textBox1
    #richTextBox1
    #radioButton1
    #pictureBox1
    #numericUpDown1
    #monthCalendar1
    #maskedTextBox1
    #listBox1
    #linkLabel1
    #dateTimePicker1
    #label1
    #comboBox1
    #checkedListBox1
    #checkBox1
    #button1
    #menuStrip1
    
EndEnumeration
Enumeration
    #menuxxx
    #asdfasdfasd
    #fdasdfToolStripMenuItem
    #sadfasdToolStripMenuItem
    #asdfsadfasToolStripMenuItem
    #sdafsadfToolStripMenuItem
    #aToolStripMenuItem
    #sadfsadToolStripMenuItem
    #asdfasdfToolStripMenuItem
    #sadfasdToolStripMenuItem1
    #asdfasdToolStripMenuItem
    #asdfsadfasdToolStripMenuItem
    #asdfasdfasdToolStripMenuItem
    #sadfasToolStripMenuItem
    #sdafasdToolStripMenuItem
    #aaaaToolStripMenuItem
    
EndEnumeration
Procedure Form1_Open()
    If OpenWindow(#Form1, 15, 15, 542, 387, "Form1" ,#PB_Window_SystemMenu| #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget |#PB_Window_SizeGadget| #PB_Window_TitleBar  )
        If CreateGadgetList(WindowID(#Form1))
            ComboBoxGadget(#comboBox2,26, 198, 121, 150 , #PB_ComboBox_Editable   )
            HyperLinkGadget(#linkLabel2,13, 236, 67, 14,"linkLabel2", 0 , #PB_Hyperlink_Underline   )
            ContainerGadget(#Containerpanel1, 333,  11, 200, 100)
            Frame3DGadget(#panel1, 333,  11, 200, 100, ""  ,#PB_Frame3D_Single )
            
            CloseGadgetList();panel1
            OptionGadget(#radioButton2, 97, 224, 87, 22, "radioButton2")
            ContainerGadget(#ContainergroupBox2, 300,  59, 200, 100)
            Frame3DGadget(#groupBox2, 300,  59, 200, 100, "groupBox2"  )
            ButtonGadget(#button2, 6, 44, 75, 56, "asdfasdfasfasdfasdfsdfasdfasdfsadfasdfasd" , #PB_Button_Left| #PB_Button_MultiLine)
            
            CloseGadgetList();groupBox2
            
            If CreateStatusBar(#statusStrip1, WindowID(#Form1))
                AddStatusBarField(534)
                StatusBarText(#statusStrip1, 0,"toolStripStatusLabel1")
            EndIf
            
            ContainerGadget(#ContainergroupBox1, 384,  303, 200, 100)
            Frame3DGadget(#groupBox1, 384,  303, 200, 100, "groupBox1"  )
            
            CloseGadgetList();groupBox1
            WebGadget(#webBrowser1, 250, -12, 250, 250, "about:blank")
            TreeGadget(#treeView1, 337, 100, 121, 97 );//PB_Tree_Collapsed
            StringGadget(#textBox1, 144, 29, 100, 21, "" )
            EditorGadget(#richTextBox1,359, 200, 100, 96)
            SetGadgetText(#richTextBox1, "")
            OptionGadget(#radioButton1, 229, 281, 95, 16, "radioButton1")
            ImageGadget(#pictureBox1,229, 13, 100, 50, img_pictureBox1 )
            SpinGadget(#numericUpDown1,300, 228, 120, 21, 0, 100 , #PB_Spin_Numeric   )
            
            IPAddressGadget(#maskedTextBox1,199, 253, 100, 21)
            ListViewGadget(#listBox1,61, 253, 120, 88 )
            HyperLinkGadget(#linkLabel1,210, 100, 65, 12,"linkLabel1", 0 , #PB_Hyperlink_Underline   )
            
            TextGadget(#label1,28, 215, 43, 14,"label1"  , #PB_Text_Border   )
            ComboBoxGadget(#comboBox1,13, 178, 121, 20 , #PB_ComboBox_Editable   )
            
            CheckBoxGadget(#checkBox1,28, 52, 78, 16 , "checkBox1" )
            ButtonGadget(#button1, 48, 27, 75, 23, "button1" , #PB_Button_Left| #PB_Button_Default| #PB_Button_MultiLine)
            If CreateMenu(#menuStrip1, WindowID(#Form1))
                MenuTitle("menu")
                OpenSubMenu("menu")
                OpenSubMenu("²Ëµ¥2")
                MenuItem(#fdasdfToolStripMenuItem, "fdasdf")
                OpenSubMenu("sadfasd")
                MenuItem(#asdfsadfasToolStripMenuItem, "asdfsadfas")
                MenuItem(#sdafsadfToolStripMenuItem, "sdafsadf")
                OpenSubMenu("a")
                MenuItem(#sadfsadToolStripMenuItem, "sadfsad")
                MenuBar()
                MenuItem(#asdfasdfToolStripMenuItem, "asdfasdf")
                CloseSubMenu()
                CloseSubMenu()
                MenuItem(#sadfasdToolStripMenuItem1, "sadfasd")
                MenuItem(#asdfasdToolStripMenuItem, "asdfasd")
                OpenSubMenu("asdfsadfasd")
                MenuItem(#asdfasdfasdToolStripMenuItem, "asdfasdfasd")
                OpenSubMenu("sadfas")
                MenuItem(#sdafasdToolStripMenuItem, "sdafasd")
                CloseSubMenu()
                MenuBar()
                CloseSubMenu()
                MenuBar()
                MenuItem(#aaaaToolStripMenuItem, "aaaa")
                CloseSubMenu()
                MenuBar()
                CloseSubMenu()
            EndIf
        EndIf
    EndIf
EndProcedure
Form1_Open()
Repeat ; Start of the event loop
    
    Event = WaitWindowEvent() ; This line waits until an event is received from Windows
    
    WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
    
    GadgetID = EventGadget() ; Is it a gadget event?
    
    EventType = EventType() ; The event type
    
    ;You can place code here, and use the result as parameters for the procedures
    
    If Event = #PB_Event_Menu
        
  
    EndIf
    
    If Event = #PB_Event_Gadget
        
    EndIf
    
Until Event = #PB_Event_CloseWindow ; End of the event loop

End
;