如何调整背景图片的大小

fengfenghuohuo 2003-07-11 05:37:19
图片不够大,可以把他拉伸吗?还是只有换一张,谢谢
...全文
254 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
fengfenghuohuo 2003-07-14
  • 打赏
  • 举报
回复
有一点我没说清楚,我用的是MDIForm,没有form_paint事件
fengfenghuohuo 2003-07-14
  • 打赏
  • 举报
回复
没有人知道吗?在线等
totti0115 2003-07-11
  • 打赏
  • 举报
回复
是可以拉伸的
-----------------------------------------
Private Sub form_paint()
'拉伸程序
Dim x1 As Single, y1 As Single
Dim pwidth As Single, pheight As Single
pwidth = Form1.ScaleWidth
pheight = Form1.ScaleHeight
y1 = 100
x1 = 100
DoEvents
Image1.Width = Form1.ScaleWidth
Image1.Height = Form1.ScaleHeight
Me.PaintPicture Image1.Picture, x1, y1, pwidth, pheight
End Sub
xayzmb 2003-07-11
  • 打赏
  • 举报
回复
用paintpicture函数

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧