这个问题如何解决

draw

在VB中如何取得ZoomCenter当前的缩放倍率的值.
怎样实现连续放大,并如何终止?

mccad

ZoomCenter方法中当前的缩放倍率为当前视口中显示的图形高度，你可以通过以下语句来取得：
ThisDrawing.GetVariable("viewsize")
连续放大只需要循环就行。

draw

请详细一点！
并说明循环如何终止！

mccad

把以下代码写入到模块中运行就可以了：

2. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
   
3. 
   
4. Private Const VK_ESCAPE = &H1B
   
5. 
   
6. Sub zc()
   
7. On Error Resume Next
   
8. Dim vhight As Double
   
9. Dim Center As Variant
   
10. Center = ThisDrawing.Utility.GetPoint(, "选择缩放的中心点：")
    
11. vhight = ThisDrawing.GetVariable("viewsize")
    
12. GetAsyncKeyState VK_ESCAPE
    
13. Do
    
14.     ZoomCenter Center, vhight
    
15.     If GetAsyncKeyState(VK_ESCAPE) <> 0 Then
    
16.         Exit Do
    
17.     Else
    
18.         vhight = vhight + 0.1
    
19.     End If
    
20. Loop
    
21.    
    
22. End Sub
    

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer<br /> <br /> Private Const VK_ESCAPE = &H1B<br /> <br /> Sub zc()<br /> On Error Resume Next<br /> Dim vhight As Double<br /> Dim Center As Variant<br /> Center = ThisDrawing.Utility.GetPoint(, "选择缩放的中心点：")<br /> vhight = ThisDrawing.GetVariable("viewsize")<br /> GetAsyncKeyState VK_ESCAPE<br /> Do<br />     ZoomCenter Center, vhight<br />     If GetAsyncKeyState(VK_ESCAPE) <> 0 Then<br />         Exit Do<br />     Else<br />         vhight = vhight + 0.1<br />     End If<br /> Loop<br />     <br /> End Sub<br />

draw

前一个问题明白了。循环如何终止呢？因为连续放大的次数是不确定的。

mccad

按取消键不就可以终止了吗。
程序已经是这样写的。

mccad

问一声，你这样做为了什么目的？

draw

用取消键,感觉不好,能否使用鼠标右键终止?
怎样读取?
或者判断鼠标左键离开了视口拾取了哪个功能后,再终止

mccad

那就再加些判断，按右键也结束。

2. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
   
3. 
   
4. Private Const VK_ESCAPE = &H1B
   
5. Private Const VK_RBUTTON = &H2
   
6. 
   
7. Sub zc()
   
8. On Error Resume Next
   
9. Dim vhight As Double
   
10. Dim Center As Variant
    
11. Center = ThisDrawing.Utility.GetPoint(, "选择缩放的中心点：")
    
12. vhight = ThisDrawing.GetVariable("viewsize")
    
13. GetAsyncKeyState VK_ESCAPE
    
14. GetAsyncKeyState VK_RBUTTON
    
15. Do
    
16.     ZoomCenter Center, vhight
    
17.     If GetAsyncKeyState(VK_ESCAPE) <> 0 _
    
18.        Or GetAsyncKeyState(VK_RBUTTON) <> 0 Then
    
19.         Exit Do
    
20.     Else
    
21.         vhight = vhight + 0.5
    
22.     End If
    
23. Loop
    
24.    
    
25. End Sub
    

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer<br /> <br /> Private Const VK_ESCAPE = &H1B<br /> Private Const VK_RBUTTON = &H2<br /> <br /> Sub zc()<br /> On Error Resume Next<br /> Dim vhight As Double<br /> Dim Center As Variant<br /> Center = ThisDrawing.Utility.GetPoint(, "选择缩放的中心点：")<br /> vhight = ThisDrawing.GetVariable("viewsize")<br /> GetAsyncKeyState VK_ESCAPE<br /> GetAsyncKeyState VK_RBUTTON<br /> Do<br />     ZoomCenter Center, vhight<br />     If GetAsyncKeyState(VK_ESCAPE) <> 0 _<br />        Or GetAsyncKeyState(VK_RBUTTON) <> 0 Then<br />         Exit Do<br />     Else<br />         vhight = vhight + 0.5<br />     End If<br /> Loop<br />     <br /> End Sub<br />

draw

工程师这些 VK_ESCAPE, VK_RBUTTON 哪里来的?