ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月28日(木) 22:30

全ての表示時間は UTC+09:00 です




返信する
ユーザー名:
件名:
メッセージ本文:
メッセージを入力してください。60000 字まで入力できます。 

フォントサイズ:
フォントカラー
オプション:
BBCode: ON
[img]: ON
[flash]: OFF
[url]: ON
スマイリー: OFF
BBCode を無効にする
URL を自動的にパースしない
クイズ
お手数ですがカタカナで「エービー」と4文字を入力してください。:
答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
   

トピックのレビュー - ウインドウを画面の中央に表示
作成者 メッセージ
  記事の件名:  ウインドウ内に収める  引用付きで返信する
上記プログラミングはdx,dyによって右と下はウインドウがはみ出るのことがあるで
それが嫌な人は
コード:
Function SetWindowCenter(hWnd As HWND,dx As Long,dy As Long) As Long
    Dim x As Long,y As Long            'ウインドウの位置
    Dim sx As Long,sy As Long        'スクリーン座標
    Dim Basho As RECT                'ウインドウのrc
	
	
    'ウインドウの位置を取得
    GetWindowRect(hWnd,Basho)

    'スクリーンの大きさ取得
    sx=GetSystemMetrics(SM_CXSCREEN)
    sy=GetSystemMetrics(SM_CYSCREEN)

    If sx * sy = 0 Then
		SetWindowCenter=0
		Exit Function
	End If

    '中央に持っていく計算
    x=(sx-Basho.right+Basho.left)/2+dx
    y=(sy-Basho.bottom+Basho.top)/2+dy

    If x<0 Then
        x=0
    Else If x>sx-Basho.right+Basho.left Then
        x=sx-Basho.right+Basho.left
    End If

    If y<0 Then
        y=0
    Else If y>sy-Basho.bottom+Basho.top Then
        y=sy-Basho.bottom+Basho.top
    End If

    '中央に持っていく
    SetWindowCenter=SetWindowPos(hWnd,HWND_TOP,x,y,0,0,SWP_NOSIZE)
End Function
投稿記事 Posted: 2011年2月28日(月) 15:51
  記事の件名:  ウインドウ内に収める  引用付きで返信する
上記プログラミングはdx,dyによって右と下はウインドウがはみ出るのことがあるで
それが嫌な人は
コード:
Function SetWindowCenter(hWnd As HWND,dx As Long,dy As Long) As Long
    Dim x As Long,y As Long            'ウインドウの位置
    Dim sx As Long,sy As Long        'スクリーン座標
    Dim Basho As RECT                'ウインドウのrc
	
	
    'ウインドウの位置を取得
    GetWindowRect(hWnd,Basho)

    'スクリーンの大きさ取得
    sx=GetSystemMetrics(SM_CXSCREEN)
    sy=GetSystemMetrics(SM_CYSCREEN)

    If sx * sy = 0 Then
		SetWindowCenter=0
		Exit Function
	End If

    '中央に持っていく計算
    x=(sx-Basho.right+Basho.left)/2+dx
    y=(sy-Basho.bottom+Basho.top)/2+dy

    If x<0 Then
        x=0
    Else If x>sx-Basho.right+Basho.left Then
        x=sx-Basho.right+Basho.left
    End If

    If y<0 Then
        y=0
    Else If y>sy-Basho.bottom+Basho.top Then
        y=sy-Basho.bottom+Basho.top
    End If

    '中央に持っていく
    SetWindowCenter=SetWindowPos(hWnd,HWND_TOP,x,y,0,0,SWP_NOSIZE)
End Function
投稿記事 Posted: 2011年2月28日(月) 15:50
  記事の件名:  ウインドウ内に収める  引用付きで返信する
上記プログラミングはdx,dyによって右と下はウインドウがはみ出るのことがあるで
それが嫌な人は
コード:
Function SetWindowCenter(hWnd As HWND,dx As Long,dy As Long) As Long
    Dim x As Long,y As Long            'ウインドウの位置
    Dim sx As Long,sy As Long        'スクリーン座標
    Dim Basho As RECT                'ウインドウのrc
	
	
    'ウインドウの位置を取得
    GetWindowRect(hWnd,Basho)

    'スクリーンの大きさ取得
    sx=GetSystemMetrics(SM_CXSCREEN)
    sy=GetSystemMetrics(SM_CYSCREEN)

    If sx * sy = 0 Then
		SetWindowCenter=0
		Exit Function
	End If

    '中央に持っていく計算
    x=(sx-Basho.right+Basho.left)/2+dx
    y=(sy-Basho.bottom+Basho.top)/2+dy

    If x<0 Then
        x=0
    Else If x>sx-Basho.right+Basho.left Then
        x=sx-Basho.right+Basho.left
    End If

    If y<0 Then
        y=0
    Else If y>sy-Basho.bottom+Basho.top Then
        y=sy-Basho.bottom+Basho.top
    End If

    '中央に持っていく
    SetWindowCenter=SetWindowPos(hWnd,HWND_TOP,x,y,0,0,SWP_NOSIZE)
End Function
投稿記事 Posted: 2011年2月28日(月) 15:49
  記事の件名:  Re: ウインドウを画面の中央に表示  引用付きで返信する
投稿なさった関数を
SetWindowCenter(hMainWnd,0,-28)で指定したら、
画面の中央に表示することをWindows7のPCで確認しました。

これでフルHD(画素数1920×1080)でも十分いけますね?
本当にどうもありがとうございました。
投稿記事 Posted: 2011年2月27日(日) 22:31
  記事の件名:  Re: ウインドウを画面の中央に表示  引用付きで返信する
引用:
> > 何もひねっていませんし、かなり単純なので、余り使い道がないと思いますが・・・(^^;
>
> 大変重宝しています。
> WIN-XPデスクトップ(画素数1024*768)で作成した1024*740のノーマルウインドウのプログラムに上記のソースコードを追加してWIN-7ノート(画素数1368*768)で実行すると画面中央に表示されて見栄えがよくなりました。
おお!
お役に立ててよかったです。
ちなみに私は、こんな感じで関数にして使っています。
かっこつけてFunctionで定義してますが、正直Subでよかったです(^^;

後、ウインドウを既存のウインドウの中央に持って行くのもこれを応用して使ってます。
良かったらどうぞ~
投稿記事 Posted: 2011年2月27日(日) 17:20
  記事の件名:  Re: ウインドウを画面の中央に表示  引用付きで返信する
> 何もひねっていませんし、かなり単純なので、余り使い道がないと思いますが・・・(^^;

大変重宝しています。
WIN-XPデスクトップ(画素数1024*768)で作成した1024*740のノーマルウインドウのプログラムに上記のソースコードを追加してWIN-7ノート(画素数1366*768)で実行すると画面中央に表示されて見栄えがよくなりました。

2013年9月3日修正
投稿記事 Posted: 2011年2月07日(月) 14:36
  記事の件名:  ウインドウを画面の中央に表示  引用付きで返信する
ABで作成したウインドウは、何も指定しなければ、左端で起動のたびにうろちょろします。
ふと、『メッセージボックスのように中央寄せ出来ないかな・・・?』と思い、コードを書いてみました。

何もひねっていませんし、かなり単純なので、余り使い道がないと思いますが・・・(^^;
あとは、足したり引いたりして、好きな場所に移動できます。
何か、変な場所がありましたら、指摘してあげてください。

もしも、重複がありましたら、申し訳ございません。
投稿記事 Posted: 2009年6月07日(日) 20:49

全ての表示時間は UTC+09:00 です


ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean