Ｐａｇｅ 297 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ｽｸﾘｰﾝの大きさ Kubta Katsuhiko 03/6/9(月) 9:54 ┗Re:ｽｸﾘｰﾝの大きさ こうちゃん 03/6/9(月) 15:46 ┗Re:ｽｸﾘｰﾝの大きさ Kubta Katsuhiko 03/6/16(月) 15:11 ─────────────────────────────────────── ■題名 ： ｽｸﾘｰﾝの大きさ ■名前 ： Kubta Katsuhiko ■日付 ： 03/6/9(月) 9:54 -------------------------------------------------------------------------
| ﾌｫｰﾑをｽｸﾘｰﾝの大きさにあわせるために、ｽｸﾘｰﾝの縦と横の大きさを参照する方法を教えてください。 VBでは Screen.Height で参照できるようですが・・・・。 よろしくお願いします。 |
| Kubta Katsuhikoさん、こんにちは >ﾌｫｰﾑをｽｸﾘｰﾝの大きさにあわせるために、ｽｸﾘｰﾝの縦と横の大きさを参照する方法を教えてください。 >VBでは Screen.Height で参照できるようですが・・・・。 >よろしくお願いします。 直接の回答で無くて恐縮ですが・・ 「APIでAccessを最大表示しておいて、Docmdでフォームを最大化する」でどうでしょ？ 'API宣言部 Private Declare Function ShowWindow Lib "USER32" (ByVal hWnd&, ByVal nCmdShow&) As Long Private Const SW_SHOWMAXIMIZED = 3 'Accessウィンドウ最大表示（起動時に実行しておく） ShowWindow hWndAccessApp, SW_SHOWMAXIMIZED 'フォームの最大表示 Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize End Sub って感じです・・ ちなみに、ウィンドウサイズの取得もAPIになっちゃうと思います。 （他の方法もあるとはおもいますが・・） |
| ▼こうちゃん さん： >Kubta Katsuhikoさん、こんにちは > >>ﾌｫｰﾑをｽｸﾘｰﾝの大きさにあわせるために、ｽｸﾘｰﾝの縦と横の大きさを参照する方法を教えてください。 >>VBでは Screen.Height で参照できるようですが・・・・。 >>よろしくお願いします。 > >直接の回答で無くて恐縮ですが・・ > >「APIでAccessを最大表示しておいて、Docmdでフォームを最大化する」でどうでしょ？ > >'API宣言部 >Private Declare Function ShowWindow Lib "USER32" (ByVal hWnd&, ByVal nCmdShow&) As Long >Private Const SW_SHOWMAXIMIZED = 3 > >'Accessウィンドウ最大表示（起動時に実行しておく） >ShowWindow hWndAccessApp, SW_SHOWMAXIMIZED > >'フォームの最大表示 >Private Sub Form_Open(Cancel As Integer) > DoCmd.Maximize >End Sub > >って感じです・・ > >ちなみに、ウィンドウサイズの取得もAPIになっちゃうと思います。 >（他の方法もあるとはおもいますが・・） > >早速のご回答ありがとうございました。 >やっぱりAPIか！・・・という感じですが >まだ、APIを使ったことがないので自信がないのですが、がんばってみます。 >ありがとうございました。 |