[已解决]按比例缩放用户窗体

sunjing-zxl

示例文件： 按比例缩放用户窗体.rar (10.83 KB, 下载次数: 85)

2011-1-20 19:18 上传

点击文件名下载附件
代码
Private Sub ZoomBig_Click()
   '窗体按显示比例进行放大
    If CSng(TextBox1.Value) <> 0 Then
       ZoomForm.Zoom = ZoomForm.Zoom + CSng(TextBox1.Value)
       '控件按显示比例进行调整
       ZoomForm.Width = ZoomForm.Width * (1 + TextBox1.Value / 100)
       ZoomForm.Height = ZoomForm.Height * (1 + TextBox1.Value / 100)
    End If
End Sub
Private Sub ZoomSmall_Click()
     '窗体按显示比例进行缩小
    If CSng(TextBox1.Value) <> 0 Then
       ZoomForm.Zoom = ZoomForm.Zoom - CSng(TextBox1.Value)
       '控件按显示比例进行调整
       ZoomForm.Width = ZoomForm.Width * (1 - TextBox1.Value / 100)
       ZoomForm.Height = ZoomForm.Height * (1 - TextBox1.Value / 100)
    End If
End Sub

最佳答案

月排行榜 / 总排行榜

amulee

2011-1-26 16:09

楼主的比例变化显然不同步

1. Private Sub ZoomBig_Click()
   
2.    '窗体按显示比例进行放大
   
3.     If CSng(TextBox1.Value) <> 0 Then
   
4.        ZoomForm.Zoom = ZoomForm.Zoom * (1 + CSng(TextBox1.Value) / 100)
   
5.        '控件按显示比例进行调整
   
6.        ZoomForm.Width = ZoomForm.Width * (1 + TextBox1.Value / 100)
   
7.        ZoomForm.Height = ZoomForm.Height * (1 + TextBox1.Value / 100)
   
8.     End If
   
9. End Sub
   
10. Private Sub ZoomSmall_Click()
    
11.      '窗体按显示比例进行缩小
    
12.     If CSng(TextBox1.Value) <> 0 Then
    
13.        ZoomForm.Zoom = ZoomForm.Zoom * (1 - CSng(TextBox1.Value) / 100)
    
14.        '控件按显示比例进行调整
    
15.        ZoomForm.Width = ZoomForm.Width * (1 - TextBox1.Value / 100)
    
16.        ZoomForm.Height = ZoomForm.Height * (1 - TextBox1.Value / 100)
    
17.     End If
    
18. End Sub

复制代码

跳转到最佳答案楼层

龙猫

学习学习{:29:}{:29:}

liuxingyi88

下载了，不太会用

amulee

楼主的比例变化显然不同步

1. Private Sub ZoomBig_Click()
   
2.    '窗体按显示比例进行放大
   
3.     If CSng(TextBox1.Value) <> 0 Then
   
4.        ZoomForm.Zoom = ZoomForm.Zoom * (1 + CSng(TextBox1.Value) / 100)
   
5.        '控件按显示比例进行调整
   
6.        ZoomForm.Width = ZoomForm.Width * (1 + TextBox1.Value / 100)
   
7.        ZoomForm.Height = ZoomForm.Height * (1 + TextBox1.Value / 100)
   
8.     End If
   
9. End Sub
   
10. Private Sub ZoomSmall_Click()
    
11.      '窗体按显示比例进行缩小
    
12.     If CSng(TextBox1.Value) <> 0 Then
    
13.        ZoomForm.Zoom = ZoomForm.Zoom * (1 - CSng(TextBox1.Value) / 100)
    
14.        '控件按显示比例进行调整
    
15.        ZoomForm.Width = ZoomForm.Width * (1 - TextBox1.Value / 100)
    
16.        ZoomForm.Height = ZoomForm.Height * (1 - TextBox1.Value / 100)
    
17.     End If
    
18. End Sub

复制代码

sunjing-zxl

回复 amulee 的帖子

谢谢指点！！！

qq8945051

支持楼主谢谢分享  学习学习。。。。

qdtz

真是好办法，有窗体和屏幕大小变化而自动变化的方法吗