怎样将MDIform中的背景图片居中显示？

Question

怎样将MDIform中的背景图片居中显示？

Answer 1

用图片框显示图片，移动图片框使其在mdiform中居中。

Answer 2

MDIform的picture属性  添加图片不行?

Answer 3

好像这样的picturebox.left属性不能设置

Answer 4

这个可以  你在MDIForm_Resize 事件中写 Me.Picture a, b, c, d
a是指left,b是top,c是width,d是height

Answer 5

可以这么做,在MDIForm1上先添加Picture1控件,将它的高度调整为与MDIForm1高度一致,然后在Picture1控件上添加Image1控件,并设置该控件的属性Stretch为True,然后调整Image1控件于你想显示图片位置.最后设置Image1控件的Picture属性所关联的图片.

Answer 6

Private Sub MDIForm_Resize()
    Picture1.Height = Me.Height
    Image1.Stretch = True
    Image1.Top = Picture1.Height * 0.1
    Image1.Left = Picture1.Width * 0.1
    Image1.Height = Picture1.Height * 0.8
    Image1.Width = Picture1.Width * 0.8
End Sub

Answer 7

我是用的和这个思路差不多，但用的是两个picturebox，发现问题是，别的子窗体不能显示，似乎被覆盖了

Answer 8

动点脑就行:
Option Explicit
    Dim flag As BooleanPrivate Sub MDIForm_Resize()
    Picture1.Height = Me.Height
    Image1.Stretch = True
    Image1.Top = Picture1.Height * 0.1
    Image1.Left = Picture1.Width * 0.1
    Image1.Height = Picture1.Height * 0.8
    Image1.Width = Picture1.Width * 0.8
End SubPrivate Sub open_Click()
    If flag Then
        Me.Picture1.Visible = True
        Form1.Hide
    Else
        Me.Picture1.Visible = False
        Form1.Show
    End If
    flag = Not flag
End Sub