I was making a Message Maker and I tryed to add a view code feature so you could view the code on how to make the application. Didn’t go well. The code is here:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
MsgBox(TextBox1.Text, MsgBoxStyle.Critical, TextBox2.Text)
ElseIf RadioButton2.Checked = True Then
MsgBox(TextBox1.Text, MsgBoxStyle.Exclamation, TextBox2.Text)
ElseIf RadioButton3.Checked = True Then
MsgBox(TextBox1.Text, MsgBoxStyle.Information, TextBox2.Text)
ElseIf RadioButton4.Checked = True Then
MsgBox(TextBox1.Text, MsgBoxStyle.Question, TextBox2.Text)
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim CodeInfoMsgBoxTry1 As String
Dim CodeInfoMsgBoxTry2 As String
Dim CodeInfoMsgBoxTry3 As String
CodeInfoMsgBoxTry1 = TextBox1.Text
CodeInfoMsgBoxTry2 = TextBox2.Text
CodeInfoMsgBoxTry3 = RadioButton1.Text
MsgBox("MsgBox(" + CodeInfoMsgBoxTry1 + ")," + CodeInfoMsgBoxTry2 + ")," + CodeInfoMsgBoxTry3 + "),")
End Sub
End Class