怎样将MDIform中的背景图片居中显示?该怎么解决
怎样将MDIform中的背景图片居中显示?
怎样将MDIform中的背景图片居中显示?
------解决方案--------------------
动点脑就行:
怎样将MDIform中的背景图片居中显示?
------解决方案--------------------
动点脑就行:
Option Explicit
Dim flag As Boolean
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
Private 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