[محمد خيري]

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

[princelovelorn]

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

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

كود :

 Dim City As CityInfo = DataGridView1.CurrentRow.Cells(0).Value

تمنياتي لك بالتوفيق والنجاح

[محمد خيري]

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

كود :

Me.ListBox1.SelectedIndex = 0

[princelovelorn]

(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)
 

تمنياتي لك بالتوفيق والنجاح

[محمد خيري]

شكرا جزيلا اخي و بارك الله فيك ربنا يزيدك من علمه ما قصرت بجد و هو الذي كنت اريد عمله الهي يجزيك جنة النعيم ان شاء الله

[princelovelorn]

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

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

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