للأسف ستحتاج كتابة الكود في حدثين، أحدهما هو كود تحريك الماوس وهذا من مساوئ الـ VB6.0 في هذه الأداة
كود :
Private Sub DataGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
Text1.Text = DataGrid1.Columns(2).Value
End Sub
Private Sub DataGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = DataGrid1.Columns(2).Text
End Subقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
