Private Sub Form_Paint() Me.PaintPicture Me.Picture,Form1.Width,Form1.Height End Sub Private Sub Form_Resize() Me.PaintPicture Me.Picture,Form1.Height End Sub
只第一个过程时,在标准窗体与最大化窗体变化时会只有部分背景出现,加上最后一个过程就完美了。
Private Sub Form_Paint() Me.PaintPicture Me.Picture,Form1.Width,Form1.Height End Sub Private Sub Form_Resize() Me.PaintPicture Me.Picture,Form1.Height End Sub
只第一个过程时,在标准窗体与最大化窗体变化时会只有部分背景出现,加上最后一个过程就完美了。