체크박스를 이용한 메세지박스 사용..
*
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CheckBox1.Checked = True Then
MsgBox("정열적인 " & CheckBox1.Text, 1, "빨강")
End If
If CheckBox2.Checked = True Then
MsgBox("자연스러운 " & CheckBox2.Text, 1, "녹색")
End If
If CheckBox3.Checked = True Then
MsgBox("평화로운 " & CheckBox3.Text, 1, "파랑")
End If
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CheckBox1.Checked = True Then
MsgBox("정열적인 " & CheckBox1.Text, 1, "빨강")
End If
If CheckBox2.Checked = True Then
MsgBox("자연스러운 " & CheckBox2.Text, 1, "녹색")
End If
If CheckBox3.Checked = True Then
MsgBox("평화로운 " & CheckBox3.Text, 1, "파랑")
End If
End Sub
End Class
* 처음 시작시 체크를하고 시작할려면 속성에 chacked를 true로 바꾸어 노시면 됩니다.
이 게시물을
댓글'1'
번호
제목
30
22
18
msgbox 참조
http://www.vnote.123a.kr/index.php?mid=VBNET&category=186&document_srl=378
이 댓글을