• Саша
  • Восстановленный участник
  • На форуме с 12 декабря 2007г.
  • Сообщений: 21
  • Спасибо: 0

Тема: условие нажатия Enter с sendkeys не работает

уважаемые знатоки,
у меня проблема с нажатием кнопки Enter.
я прошелся по форуму нашел некоторые ссылки и понять что нужно использовать sendkeys. но когда я пишу условие работы он начинает ругаться
мне нужно написать чтобы если при запросе
Dim Dist As Double
Dist = ThisDrawing.Utility.GetDistance(, "Enter the distance: ")
нажато enter то значение Dist равно 5.
я написал сдедующее
if sendkeys {"enter"} is true then
Dist = 5
End If
vb ругается на что он ({)-invalid character
что я не правильно написал?
пожалуйста помогите новичку
заранее благодарен
саша

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: условие нажатия Enter с sendkeys не работает

Public Sub Test()
Dim Dist As Double
On Error GoTo lErrorGetDist
  Dist = ThisDrawing.Utility.GetDistance(, "Enter the distance <5.0> : ")
  On Error GoTo 0
  MsgBox CStr(Dist)
  Exit Sub
lErrorGetDist:
  Dist = 5#
  Resume Next
End Sub

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: условие нажатия Enter с sendkeys не работает

> Саша
Есть стандартная функция InitializeUserInput для этого:

Sub UserInputDist()
Dim keyw As String
keyw = ""
ThisDrawing.Utility.InitializeUserInput 6, keyw
Dim leng As Double
On Error Resume Next
leng = ThisDrawing.Utility.GetDistance(, "Enter a distance <5>: ")
If Err Then
Err.Clear
End If
On Error GoTo 0
ThisDrawing.Utility.GetInput
If leng = 0 Then
leng = 5#
End If
MsgBox "Distance = " & leng
End Sub

~'J'~

  • Саша
  • Восстановленный участник
  • На форуме с 12 декабря 2007г.
  • Сообщений: 21
  • Спасибо: 0

Re: условие нажатия Enter с sendkeys не работает

знатоки,
проблема с этой функцией решена благодаря Вам.
за это я Вам благодарен. только вопрос как узнать натаж ли enter или ESC и написать на него программу ?