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

Question

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

Answer 1

Проверьте это tutorial for a custom InputBox in VB.net. Надеюсь, он даст вам представление о том, как реализовать такую ​​функциональность в VB6.

Answer 2

Если вам не нужно работать на 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 

Чтобы проверить, создать форму с: • Командная кнопка управления • Таймер и использование по умолчанию имена.