- 676 名前：デフォルトの名無しさん [2016/09/13(火) 21:48:07.88 ID:WiCEm+2O.net]
- >>644 追加情報
C:\FbEdit\Projects\CustCtrl\FBEPictView\FBEPictView\FBEPictView.bas
GetWindowRect で検索したら、上記ファイルに使用例を見つけることができた。
Dim R As RECT
Dim as HWND hWnd
Dim Astring As String
hWnd = GetDesktopWindow()
GetWindowRect(hWin,@r)
AString = Str(R.Right - R.Left) & "x" & Str(R.Bottom - R.Top)
MessageBox(TakaHWND,"Hello "+AString+"-2","Messagebox caption",MB_ICONINFORMATION)
で何とか取得できたが、単位がわからぬ。
