Duvida

[ddinis]

Será possivel numa inputbox tirar o cancel?????
Obrigado

 

[Kayvlim]

Será possivel numa inputbox tirar o cancel?????
Obrigado

Para uma pergunta diferente, devias era abrir um tópico novo

Tirar o Cancel não. Só se fizeres subclassing, mas acredita, é bem mais fácil recriares a inputbox num novo form.
No entanto, é possível detectar o Cancel. Assim,

Private Sub Form_Load()
    Dim resposta
    
    resposta = InputBox("Pergunta", "Titulo", "Default")
    
    If StrPtr(resposta) = 0 Then
        MsgBox "Cancel"
    Else
        MsgBox resposta
    End If
    
End Sub

Este código distingue um OK com uma string vazia de um Cancel. Num nível mais extremo,

Private Sub Form_Load()
    Dim resposta
    
    Do
        resposta = InputBox("Pergunta", "Titulo", "Default")
    Loop While StrPtr(resposta) = 0
    
End Sub

 

[ddinis]

Obrigado