> 方法としては、表示させたい画像の大きさを求めて、
> 中央に表示されるようなX座標、Y座標を計算して
> 表示させるのでしょうが、コード的には、さっぱり
> わかりません。
PictureBoxを2つ使えば簡単ですよ。
例:)
Option Explicit
Private Sub Command1_Click()
Label1.Caption = Label1.Caption - 1
If Label1.Caption < 1 Then
Label1.Caption = ImageList1.ListImages.Count
End If
Call LoadImage(CInt(Label1.Caption))
End Sub
Private Sub Command2_Click()
Label1.Caption = Label1.Caption + 1
If Label1.Caption > ImageList1.ListImages.Count Then
Label1.Caption = 1
End If
Call LoadImage(CInt(Label1.Caption))
End Sub
Private Sub Form_Load()
Label1.Caption = 1
Call LoadImage(CInt(Label1.Caption))
End Sub
Private Sub LoadImage(nIndex As Long)
Set Picture1.Picture = ImageList1.ListImages(nIndex).Picture
Picture1.Left = (Picture2.Width - Picture1.Width) / 2
Picture1.Top = (Picture2.Height - Picture1.Height) / 2
End Sub
|