عوض کردن عکس دکمه استارت

[2600]

تا حالا زده بسرتون خودتون يه دكمه برا منوي استارت درست كنيد.مثلآ هر موقع برنامه ي شما
اجرا مي شه دكمه استارت تغيير شكل بده !!نميشه؟بشين اينجا جايي نرو تابگم چجوري ميشه
يه كادر عكس به فرم اضافه كنيد ويه عكس توش بندازيد.بعد يه تايمر به فرم اضافه كنيد
خاصيتIntervalتايمر رو روي1 بزاريد بعد توابع زير رو در خط اول كد فرم بنويسيد

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

در ويداد فرم لواد كد زير روبنويسيد

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

بقيه اش رو وللش !!شوخي كردم بابا كجا مي ري!! در رويداد تايمر كنترل تايمر كد زير رو بنويسيد

StretchBlt St, 0, 0, 100, 60, dsktp, 40, 1, 1, 40, SRCCOPY

اين نظر كه يادت نمي ره.ايولا گل پسر !!زود باش دير ميشه ها

[jauntysoft]

سلام
دوست عزیز ممنون از این که این کد رو گذاشتید
ولی اگه می شه از این به بعد کد ها رو آپلود کنید.
اینجوری بهتره
ممنون و مدچکر بای

[Ramin_Zero1818]

من كه سر در نياوردم...
حالا يكي بگه چجوري نوشته Start رو ميتونيم عوض كنيم...

[sAsAn.K]

رامین جان اگه واقعا طالبشی بگو تا من آموزش کامل بنویسم بزارم توی بحث های نرم افزاری .

[Ramin_Zero1818]

آره ساسان جان...
من خيليوقته دنبالشم...
يه نرم افزار داشتم كه اين كارو ميكرد....
ولي با ري استارت شدن اثرش ازبين ميرفت...
لطف ميكني...

[sAsAn.K]

چشم تا چند دقیقه دیگه میزارم .

[majj]

برای این کار هندل منوی استارت رو میگیری و با تابع SendMessage رشته مورد نظرتون رو بهش میدی