Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


76172 / 76732 ←次へ | 前へ→

【4985】Re:なにやら・・
回答  れいぞー WEB  - 03/4/16(水) 13:14 -

引用なし
パスワード
   こんにちは〜♪
ぴかるさんこんにちは横から失礼します♪
タイトルバーを消すのはAPIが手っ取り早いんですが
ぴかるさんの方法が安全でいいと思いますよ・・
一応サンプルです。

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
  (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
   (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
   ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _
   ByVal wFlags As Long) As Long

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim hWnd As Long
Dim ret As Long

Sub Test()
MsgBox "消します。"
hWnd = FindWindow("XLMAIN", Application.Caption)

  ret = GetWindowLong(hWnd, -16)
  ret = ret Xor &HC00000
  ret = SetWindowLong(hWnd, -16, ret)
  ret = SetWindowPos(hWnd, 0, 0, 0, 0, 0, &H20 Or &H4 Or &H2 Or &H1)
    
MsgBox "表示します。"
    
  ret = GetWindowLong(hWnd, -16)
  ret = ret Or &HC00000
  ret = SetWindowLong(hWnd, -16, ret)
  ret = SetWindowPos(hWnd, 0, 0, 0, 0, 0, &H20 Or &H4 Or &H2 Or &H1)
End Sub

では〜♪

1 hits

【4962】タイトルバー 青木 03/4/15(火) 17:08 質問
【4966】Re:タイトルバー ぴかる 03/4/15(火) 17:51 回答
【4968】Re:タイトルバー 森三中 03/4/15(火) 21:11 質問
【4970】ほんまですね。 ぴかる 03/4/16(水) 8:56 発言
【4974】Re:ほんまですね。 森三中 03/4/16(水) 10:07 発言
【4975】Re:ほんまですね。 ぴかる 03/4/16(水) 10:21 発言
【4976】Re:大変申し訳ございませんでした。 森三中 03/4/16(水) 11:08 発言
【4983】Re:大変申し訳ございませんでした。 ぴかる 03/4/16(水) 12:46 発言
【4985】Re:なにやら・・ れいぞー 03/4/16(水) 13:14 回答
【4986】まあ,凹んだりアツクなったりしないで・・・ こう 03/4/16(水) 13:19 回答
【5004】コードの訂正 m(_ _)m こう 03/4/16(水) 22:44 発言
【4993】ありがとうございました。 ぴかる 03/4/16(水) 17:25 お礼
【4999】デバッグって何? こう 03/4/16(水) 20:57 回答
【5006】Re:デバッグって何? ぴかる 03/4/17(木) 9:10 発言
【5025】ありがとうございます。 青木 03/4/17(木) 19:10 お礼
【5048】Re:ありがとうございます。 bykin 03/4/19(土) 0:05 回答
【5066】Dim xx, yy As Integerは怪しいかった? こう 03/4/20(日) 23:10 発言

76172 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free