[VBMaged]

اخواني الكرام اكواد كانت محفوظة عندي ولم إستفيد منها لأنني إعمل "VB.net" فحببت ان اضعها بين يديكم للأستفادة منها

نبدأ بأذن الله
-----------
معرفة اليوم الحالي

كود :

Private Sub Command1_Click()
Dim Dday As Integer
Dday = Weekday(Date)
If Dday = 1 Then Print "الأحد"
If Dday = 2 Then Print "الاثنين"
If Dday = 3 Then Print "الثلاثاء"
If Dday = 4 Then Print "الأربعاء"
If Dday = 5 Then Print "الخميس"
If Dday = 6 Then Print "الجمعة"
If Dday = 7 Then Print "السبت"
End Sub

معرفة الشهر الحالي

كود :

Private Sub Command1_Click()
Mmonth = Mid(Date, 4, 2)
Print MonthName(Mmonth)
End Sub

عرض الوقت والتاريخ

كود :

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1 = Time & Date
End Sub

كود لاخفاء موشر الفارة

كود :

Private Declare Function ShowCursor Lib "user32" _  
(ByVal bShow As Long) As Long  
اخفاء المؤشر  
x = ShowCursor(False)  
إظهار المؤشر  
x = ShowCursor(True)

منع النسخ أو اللصق

كود :

Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
R = Clipboard.GetText
If Len(R) = 0 Then
Clipboard.Clear
End If
End Sub

نسخ ملف

كود :

Private Sub Command1_Click()
FileCopy "c:\Autoexec.bat", "d:\Autoexec.bat"
End Sub

فتح لوحة التحكم

كود :

Private Sub Command1_Click()
Shell "rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus
End Sub

لتشغيل شاشة التوقف

كود :

ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Const WM_SYSCOMMAND = &H112&
Private Const SC_SCREENSAVE = &HF140&
Private Sub Command1_Click()
Dim Res As Long
Res = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub

تأجيل تنفيذ الكود لفترة معينة

كود :

Public Sub Delay(HowLong As Date)  
TempTime = DateAdd("s", HowLong, Now)  
While TempTime > Now  
DoEvents  
Wend  
End Sub  
Private Sub Command1_Click()  
Delay 5  
MsgBox "Test"  
End Sub

تحرك صورة مع الماوس

كود :

في الفورم حدث form mousemove
picture1.move x - 200, y - 200

كود لالتقاط صورة للشاشة في الحافظة

كود :

Private Sub Command1_Click()
keybd_event vbKeySnapshot, 0, 0, 0
DoEvents
End Sub[/


كود إظهار اليوم الحالي
[CODE]Private Sub Command1_Click()  
Dim Dday As Integer  
Dday = Weekday(Date)  
If Dday = 1 Then Print "الأحد"  
If Dday = 2 Then Print "الاثنين"  
If Dday = 3 Then Print "الثلاثاء"  
If Dday = 4 Then Print "الأربعاء"  
If Dday = 5 Then Print "الخميس"  
If Dday = 6 Then Print "الجمعة"  
If Dday = 7 Then Print "السبت"  
End Sub

جرب كرر الضغط على Command
سيقوم بتكرار اليوم الحالي على طول الفورم
او

كود :

Text1 = Format(Date, "dddd")

او

كود :

label1= Format(Date, "dddd")

"في ليبل "


اذا إعجبكم ادعو لي بصلاح الحال
بالتوفيق للجميع