1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Duvida

Discussão em 'Programação' iniciada por ddinis, 18 de Janeiro de 2008. (Respostas: 2; Visualizações: 417)

  1. Será possivel numa inputbox tirar o cancel?????
    Obrigado
     
  2. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    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,
    Código:
    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,

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

Partilhar esta Página