Excel VBA質問箱 IV

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

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


76177 / 76738 ←次へ | 前へ→

【4986】まあ,凹んだりアツクなったりしないで・・・
回答  こう E-MAIL  - 03/4/16(水) 13:19 -

引用なし
パスワード
   ウィンドサイズを求めて,タイトルバーサイズ分大きくし
表示位置を上にずらして「見えなく」するコードです。

Dim xx, yy As Integer
Type RECT
  x1 As Long
  y1 As Long
  x2 As Long
  y2 As Long
End Type

Declare Function GetDesktopWindow Lib "User32" () As Long
Declare Function GetWindowRect Lib "User32" _
      (ByVal hWnd As Long, rectangle As RECT) As Long
'---------------------------------------------------------------
Function GetScreenResolution() As String
Dim R As RECT
Dim hWnd As Long
Dim RetVal As Long
  hWnd = GetDesktopWindow()
  RetVal = GetWindowRect(hWnd, R)
  'GetScreenResolution = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)
  xx = R.x2 - R.x1
  yy = R.y2 - R.y1
End Function

Sub TEST_SET()
  Call GetScreenResolution
  Debug.Print xx, yy
  With Application
    .Height = yy * 0.75 + 20
    .Width = xx * 0.75 + 0
    .Top = -20
    .Left = 0
    .CommandBars("Worksheet Menu Bar").Enabled = False
  End With
  MsgBox "ねっ!"
  With Application
    .Height = yy * 0.75 + 30
    .Width = xx * 0.75 + 0
    .Top = 0
    .Left = 0
    .CommandBars("Worksheet Menu Bar").Enabled = True
  End With
End Sub

3 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 発言

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