4个回答
展开全部
楼上说清楚了第一点,但是第二点没说清楚,我来讲。首先要把image的stretch属性设为true,也就是自动调整大小的意思。然后这样写:
Dim OldHgt As Integer, OldWid As Integer, oldh As Integer, oldw As Integer
Private Sub Form_Load()
image1.stretch = true
OldHgt = Me.Height '得到开始的窗体高
OldWid = Me.Width '得到开始的窗体宽
oldh = Image1.Height '得到开始的image高
oldw = Image1.Width '得到开始的image宽
End Sub
Private Sub Form_resize() '窗体大小变化
Image1.Height = (Me.Height / OldHgt) * oldh '用新的窗体高除以旧的高,得到一个比值,再用这个比值乘以旧的image高,就得到新的image高
Image1.Width = (Me.Width / OldWid) * oldw '同上
End Sub
Dim OldHgt As Integer, OldWid As Integer, oldh As Integer, oldw As Integer
Private Sub Form_Load()
image1.stretch = true
OldHgt = Me.Height '得到开始的窗体高
OldWid = Me.Width '得到开始的窗体宽
oldh = Image1.Height '得到开始的image高
oldw = Image1.Width '得到开始的image宽
End Sub
Private Sub Form_resize() '窗体大小变化
Image1.Height = (Me.Height / OldHgt) * oldh '用新的窗体高除以旧的高,得到一个比值,再用这个比值乘以旧的image高,就得到新的image高
Image1.Width = (Me.Width / OldWid) * oldw '同上
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
image有个属性叫stretch将该属性设置为真
然后你把image的大小设为跟随窗体变化即可
然后你把image的大小设为跟随窗体变化即可
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你用TIMER和PICTUREBOX控件来做设置一下它们的属性就好
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询