fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Versuch zur ComboBox [Teilcode]

Uploader:	Sebastian
Datum/Zeit:	12.09.2009 17:25:26

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



    Select Case uMsg

        Case WM_INITDIALOG

            hWnd=hWin

            hWndDropDown = CreateDialogParam(hInstance, MAKEINTRESOURCE(IDD_DROPDOWN), 0, @WndProcDropDown, 0)

            SendMessage(GetDlgItem(hWin, IDC_DROPDOWN), STW_DROPDOWN_SETWND, 0, cast(LPARAM, hWndDropDown))

            SetWindowPos (hWndDropDown, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE Or SWP_SHOWWINDOW)

            SetFocus(hWin)

        Case WM_COMMAND

            Select Case HiWord(wParam)

                Case BN_CLICKED,1

                    Select Case LoWord(wParam)

                        Case IDM_FILE_EXIT

                            SendMessage(hWin,WM_CLOSE,0,0)



                        Case IDM_HELP_ABOUT

                            ShellAbout(hWin,@AppName,@AboutMsg,NULL)



                    End Select

            End Select



        Case WM_SIZE



        Case WM_CLOSE

            DestroyWindow(hWin)



        Case WM_DESTROY

            PostQuitMessage(NULL)



        Case Else

            Return DefWindowProc(hWin,uMsg,wParam,lParam)



    End Select

    Return 0



End Function

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.