دوستان عزیز یک کار جالب !!!!!!!!!!!!!!!!!!
ساخت دکمه ی استارت و جایگزینی دکمه به جای استارت ویندوز
ابزار های مورد نیاز :
1- Picture
2- Timer , Interval = 1 , Enabled = False
3- وارد کردن کد ها :
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
Dim dsktp As Long, St As Long
4- رویداد فرم لود (Form_Load) :
Dim Wind As Long 'Temporary hwnd holder'--Finding the SystemTray Window (hwnd)
Wind = FindWindow("Shell_TrayWnd", "") '--Finding the Start Button Window (hwnd)
Wind = FindWindowEx(Wind, 0, "Button", vbNullString)
St = GetDC(Wind) 'Getting Start Button DC
dsktp = GetDC(Picture1.hwnd)
Timer1.Enabled = True
5- رویداد تایمر :
StretchBlt St, 0, 0, 100, 60, dsktp, 40, 1, 1, 40, SRCCOPY
6- اجرای برنامه و دیدن نتیجه
نکته : در انتخاب سایز عکس دقت کنید .
اگر به دردتون خورد تشکر فراموش نشه . !!!!!