منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تغيير الليست بكس بالداتاجريد فيو
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم.اخواني هذا ملف وجدته بالمنتدى للاستاذ عبد الله الدوسري لمواقيت الصلاة جزاه الله خيرا.لي طلب بعد اذنكم لو سمحتو انا اريد فقط تبديل الليست بكس بالداتاجريد حلولت و غيرت فقط عرض البيانات لكن عند الضغط على الداتاجريد اريد ظهور البيانات مثلما تظهر عند الضغط على اليست بكس.بارك الله فيكم اخواني
وعليكم السلام ورحمة الله وبركاته

أضف السطر التالي في بداية حدث DataGridView1_SelectionChanged

كود :
 Dim City As CityInfo = DataGridView1.CurrentRow.Cells(0).Value

تمنياتي لك بالتوفيق والنجاح
كثر الف خيرك و بارك الله فيك تسلم اخي فعلا الان يشتغل مثل ما اريد لو سمحت بقيت لي نقطة اخيرة باذن الله و هي هذا السطر كيف احولو للداتاجريد و بارك الله فيك

كود :
Me.ListBox1.SelectedIndex = 0
(15-02-19, 04:03 AM)محمد خيري كتب : [ -> ]كثر الف خيرك و بارك الله فيك تسلم اخي فعلا الان يشتغل مثل ما اريد لو سمحت بقيت لي نقطة اخيرة باذن الله و هي هذا السطر كيف احولو للداتاجريد و بارك الله فيك

كود :
Me.ListBox1.SelectedIndex = 0

الحمد لله والشكر لله
والله يسلمك

تفضل الكود

كود :
DataGridView1.Rows(0).Cells(0).Selected = True
أو
       DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)

وما تريد فعله استخدم الكود التالي
كود :
 DataGridView1.CurrentCell = DataGridView1.Rows(2).Cells(0)
       DataGridView1_SelectionChanged(sender, e)

مع استبدال رقم 2 في DataGridView1.Rows(2).Cells(0)  برقم الاندكس الذي تريده

هايتم وضع الكود أسفل التالي في حدث formload
كالتالي

كود :
       DataGridView1.Rows.Add(New CityInfo("تونس - تونس", 36.8, 10.16667, +1))
       DataGridView1.Rows.Add(New CityInfo("القاهرة - مصر", 30.02, 31.13, +2))
       DataGridView1.Rows.Add(New CityInfo("الخرطوم - السودان", 15.96667, 32.86667, +3))
       DataGridView1.Rows.Add(New CityInfo("الكويت - الكويت", 29.166667, 47.6, +3))
       DataGridView1.Rows.Add(New CityInfo("الرياض - السعودية", 24.4, 46.71667, +3))
       DataGridView1.Rows.Add(New CityInfo("الدوحة - قطر", 25.285534, 51.547312, +3))
       DataGridView1.Rows.Add(New CityInfo("مسقط - عمان", 23.608611, 58.591944, +4))

 DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)

       DataGridView1_SelectionChanged(sender, e)
 


تمنياتي لك بالتوفيق والنجاح
شكرا جزيلا اخي و بارك الله فيك ربنا يزيدك من علمه ما قصرت بجد و هو الذي كنت اريد عمله الهي يجزيك جنة النعيم ان شاء الله
(15-02-19, 12:22 PM)محمد خيري كتب : [ -> ]شكرا جزيلا اخي و بارك الله فيك ربنا يزيدك من علمه ما قصرت بجد و هو الذي كنت اريد عمله الهي يجزيك جنة النعيم ان شاء الله

الحمد لله والشكر لله 

اللهم أمين وإياك أخي الكريم