|
المنتدى الأكاديمي للمعلمين ملتقى مهني أكاديمي متخصص للأساتذة الأفاضل في جميع المواد التعليمية (تربية وتعليم & أزهر) |
|
أدوات الموضوع | انواع عرض الموضوع |
#6
|
||||
|
||||
![]()
يوجد كود مبسط أستاذة ياسمين لطلبك
كود:
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim o As Boolean = Me.RadioButton1.Checked Dim na As Boolean = Me.RadioButton2.Checked Dim mg As Boolean = Me.RadioButton3.Checked Dim al As Boolean = Me.RadioButton4.Checked Select Case True Case o = True Me.Label4.Text = "O" Me.Label5.Text = "8" Me.Label6.Text = "16" Case na = True Me.Label4.Text = "Na" Me.Label5.Text = "11" Me.Label6.Text = "23" Case mg = True Me.Label4.Text = "Mg" Me.Label5.Text = "12" Me.Label6.Text = "24" Case al = True Me.Label4.Text = "Al" Me.Label5.Text = "13" Me.Label6.Text = "27" Case Else MsgBox("يرجى اختيار أحد العناصر") End Select End Sub End Class كود:
__________________
يخطئ من يظن أن للذئاب ديناً
|
العلامات المرجعية |
الكلمات الدلالية (Tags) |
سؤال |
|
|