请教高手,在使用GETREAL命令时怎样设置默认的数值???

zzcctt · 发表于 2007-5-22 18:01:00

Dim DimVolume as Double
DimVolume=3.5
DimVolume = ThisDrawing.Utility.GetReal()
如上,想把DimVolume的初始值作为一个默认值,不用输入,直接回车或右键就通过...

laoliu09 · 发表于 2007-5-22 20:06:00

Sub test()
Dim DimVolume As Double

On Error Resume Next
DimVolume = 3.5
DimVolume = ThisDrawing.Utility.GetReal(vbCr & "请输入一个实数：")
If Err Then Err.Clear
End Sub
切记：错误处理在VBA里是一个基本心法。

zzcctt · 发表于 2007-5-23 08:05:00

谢谢楼上的,
可是如果通过错误处理的会,那按ESC键就不能取消命令了
或者如果在处理错误的同时,能够分清是那个键(ESC ENTER 右键空格),那就没什么问题了

laoliu09 · 发表于 2007-5-23 10:23:00

Public Const escape = &H1B
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
'判断按键
Public Function checkkey(lngkey As Long) As Double
  If GetAsyncKeyState(lngkey) Then
checkkey = True
  Else
checkkey = False
  End If
End Function
Sub test()
Dim DimVolume As Double

On Error Resume Next
DimVolume = 3.5
DimVolume = ThisDrawing.Utility.GetReal(vbCr & "请输入一个实数：")
If checkkey(escape) = True Then Exit Sub
If Err Then Err.Clear
End Sub

zzcctt · 发表于 2007-5-23 22:29:00

真是非常感谢!

laoliu09 · 发表于 2007-5-23 23:33:00

别客气～互相帮助！

请教高手,在使用GETREAL命令时怎样设置默认的数值???

发表回复

精选推荐