仿照SDK编程写的窗口[3]

            call getclientrect(handle_of_window, rc)
            str = "hello, world!"
            call drawtext(hdc, str, len(str), rc, dt_singleline or dt_center or dt_vcenter)
            call endpaint(handle_of_window, ps)
            exit function
   
        'case wm_keydown
        '    call postmessage(handle_of_window, wm_close, 0, 0)
        '    exit function
           
        case wm_destroy
            postquitmessage 0&
            exit function
           
        case else
            windowproc = defwindowproc(handle_of_window, message, wparam, lparam)
    end select
end function
 
function getfuncptr(byval lngfnptr as long) as long
    getfuncptr = lngfnptr