p; hdc = BeginPaint(handle_of_window, ps)
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
End Function
上一页 [1] [2] |
