VB6.0在窗体里面加的背景图片很大的时候,如何让图片去根据窗体的大小来显示?
编程过程中,要加的背景图片过大时,当窗体最大化显示的时候也还无法把图片完整的显示出来,只显示了原来图片的一部分出来,此时已无法让窗体去适应图片大小了吧!怎样在程序运行过程中,让图片改变大小来适应窗体的大小而使得图片能在窗体里面完整的显示出来呢????
编程过程中,要加的背景图片过大时,当窗体最大化显示的时候也还无法把图片完整的显示出来,只显示了原来图片的一部分出来,此时已无法让窗体去适应图片大小了吧!怎样在程序运行过程中,让图片改变大小来适应窗体的大小而使得图片能在窗体里面完整的显示出来呢????
答案:Dim p As Picture
Private Sub Form_Load()
Me.AutoRedraw = True
Set p = LoadPicture("C:\songhuiqiao1.jpg") '换成你自己的图片
End Sub
Private Sub Form_Resize()
PaintPicture p, 0, 0, Width, Height
End Sub
上一个:VB 获取一个窗体上子控件上按钮的句柄,窗体上有三个无标题类名相同的控件,每个上边还有一个按钮
下一个:VB写了个TIMER但是是30分钟执行一次60分钟执行一次每次的执行不一样,到了60又返回下一个30这样循环执行.