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

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

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

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命令时怎样设置默认的数值???