VB 在MDI窗体的两旁放控件

2025-02-23 07:57:34
推荐回答(1个)
回答1:

你可在其一个子窗体上添加PictureBox控件,在主窗体运行时加载该子窗体。并设置子窗体BorderStyle属性为0
主窗体代码:
Option Explicit

Private Sub MDIForm_Load()
Form1.Height = Me.ScaleHeight
Form1.Width = Me.ScaleWidth
End Sub
子窗体代码:
Option Explicit

Private Sub Form_Load()
Picture1.Height = MDIForm1.ScaleHeight
Picture1.Width = MDIForm1.ScaleWidth / 6
Picture1.Left = 0
Picture1.Top = 0
Picture2.Height = MDIForm1.ScaleHeight
Picture2.Width = MDIForm1.ScaleWidth / 6
Picture2.Left = MDIForm1.ScaleWidth - MDIForm1.ScaleWidth / 6
Picture2.Top = 0
End Sub
方法2:
先添加一个Picture1,然后在Picture1中添加Picture2和Picture3,用以下代码
Private Sub MDIForm_Load()
Picture1.Height = Me.Height
Picture2.Height = Picture1.Height
Picture2.Top = 0
Picture2.Left = 0
Picture2.Width = Picture1.Width / 6
Picture3.Height = Picture1.Height
Picture3.Top = 0
Picture3.Left = Picture1.Width - Picture1.Width / 6
Picture3.Width = Picture1.Width / 6
End Sub