منتديات رحيل لكل العرب - كود لنسخ خلفية سطح المكتب إلى نموذجك

كود لنسخ خلفية سطح المكتب إلى نموذجك
*كود برمجي*

--------------------------------------------------------------------------------

كود:



(ByVal hdc As Long) As Long



'انسخ هذ الكودالى حدث النقر في زر الامر



PaintDesktop Form1.hdc

End Sub

-------------------------------------------------------

تحويل اي حرف إلى حرف ASCII

*كود برمجي*





--------------------------------------------------------------------------------







temp=asc(text1.text)

MsgBox temp





--------------------------------------------------------------------------------





تحيه حسب الوقت

*كود برمجي*





--------------------------------------------------------------------------------











If Time <= "11:30 AM" Then

MsgBox ("Good Morning YourNameHere!")

End

End If





If Time > "11:30 AM" And Time < "5:00 PM" Then

MsgBox ("Good Afternoon YourNameHere!")

End

End If





If Time > "5:00 PM" Then

MsgBox ("Good Evening YourNameHere!")

End

End If





If Time >= "12:01 AM" Then

MsgBox ("Good Morning YourNameHere!")

End

End If

End Sub