BOTAO CANCELAR DA INPUTBOX
Andei procurando aqui no site topicos sobre o assunto: "BOTAO CANCELAR DA INPUTBOX" e nao achei nenhum com uma resposta coerente entao resolvi postar esse código muito simples de como configurar o botao cancelar. Peguei ele em outro site!
Espero que eu tenha ajudado
Private Sub Command1_Click()
vResp = InputBox("OK X Cancelar", "OK X Cancelar")
If StrPtr(vResp) = 0 Then
MsgBox "Cancelar"
Else
MsgBox "OK"
End If
End Sub
Espero que eu tenha ajudado
Private Sub Command1_Click()
vResp = InputBox("OK X Cancelar", "OK X Cancelar")
If StrPtr(vResp) = 0 Then
MsgBox "Cancelar"
Else
MsgBox "OK"
End If
End Sub
Muito legal !! Eu não conhecia essa função StrPtr...heheheh..Poste o exemplo aqui no site como uma dica. No caso de não fazer parte da equipe, é muito simples..apenas clique em "Enviar arquivo", logo no menus primários.
Vo posta sim !!!! valeu YOUNG_H4CK3R pela dica !!
Tópico encerrado , respostas não são mais permitidas