VB6: сделать ответ по умолчанию в InputBox не выделенным?

Question

В VB6 (и более ранних версиях) есть ли способ сделать ответ по умолчанию в InputBox невыделенным?

Answer 1

Если вам не нужно работать в Vista или новее, вы можете попробовать этот ключ:

Private Sub Form_Load()
    Timer1.Enabled = False
End Sub

Private Sub Command1_Click()
    Timer1.Interval = 250
    Timer1.Enabled = True
    InputBox "no selection", "no sel", "default value"
End Sub

Private Sub Timer1_Timer()
    Timer1.Enabled = False
    SendKeys "{RIGHT}", False
End Sub

Для проверки создайте форму с: • командная кнопка • Управление таймером и использование имен по умолчанию.

Answer 2

Ознакомьтесь с этим учебником для пользовательского InputBox в VB.net . Надеюсь, это даст вам представление о том, как реализовать такую ​​функциональность в VB6.