ENTER TITLE

MANCKENNA 03/09/2009 23:26:44
#321907
Neste Projeto , [Ô]Enter Title[Ô] está servindo pra quê ?

Option Explicit
Dim msgBoxIcon As Integer
Dim msgBoxButtons As Integer
Private Sub command1_Click()
Dim response As Integer
Dim msgBoxTitle As String
Dim msgBoxMessage As String

msgBoxTitle = Text1.Text
msgBoxMessage = Text2.Text
response = MsgBox(msgBoxMessage, _
msgBoxIcon Or msgBoxButtons, msgBoxTitle)
If response = vbOK Then
MsgBox [Ô]You chose OK.[Ô], vbInformation Or vbOKOnly
ElseIf response = vbCancel Then
MsgBox [Ô]You chose Cancel.[Ô], vbInformation Or vbOKOnly
ElseIf response = vbRetry Then
MsgBox [Ô]You chose Retry.[Ô], vbInformation Or vbOKOnly
ElseIf response = vbYes Then
MsgBox [Ô]You chose Yes.[Ô], vbInformation Or vbOKOnly
ElseIf response = vbNo Then
MsgBox [Ô]You chose No.[Ô], vbInformation Or vbOKOnly
End If
End Sub

Private Sub Form_Load()
Frame1.Caption = [Ô]Icons[Ô]
Frame2.Caption = [Ô]Buttons[Ô]
Option1.Caption = [Ô]Critical[Ô]
Option2.Caption = [Ô]Exclamation[Ô]
Option3.Caption = [Ô]Information[Ô]
Option4.Caption = [Ô]Question[Ô]
Option5.Caption = [Ô]OK[Ô]
Option6.Caption = [Ô]OK/Cancel[Ô]
Option7.Caption = [Ô]Yes/No[Ô]
Option8.Caption = [Ô]Retry/Cancel[Ô]
Option9.Caption = [Ô]Yes/No/Cancel[Ô]
Label1.Caption = [Ô]Enter Title:[Ô]
Label2.Caption = [Ô]Enter Message[Ô]
Command1.Caption = [Ô]Show Message Box[Ô]
Text1.Text = [Ô]Default Title[Ô]
Text2.Text = [Ô]Default Message[Ô]
Option1.Value = True
Option5.Value = True
msgBoxIcon = vbCritical
msgBoxButtons = vbOKOnly
Form1.Caption = [Ô]Message Box Demo[Ô]
End Sub

Private Sub Option1_Click()
msgBoxIcon = vbCritical
End Sub

Private Sub Option2_Click()
msgBoxIcon = vbExclamation
End Sub
Private Sub Option3_Click()
msgBoxIcon = vbInformation
End Sub

Private Sub Option4_Click()
msgBoxIcon = vbQuestion
End Sub

Private Sub Option5_Click()
msgBoxButtons = vbOKOnly
End Sub

Private Sub Option6_Click()
msgBoxButtons = vbOKCancel
End Sub

Private Sub Option7_Click()
msgBoxButtons = vbYesNo
End Sub

Private Sub Option8_Click()
msgBoxButtons = vbRetryCancel
End Sub

Private Sub Option9_Click()
msgBoxButtons = vbYesNoCancel
End Sub
ASHKATCHUP 04/09/2009 00:06:54
#321915 Resposta escolhida
Em anexo.
MANCKENNA 04/09/2009 18:18:06
#322010
Muito bém mostrado , Muito 10 sua explicação........realmente eu preciso ficar mais alerta......valeu mesmo....
Tópico encerrado , respostas não são mais permitidas
Voltar