MSGBOX VBYESNOCANCEL + VBEXCLAMATION
Bom, eu sou iniciante no vb6 e estou com uma dúvida, ou melhor, milhares!!!
Eu criei um multiplicador, é uma calculadora, a diferença é que só tem a função de multiplicar. Eu cfiz um msgbox vbYesNoCancel + vbExclamation, só que os botões (sim, não e cancelar) não funcionam. E Eu queria saber soluciona-lo e saber o que está faltando.
---------------------------------------------------------------------------------------------------------------------------------------------------
código:
-------------------------------------------------------------
Option Explicit
----------------------------------------------------------------------
Private Sub apagar_Click()
Label4.Caption = [Ô][Ô]
txtmultiplicado.Text = [Ô][Ô]
txtvalor.Text = [Ô][Ô]
End Sub
-----------------------------------------
Private Sub fechar_Click()
MsgBox [Ô]Você quer mesmo fechar esse formulário?[Ô], vbYesNoCancel + vbExclamation
End Sub
-------------------------------------
Private Sub Resultado_Click()
Label4.Caption = txtvalor.Text + txtmultiplicado.Text
End Sub
Eu criei um multiplicador, é uma calculadora, a diferença é que só tem a função de multiplicar. Eu cfiz um msgbox vbYesNoCancel + vbExclamation, só que os botões (sim, não e cancelar) não funcionam. E Eu queria saber soluciona-lo e saber o que está faltando.
---------------------------------------------------------------------------------------------------------------------------------------------------
código:
-------------------------------------------------------------
Option Explicit
----------------------------------------------------------------------
Private Sub apagar_Click()
Label4.Caption = [Ô][Ô]
txtmultiplicado.Text = [Ô][Ô]
txtvalor.Text = [Ô][Ô]
End Sub
-----------------------------------------
Private Sub fechar_Click()
MsgBox [Ô]Você quer mesmo fechar esse formulário?[Ô], vbYesNoCancel + vbExclamation
End Sub
-------------------------------------
Private Sub Resultado_Click()
Label4.Caption = txtvalor.Text + txtmultiplicado.Text
End Sub
Dim Button As Integer
Button = MsgBox([Ô]Você quer mesmo fechar esse formulário?[Ô], vbYesNoCancel + vbExclamation)
Select Case Button
Case 6 [ô]sim
Case 7 [ô]não
Case 2 [ô] cancelar
End Select
http://vb6reference.tomswebdesign.net/msgbox.html
http://forum.codecall.net/topic/35423-vb-60-tutorial-using-the-msgbox/
existem varios links na net .... um arquivo em anexo ... click nele para baixar
Button = MsgBox([Ô]Você quer mesmo fechar esse formulário?[Ô], vbYesNoCancel + vbExclamation)
Select Case Button
Case 6 [ô]sim
Case 7 [ô]não
Case 2 [ô] cancelar
End Select
http://vb6reference.tomswebdesign.net/msgbox.html
http://forum.codecall.net/topic/35423-vb-60-tutorial-using-the-msgbox/
existem varios links na net .... um arquivo em anexo ... click nele para baixar
Galera só pra titulo de conhecimento, essa menina RAYANE tem apenas 12 anos,muita inteligencia e vontade de aprender, tratem bem ela, rs
Citação::
rsrsrsrs, obrigado!
Tópico encerrado , respostas não são mais permitidas