UC知道vb 图的放大问题
来源：百度知道 编辑：UC知道 时间：2024/09/21 22:38:01
在图片上我根据我收上来的数据，画出了对应的图，可是我想知道如果窗体处于最大化的时候，怎么样才能让图片的内容也相应的放大呢？
Private Sub CmbZoom_Click()
If CmbZoom.text = "50%" Then
Me.WindowState = 0
Else
Me.WindowState = 2
PicM.Image.Height = PicM.Image.Height * 2
PicM.Image.Width = PicM.Image.Width * 2
End If
End Sub
我这样写又提示我出错，我该怎么写呢？
Private Sub CmbZoom_Click()
If CmbZoom.text = "50%" Then
Me.WindowState = 0
Else
Me.WindowState = 2
PicM.Image.Height = PicM.Image.Height * 2
PicM.Image.Width = PicM.Image.Width * 2
End If
End Sub
我这样写又提示我出错，我该怎么写呢？
修改代码如下:
Private Sub CmbZoom_Click()
If CmbZoom.text = "50%" Then
Me.WindowState = 0
Else
Me.WindowState = 2
'以下两行有改动
PicM.Image.Height = Me.Height * 2
PicM.Image.Width = Me.Width * 2
End If
End Sub
将图片加载到 Image 控件中
设置 Image 控件的Stretch属性为 True ，图片大小将自适应Image控件大小，然后让Image控件大小随窗口变化即可。