26-11-13, 07:24 PM
السلام عليكم
اخي الكريم كما افاد اخي ابو عمر Lion_Ksa غير command style من الخصائص الى Graphical وبعد ذلك قم باضافة الكود التالي
يعطيك العافية
اخي الكريم كما افاد اخي ابو عمر Lion_Ksa غير command style من الخصائص الى Graphical وبعد ذلك قم باضافة الكود التالي
كود :
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &HFF&
End Sub
Private Sub Form_Load()
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &HC0C0C0
End Subيعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))
