其他:'1、设置BorderStyle属性设置为“0-None” '2、使用 网海1书生 上面说的代码 如果做封面的话,还需要在窗体上放一个Timer '1、设置BorderStyle属性设置为“0-None” '2、窗体上放一个Timer,默认名称为Timer1' Private Sub Form_Click() Form2.Show End Sub Private Sub Form_Load() Me.AutoRedraw = True Timer1.Interval = 3000 Timer1.Enabled = True End Sub Private Sub Form_Paint() Timer1.Enabled = False End Sub Private Sub Form_Resize() Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub Private Sub Timer1_Timer() Timer1.Enabled = False Unload Me Form2.Show End Sub 窗体上一个Image1 把stretch 属性改为true 加载你想要加 的图片。 在窗体的Resize事件里写以下代码 Private Sub Form_Resize() Image1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub
12-03
854
![](https://csdnimg.cn/release/blogv2/dist/pc/img/readCountWhite.png)
05-25
412
![](https://csdnimg.cn/release/blogv2/dist/pc/img/readCountWhite.png)
05-26