| 9Mcode comment |
 |
|
|
|
| |
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #2982 [Vb] (จาก IP: 110.164.168.10)
ช่วยแก้โปรแกรมลงทะเบียนด้วยครับ พี่เก่งๆมาทางนีคับ
คือผมได้ตัวอย่างโปรแกรมลงทะเบียนมาอ่าคับแต่ว่า มันไม่ตรงกับที่ต้องการ ผมเลยลองแก้ดู แต่มันerrorอ่าคับ พี่ๆคนไหนเก่งมาช่วยผมหน่อยน่ะคับ ขอบคุณคับ
|
| จากคุณ
:
MazillaFirefox / yenniroo@hotmail.com [2010-11-07 23:47:13]
|
|
ความคิดเห็น #28236 (จาก IP: 110.168.100.214)
Public Class Form1
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim off As String
off = MsgBox("ออกจากโปรแกรม", vbQuestion + vbYesNo, "ออกจากโปรแกรม")
If off = vbYes Then End
End Sub
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
CheckBox5.Checked = False
CheckBox6.Checked = False
CheckBox7.Checked = False
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
CheckBox1.Checked = True
CheckBox2.Checked = True
CheckBox3.Checked = True
CheckBox4.Checked = True
CheckBox5.Checked = True
CheckBox6.Checked = True
CheckBox7.Checked = True
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Label5.Text = TextBox1.Text
Label4.Text = TextBox2.Text
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If RadioButton1.Checked = True Then
TextBox3.Text = 3000
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = 6000
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If RadioButton1.Checked = True Then
TextBox3.Text = 3000
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = 6000
End If
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If RadioButton1.Checked = True Then
TextBox3.Text = 3000
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = 6000
End If
End Sub
Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
If RadioButton1.Checked = True Then
TextBox3.Text = 3000
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = 6000
End If
End Sub
Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
If RadioButton1.Checked = True Then
TextBox3.Text = 3000
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = 6000
End If
End Sub
Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
If RadioButton1.Checked = True Then
TextBox3.Text = 3000
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = 6000
End If
End Sub
Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
If RadioButton1.Checked = True Then
TextBox3.Text = 3000
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = 6000
End If
End Sub
End Class |
| จากคุณ
:
sine / sine_yari@hotmail.com [2011-02-19 01:40:54]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
|
|
New Article
อัตราค่าโฆษณา
