معك كود صمم الوجهة البرمجيه له
صفحة 1 من اصل 1
معك كود صمم الوجهة البرمجيه له
Public Class Form1
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "a" Then
Label1.Text = "allah"
End If
If ComboBox1.Text = "b" Then
Label1.Text = "ba"
End If
If ComboBox1.Text = "c" Then
Label1.Text = "ce"
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("a")
ComboBox1.Items.Add("b")
ComboBox1.Items.Add("c")
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
If Label1.Text = "allah" Then
PictureBox1.Visible = True
End If
If Label1.Text = "ba" Then
PictureBox2.Visible = True
End If
If Label1.Text = "ce" Then
PictureBox3.Visible = True
End If
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub
Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
End Class
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "a" Then
Label1.Text = "allah"
End If
If ComboBox1.Text = "b" Then
Label1.Text = "ba"
End If
If ComboBox1.Text = "c" Then
Label1.Text = "ce"
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("a")
ComboBox1.Items.Add("b")
ComboBox1.Items.Add("c")
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
If Label1.Text = "allah" Then
PictureBox1.Visible = True
End If
If Label1.Text = "ba" Then
PictureBox2.Visible = True
End If
If Label1.Text = "ce" Then
PictureBox3.Visible = True
End If
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
My.Computer.Audio.Play("E:\مجموعات الشغل\sound5\هادئة\ماذا اقول محمود الحسينى.MP3")
Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
My.Computer.Audio.Play("E:\مجموعات الشغل\sound5\هادئة\ماذا اقول محمود الحسينى.MP3")
End SubPrivate Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
My.Computer.Audio.Play("E:\مجموعات الشغل\sound5\هادئة\ماذا اقول محمود الحسينى.MP3")
End SubEnd Class
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى