fb:porticula NoPaste

Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen
Dateidownload
Handle

Uploader:	raph ael
Datum/Zeit:	31.03.2008 21:28:09
#include once "windows.bi"

#Include Once "win/commctrl.bi"

#Include Once "win/commdlg.bi"

#Include Once "win/shellapi.bi"



#define IDD_SIGNON              1100

#define IDC_SIGNON_SERVER_GROUP  1002

#define IDC_SIGNON_SERVER_RADIO_IP 1003

#define IDC_SIGNON_SERVER_RADIO_HOST 1004

#define IDC_SIGNON_SERVER_ENTERIP 1005

#define IDC_SIGNON_SERVER_ENTERHOST 1006

#define IDC_SIGNON_CONNECT      1007

#define IDC_SIGNON_EDIT         1008



Dim Shared hInstance As HMODULE







Function SignonDlgProc(ByVal hWin As HWND, ByVal uMsg As UINT, ByVal wParam As WPARAM, ByVal lParam As LPARAM) As Integer

    Dim As Long id, nEvent

    Select Case uMsg

        Case WM_INITDIALOG

            CheckRadioButton(hWin, IDC_SIGNON_SERVER_RADIO_IP, IDC_SIGNON_SERVER_RADIO_HOST, IDC_SIGNON_SERVER_RADIO_IP)

            EnableWindow(LoadResource(hinstance, FindResource(hinstance, MAKEINTRESOURCE(IDC_SIGNON_SERVER_RADIO_HOST), RT_DIALOG)), FALSE)

        Case WM_COMMAND

            id=LoWord(wParam)

            nEvent=HiWord(wParam)

            Select Case nEvent

                Case BN_CLICKED

                    Select Case id

                        Case IDC_SIGNON_CONNECT

                        Case IDC_SIGNON_EDIT

                        Case IDC_SIGNON_SERVER_RADIO_IP

                            If IsDlgButtonChecked(hWin, IDC_SIGNON_SERVER_RADIO_IP) = BST_CHECKED Then

                                EnableWindow(LoadResource(hinstance, FindResource(hinstance, MAKEINTRESOURCE(IDC_SIGNON_SERVER_ENTERHOST), RT_DIALOG)), FALSE)

                            EndIf

                        Case IDC_SIGNON_SERVER_RADIO_HOST

                            If IsDlgButtonChecked(hWin, IDC_SIGNON_SERVER_RADIO_HOST) = BST_CHECKED Then

                                EnableWindow(LoadResource(hinstance, FindResource(hinstance, MAKEINTRESOURCE(IDC_SIGNON_SERVER_ENTERIP), RT_DIALOG)), FALSE)

                            EndIf

                    End Select

                    '

                Case EN_CHANGE

                    Select Case id

                        Case IDC_SIGNON_SERVER_ENTERHOST

                    End Select

                    '

            End Select

            '

        Case WM_CLOSE

            EndDialog(hWin, 0)

            '

        Case WM_SIZE

            '

        Case Else

            Return FALSE

            '

    End Select

    Return TRUE



End Function



'''

''' Program start

'''



    ''

    '' Create the Dialog

    ''

    hInstance=GetModuleHandle(NULL)

    DialogBoxParam(hInstance,Cast(ZString Ptr,IDD_SIGNON),0,@SignonDlgProc,0)

    ''

    '' Program has ended

    ''



    ExitProcess(0)

    End



'''

''' Program end

'''