مرحبا بكم فى موقعكم التعليمى مفيدا ومستفيدا

معك كود صمم الوجهة البرمجيه له

اذهب الى الأسفل

معك كود صمم الوجهة البرمجيه له

مُساهمة من طرف sayed في الخميس مارس 07, 2013 8:26 pm

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


My.Computer.Audio.Play("E:\مجموعات الشغل\sound5\هادئة\ماذا اقول محمود الحسينى.MP3")
End Sub

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 Sub

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click


My.Computer.Audio.Play("E:\مجموعات الشغل\sound5\هادئة\ماذا اقول محمود الحسينى.MP3")
End Sub
End Class

_________________
عام سعيد وكل عام وانتم على خير والى الله أقرب
avatar
sayed
Admin

عدد المساهمات : 190
تاريخ التسجيل : 10/10/2011
العمر : 63
الموقع : computer.hooxs.com

http://computer.hooxs.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى