منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
احتاج مساعدة في اظهار الصورة على PictureBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : احتاج مساعدة في اظهار الصورة على PictureBox (/showthread.php?tid=50870)

احتاج مساعدة في اظهار الصورة على PictureBox - sloom00 - 30-12-24

السلام عليكم ورحمة الله وبركاته
 شباب احتاج مساعد في كتابة كوط اظهار الصورة على PictureBox باستخدام الComboBox
طبعا انا اظهرتها الصورة عند الضعط على الComboBox
 لكن الي احتاجه ابي اظهر الصورة بدون الضعط الComboBox 
فقط عند التمرير بالفارة على الالComboBox يكون الصورة تظهر
كود :
Select Case ComboBox2.SelectedItem
   Case "RE1"      
       PictureBox1.Image = Image.FromFile(""path imeg"")
   Case "RE2"      
 PictureBox1.Image = Image.FromFile(""path imeg"")
   Case "Orginal"    
       PictureBox1.Image = Image.FromFile(""path imeg"")
End Select


RE: احتاج مساعدة في اظهار الصورة على PictureBox - princelovelorn - 31-12-24

وعليكم السلام ورحمة الله وبركاته

يمكنك استخدام حدث ComboBox1_SelectedIndexChanged
باستخدام الماوس سواء بالضغط او بأستخدام MOUSE SCROLL WHEEL

كود :
  Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       Select Case ComboBox2.SelectedItem
           Case "RE1"
               Label1.Text = ("RE1")
           Case "RE2"
               Label1.Text = ("RE2")
           Case "Orginal"
               Label1.Text = ("Orginal")
       End Select

   End Sub


ويمكنك أيضا أستخدام حدث ComboBox1_MouseMove
وذلك فقط بتمرير الماوس عليه 
ولكن بشرط أن تكون قد قمت بأختيار قيمة من ComboBox

كود :
 Private Sub ComboBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles ComboBox1.MouseMove
       Select Case ComboBox2.SelectedItem
           Case "RE1"
               Label1.Text = ("RE1")
           Case "RE2"
               Label1.Text = ("RE2")
           Case "Orginal"
               Label1.Text = ("Orginal")
       End Select
   End Sub


أتمنى أن اكون قد فهمت سؤالك بشكل واضح

تمنياتي بالتوفيق

RE: احتاج مساعدة في اظهار الصورة على PictureBox - sloom00 - 31-12-24

انا الصورة تظهر عندي عندما اختار القيمة من ComboBox
لكن انا الي ابيه اظهرهها عند التمرير فقط وليس عندما اختاارها