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

zzcctt

Dim DimVolume as Double   

DimVolume=3.5

DimVolume = ThisDrawing.Utility.GetReal()

如上,想把DimVolume的初始值作为一个默认值,不用输入,直接回车或右键就通过...

laoliu09

Sub test()
    Dim DimVolume As Double
   
    On Error Resume Next
    DimVolume = 3.5
    DimVolume = ThisDrawing.Utility.GetReal(vbCr & "请输入一个实数<" & DimVolume & ">：")
    If Err Then Err.Clear
End Sub

切记：错误处理在VBA里是一个基本心法。

zzcctt

谢谢楼上的,

可是如果通过错误处理的会,那按ESC键就不能取消命令了

或者如果在处理错误的同时,能够分清是那个键(ESC ENTER 右键 空格),那就没什么问题了

laoliu09

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 & "请输入一个实数<" & DimVolume & ">：")

    If checkkey(escape) = True Then Exit Sub
    If Err Then Err.Clear
End Sub

zzcctt

真是非常感谢!

laoliu09

别客气～互相帮助！