Как показать вторую форму?

Раздел посвящен программированию с использованием Power Basic.
Unstat
Реальный басяк
Реальный басяк
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 07.01.2004 (Ср) 22:19
Откуда: Нижний Новгород

Как показать вторую форму?

Сообщение Unstat » 09.12.2004 (Чт) 12:37

Ну конечно вопрос ламерский но я не знаю на него ответа.

X-BOND
Реалист
Реалист
 
Сообщения: 944
Зарегистрирован: 19.08.2002 (Пн) 11:44
Откуда: Ukraine

Сообщение X-BOND » 10.12.2004 (Пт) 10:20

Можно подробней, что значит "другую форму"?

Unstat
Реальный басяк
Реальный басяк
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 07.01.2004 (Ср) 22:19
Откуда: Нижний Новгород

Сообщение Unstat » 10.12.2004 (Пт) 12:51

Ну я две формы создал на первой кнопка по нажатию которой должна загрузиться вторая.

X-BOND
Реалист
Реалист
 
Сообщения: 944
Зарегистрирован: 19.08.2002 (Пн) 11:44
Откуда: Ukraine

Сообщение X-BOND » 10.12.2004 (Пт) 17:56

Давай код, однако.
Будем разбирать...

Unstat
Реальный басяк
Реальный басяк
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 07.01.2004 (Ср) 22:19
Откуда: Нижний Новгород

Сообщение Unstat » 10.12.2004 (Пт) 22:42

Дык кода как раз то и нет просто нарисовал 2 формы на одной кнопка. И как мне при нажатие на кнопку зделать так чтоб показалась вторая.
Ну типо чтоб как в VB было form2.show

X-BOND
Реалист
Реалист
 
Сообщения: 944
Зарегистрирован: 19.08.2002 (Пн) 11:44
Откуда: Ukraine

Сообщение X-BOND » 13.12.2004 (Пн) 19:26

В папке ...\PBWin70\Samples\ полно примеров.

Ладно, для самых ленивых:

Код: Выделить всё
#DIM ALL
#COMPILE EXE
#INCLUDE "WIN32API.INC"

%IDD_MAIN       = 101
%IDC_CMD1       = 1001


DECLARE CALLBACK FUNCTION WndProc()


FUNCTION WINMAIN (BYVAL hInstance AS DWORD, _
                  BYVAL hPrevInstance AS DWORD, _
                  BYVAL lpCmdLine AS ASCIIZ PTR, _
                  BYVAL iCmdShow AS LONG) AS LONG

LOCAL hDlg AS DWORD

DIALOG NEW %HWND_DESKTOP, "Main Window", 100, 100, 200, 100, %WS_POPUP OR _
        %WS_BORDER OR %WS_DLGFRAME OR %WS_SYSMENU OR %WS_CLIPSIBLINGS OR %WS_VISIBLE _
        OR %DS_MODALFRAME OR %DS_3DLOOK OR %DS_NOFAILCREATE OR %DS_SETFONT, %WS_EX_WINDOWEDGE _
        OR %WS_EX_CONTROLPARENT OR %WS_EX_LEFT OR %WS_EX_LTRREADING OR _
        %WS_EX_RIGHTSCROLLBAR, TO hDlg

CONTROL ADD BUTTON, hDlg, %IDC_CMD1, "Show Child Window", 10, 10, 100, 20

DIALOG SHOW MODAL hDlg, CALL WndProc

END FUNCTION



SUB ShowNewWindow(BYVAL hParent AS DWORD)
LOCAL hDlg AS DWORD

DIALOG NEW hParent, "Child Window", 100, 100, 200, 100, %WS_POPUP OR _
        %WS_BORDER OR %WS_DLGFRAME OR %WS_SYSMENU OR %WS_CLIPSIBLINGS OR %WS_VISIBLE _
        OR %DS_MODALFRAME OR %DS_3DLOOK OR %DS_NOFAILCREATE OR %DS_SETFONT, %WS_EX_WINDOWEDGE _
        OR %WS_EX_CONTROLPARENT OR %WS_EX_LEFT OR %WS_EX_LTRREADING OR _
        %WS_EX_RIGHTSCROLLBAR, TO hDlg


DIALOG SHOW MODAL hDlg
END SUB



CALLBACK FUNCTION WndProc

SELECT CASE CBMSG

    CASE %WM_COMMAND

        SELECT CASE CBCTL
        CASE %IDC_CMD1
            CALL ShowNewWindow (BYVAL CBHNDL)
       'CASE...

    END SELECT

END SELECT

END FUNCTION


Вернуться в Power Basic

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7

    TopList  
cron