VB6.0在窗体里面加的背景图片很大的时候,如何让图片去根据窗体的大小来显示?

编程过程中，要加的背景图片过大时，当窗体最大化显示的时候也还无法把图片完整的显示出来，只显示了原来图片的一部分出来，此时已无法让窗体去适应图片大小了吧！怎样在程序运行过程中，让图片改变大小来适应窗体的大小而使得图片能在窗体里面完整的显示出来呢？？？？

举报该问题

其他回答

第1个回答推荐于2016-08-16

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本回答被提问者采纳

相似回答

...VB6.0企业版的高手,怎么样设置在窗体内插入图片,随着屏幕分辨率的大 ...答：image1的image1.strech属性设置为true 在form_resize事件中 image1.move 0,0,width,height ‘使image1的大小和窗体一样

VB6.0中背景图片太大(为双屏设计,展开后为双屏)且不能缩小,如何才能在...答：如果是VB窗体的背景，是没有办法编辑的因为VB的背景图片是没有办法编辑图片的大小的。一般在编辑图片太大的情况下采取折中的方法，就是放置一个 Image 控件，将它的 Stretch 属性设置为 True，其 Width 属性和 Height 属性设置为与窗体的 Width 属性和 Height 属性一致，这样可以感到是全屏（全窗体）显...

vb6.0 Picture1放了一个图片,想拖动窗体让图片随窗体变大或变小?答：那最好使用Image控件，不要使用PictureBox，因为：Image的Stretch 属性为True的时候，具有让图片自动缩放到与Image控件一致的大小。所以，只要在Form_Resize()事件里编写代码：Option Explicit Private Sub Form_Resize()Image1.Width = Me.Width Image1.Height = Me.Height End Sub ...

VB6.0修改改窗体背景图片答：Me.Picture = LoadPicture(“需要加载的图片的 路径+文件名+扩展名")例如：Me.Picture = LoadPicture(App.Path & "\123.jpg") ‘在程序目录中的123.jpg文件

大家正在搜

怎样设置窗体的背景图片怎样清除窗体的背景图片窗体添加背景图片设置窗体的背景图片属性为窗体背景图片将背景图片绘制到窗体将图片设置为窗体背景 javafx如何设置背景图片 objectc在窗口背景图片