读书人

VB中主界面的背景图片,该怎么处理

发布时间: 2012-02-22 19:36:55 作者: rapoo

VB中主界面的背景图片
主界面大小变化时希望背景图片跟着变化(拉伸或缩小),主界面上不放PictureBox,有人说可以把图形读到流里,改变该流的尺寸,然后设置到主界面就行了.50分求该源码.

[解决办法]
在Form上使用Image控件:
Private Sub Form_Load()
Image1.Stretch = True
End Sub

Private Sub Form_Resize()
Image1.Height = Me.Height
Image1.Width = Me.Width
End Sub

[解决办法]
不用控件,直接在窗体上加载图片(属性窗体中点PICTURE项加载图片,或者用LOADPICTURE加载)
Private Sub Form_Load()
me.autoredraw=true
End Sub

Private Sub Form_Resize()
Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

这样就可以了
[解决办法]
你使用MDI窗体,可由一MDI子窗体加载Image,按前述方法代码实现功能.
主窗体代码:
Private Sub MDIForm_Load()
Load Form1
End Sub

Private Sub MDIForm_Resize()
Form1.Height = Me.Height * 0.99
Form1.Width = Me.Width * 0.99
End Sub
子窗体代码:
Private Sub Form_Load()
Image1.Height = Me.Height
Image1.Width = Me.Width
End Sub

Private Sub Form_Resize()
Image1.Height = Me.Height
Image1.Width = Me.Width
End Sub


[解决办法]
好帖子
[解决办法]
学习
[解决办法]
在Form1窗体中放入一个Picture1图片框,用Picture1.Picture加载你的背景图,并且Picture1.visible=false。将窗体FORM1和Picture1的ScaleModel属性都改为Pixel

Private Sub Form_Resize()

BitBlt Me.hDc,0,0,Form1.scalewidth ,Form1.scaleheight,Picture1.hDc,0,0,SRCCOPY

End Sub

[解决办法]
在Form1窗体中放入一个Picture1图片框,用Picture1.Picture加载你的背景图,并且Picture1.visible=false。将窗体FORM1和Picture1的ScaleModel属性都改为Pixel

Private Sub Form_Resize()

BitBlt Me.hDc,0,0,Form1.scalewidth ,Form1.scaleheight,Picture1.hDc,0,0,SRCCOPY

End Sub
...

读书人网 >VB

热点推荐