Как вызвать события щелчка при вводе чисел в Visual Basic 6

Question

Мне было интересно, как я могу вызвать событие click в Visual Basic 6, когда число вводится в текстовое поле. Я создаю конвертер валют и вместо того, чтобы нажимать кнопку, чтобы вычислить ответ, мне бы это понравилось, когда вы вводите номер, он автоматически вычисляет его, без необходимости щелкать что-либо. Было бы два текстовых поля: «Один для ввода» и «один для вывода», мне бы хотелось, чтобы при вводе номера в первое текстовое поле оно было рассчитано, и ответ автоматически выводится во второе текстовое поле, без щелчка. Спасибо :)

Answer 1

Вы должны использовать событие «Изменить» во входном текстовом поле. Ниже приведен пример кода:

Private Sub Text1_Change() 
    ' get characters from textbox 
     Dim text As String 
     text = Text1.text 

    ' if we have a number 
     If IsNumeric(text) Then 
      ' convert characters to numbers 
       Dim inputNumber As Double 
       inputNumber = text 

      ' calculate 
       Dim answer As Double 
       answer = calculate(inputNumber) 
     End If 
End Sub 

Private Function calculate(number As Double) 
    ' ----------------------------------- 
    ' Your calculation here 
    ' ----------------------------------- 
End Function