アイコンをクリックして出るサイズ変更 (ID:110906)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 えっと --標準モジュールに張り付け Public Declare Function DeleteMenu Lib "USER32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Public Declare Function GetSystemMenu Lib "USER32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Public Declare Function DrawMenuBar Lib "USER32" (ByVal hwnd As Long) As Long Public Const SC_SIZE = &HF000 '「サイズ変更」 Public Sub EnabledMenu(nHandle As Long, Flag As String) Dim lpString As String 'システムメニューのラベル Dim Ret As Long '戻り値 Dim nLeng As Long '文字列の長さ Dim hMen As Long 'システムメニューのハンドル 'バッファを確保する lpString = String(250, Chr(0)) nLeng = Len(lpString) 'システムメニューのハンドルを確保 hMen = GetSystemMenu(nHandle, 1) 'システムメニューのラベルを取得 Ret = GetMenuString(hMen, Flag, lpString, nLeng, MF_ENABLED) 'メニューの属性を変更する Ret = ModifyMenu(hMen, Flag, MF_ENABLED, 0, lpString) '描画（変更を反映） Ret = DrawMenuBar(nHandle) End Sub Public Sub Delete(nHandle As Long, Flag As String) Dim hMen As Long 'システムメニューのハンドル Dim Ret As Long '戻り値 'システムメニューのハンドルを確保 hMen = GetSystemMenu(nHandle, 0) 'システムメニューの項目を削除する Ret = DeleteMenu(hMen, Flag, MF_BYCOMMAND) '描画（変更を反映） Ret = DrawMenuBar(nHandle) End Sub --こっちはフォームに張り付け（ボタン一個用意して） Private Sub Command1_Click() Call Delete(hwnd, SC_SIZE) End Sub とやりたいとか？