PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Помогите ответте на вопросы 2

Помогите ответте на вопросы 2

Страница: 1

Сообщений 1 страница 2 из 2

1

  • Автор: LisTen
  • Активный участник
  • Зарегистрирован: 17.08.2011
  • Приглашений: 0
  • Сообщений: 30
  • Уважение: [+0/-0]
  • Позитив: [+2/-0]
  • Провел на форуме:
    7 часов 22 минуты
  • Последний визит:
    09.09.2012 11:18:12

Я так и непонял как изменять размер окна.

Как сделать так чтобы, вот у меня есть окно в этом окне кнопка при нажатии на эту кнопку переходило в другое окно.Ну как новое чистое окно.
И в новом окне кнопка чтоб переходить обратно.

OpenWindow(1,150,200,200,200,"GamerPress",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget|#PB_Window_MaximizeGadget)

TextGadget(0, 10, 10, 180, 16, "GamerPress")
ButtonGadget(2,50,70,80,25,"GO")
SetWindowColor(1, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_BackColor, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_FrontColor, RGB(250, 250, 250))

CreateMenu(0, WindowID(1))
MenuTitle("Меню")
MenuItem(0, "Выход")

CreateStatusBar(0, WindowID(1))
AddStatusBarField(90)
AddStatusBarField(100)
StatusBarText(0, 0, "")
StatusBarText(0, 1, "", #PB_StatusBar_BorderLess)

Repeat
  Event=WaitWindowEvent()
  Gadget=EventGadget()
 
  If Event=#PB_Event_Gadget And Gadget=2
    MessageRequester("","Была нажата кнопка")
   
  ElseIf Event=#PB_Event_Menu
    Select EventMenu()
      Case 0
        Break
    EndSelect
  EndIf
 
Until Event = #PB_Event_CloseWindow
End

Отредактировано LisTen (06.09.2011 14:42:25)

0

2

  • Автор: ВиниПур
  • Активный участник
  • Зарегистрирован: 11.11.2010
  • Приглашений: 0
  • Сообщений: 271
  • Уважение: [+8/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 22 часа
  • Последний визит:
    12.03.2022 21:07:46
LisTen написал(а):

Я так и непонял как изменять размер окна.

А справку видел? F1->Window->ResizeWindow()
Это динамически, а если при создании, то OpenWindow(1,150,200,200,200 -Эти цифры.

LisTen написал(а):

Как сделать так чтобы, вот у меня есть окно в этом окне кнопка при нажатии на эту кнопку переходило в другое окно.Ну как новое чистое окно.

Код:
Global FensterZahl 

Procedure FensterThread(value) 
  FensterZahl + 1 
  OpenWindow(FensterZahl, Random(300), Random(300), 200, 200, "Fenster "+Str(FensterZahl), #PB_Window_MinimizeGadget) 

  Repeat 
    Select WaitWindowEvent() 
      Case #PB_Event_CloseWindow 
        QuitThread = 1 
    EndSelect 
  Until QuitThread = 1 

EndProcedure 


If OpenWindow(0, 0, 0, 150, 100, "Hauptfenster", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered) 
  CreateGadgetList(WindowID(0)) 
  #Button1 = 1:ButtonGadget(#Button1, 0, 0, 150, 21, "Neues Fenster erstellen") 

  Repeat 
    Select WaitWindowEvent() 
      Case #PB_Event_Gadget 
        Select EventGadget() ;Gadgets 
          Case #Button1 ;ButtonGadget 
            CreateThread(@FensterThread(),0) 
        EndSelect ;EventGadgetID() 
      Case #PB_Event_CloseWindow 
        Quit = 1 
    EndSelect ;Event 
  Until Quit = 1 

  End 
EndIf

Скачай себе примеры с кодом и смотри как и что делать тут:
http://purearea.net/pb/download/CodeArchiv_v4-Beta.zip

0

Страница: 1

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Помогите ответте на вопросы 2