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

[الفارس]

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


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

(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