۲۵-خرداد-۱۳۸۷, ۱۳:۳۳:۰۳
۲۵-خرداد-۱۳۸۷, ۱۳:۳۳:۵۴
۲۵-خرداد-۱۳۸۷, ۱۳:۴۱:۲۸
عوض کردن عکس دکمه استارت
تا حالا زده بسرتون خودتون يه دكمه برا منوي استارت درست كنيد.مثلآ هر موقع برنامه ي شما
اجرا مي شه دكمه استارت تغيير شكل بده !!نميشه؟بشين اينجا جايي نرو تابگم چجوري ميشه
يه كادر عكس به فرم اضافه كنيد ويه عكس توش بندازيد.بعد يه تايمر به فرم اضافه كنيد
خاصيت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
تا حالا زده بسرتون خودتون يه دكمه برا منوي استارت درست كنيد.مثلآ هر موقع برنامه ي شما
اجرا مي شه دكمه استارت تغيير شكل بده !!نميشه؟بشين اينجا جايي نرو تابگم چجوري ميشه
يه كادر عكس به فرم اضافه كنيد ويه عكس توش بندازيد.بعد يه تايمر به فرم اضافه كنيد
خاصيت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
۲۵-خرداد-۱۳۸۷, ۱۳:۴۴:۴۲
جناب Sayberia بهتره سورس کدها رو در یک تاپیک و زیر هم قرار بدین تا دسترسی بهشون راحتر باشه
۲۷-خرداد-۱۳۸۷, ۱۵:۲۹:۵۹
نقل قول: جناب Sayberia بهتره سورس کدها رو در یک تاپیک و زیر هم قرار بدین تا دسترسی بهشون راحتر باشههمین کار رو کردم:
سلام
ممنون ازتون
به خاطر حفظ نظم فروم مجبور شدم این چند تا کد رو که مفید هم هستند با هم ادغام کنم...
کاش این ها رو به شکل برنامه توی خود سایت میزاشتید
اینجا بعد از یک مدتی چون کد هست مطلبتون توی فروم بهش توجهی نمی شه و محو میشه...
۲۷-خرداد-۱۳۸۷, ۱۷:۲۱:۵۳
جواد جان ینها رو که توی یک تاپیک گزاشتین زحمتشم بکشین ادرسشو داخل تاپیک مریوط به تاپیکهای مهم هم قرار بدین تا برای همیشه در دسترس باشن
۳۰-خرداد-۱۳۸۷, ۲۰:۰۹:۳۷
sayberiya نوشته است:فرستادن ایمیل به همراه فایل ضمیمه
این چیز باحالیه
دانلود
من اينو قبلا" از سورس پلانت گرفتم ولي نمي دونم چرا ارسال نمي كنه خواهشن يكبار تستش كنيد
و هنگام كليك روي برنامه اجرا نميشه