- 日時： 2009/04/14 09:24
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[描画・画像][] *
* キーワード：PictureBox,中央に配置,座標位置,指定位置,画像を表示, *
***********************************************************************************
タイトル ： ピクチャーボックスの表示位置
記 事 No ： 13562
投 稿 日 ： 2009/04/03(Fri) 11:01
元質問者 ： 16万
フォーム上のピクチャーボックスにjpgファイルを表示させる際、AutoSize = True に
している場合、常に画像は左上に寄せて配置になるんですが、この画像を中央に配置、
もしくは所定の座標値から描画するということはできないのでしょうか？
-----------------------------------------------------------------------------------
記事No ： 13566
投稿日 ： 2009/04/04(Sat) 00:01
回答者 ： 花ちゃん
-----------------------------------------------------------------------------------
Option Explicit
Private Sub Form_Load()
Dim Pic As Picture
Dim Pw As Long
Dim Ph As Long
Dim Sw As Long
Dim Sh As Long
Me.AutoRedraw = True
Picture1.AutoRedraw = True
Set Pic = LoadPicture("c:\test.jpg")
'Form と画像のサイズを求めて中央を計算
Sw = Me.ScaleWidth \ 2
Sh = Me.ScaleHeight \ 2
Pw = CLng(Me.ScaleX(Pic.Width, 8, vbTwips)) \ 2
Ph = CLng(Me.ScaleY(Pic.Height, 8, vbTwips)) \ 2
'Form の中央に表示
Me.PaintPicture Pic, Sw - Pw, Sh - Ph
'PictureBox の指定位置に表示
Picture1.PaintPicture Pic, 300, 100
End Sub
※ 上記実行結果の画像 (画像をクリックすると元のサイズで見られます。)
|
フォーム又はピクチャーボックスの指定位置に画像を表示する(VB6.0)