صفحه اول
به وبلاگ آموزش برنامه نویسی خوش آمدید ، برای شما لحظات خوشی را در این وبلاگ آرزو می کنم . این وبلاگ با هدف آموزش برنامه نویسی با تمام زیان ها ایجاد شده است به همین خاطر مطالب این پایگاه گلچینی از بهترین آموزش ها در اینترنت می باشد . من "رضا عبدالملکی " دانشجوی دوره کاردانی رشته کامپیوتر از شهرستان دورود در استان لرستان هستم و منتظر نظرات ، پیشنهادات و انتقادات شما می باشم . موفق و پیروز باشید .
نكته : در صورتي كه كد ها در صفحه به هم ريخته ميباشد آنها را در NotPad ويندوز كپي و سپس استفاده كنيد ...
API شماره 16 : این تابع دایرکتوری مورد نظر را حذف می کند.البته اگر خالی باشد.
کد تابع :
Private Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
کد برنامه :
()Private Sub Form_Load
"RemoveDirectory "C:\VB6
End Sub
نکته : برای حذف شدن پوشه VB6 هیچگونه پوشه یا فایل نباید داخل آن باشد.
API شماره 17 : کار این تابع باز کردن یک مسیر مشخص است.
تعریف تابع :
Public Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
کد نمونه :
()Private Sub Form_Load
WinExec "Explorer.exe C:\Windows", 10
End Sub
API شماره 18 : کار این تابع نمایش دیالوگ ShutDown کردن ویندوزه.
تعریف تابع :
ارسال در تاريخ دوشنبه 9 آذر 1388 توسط
رضا عبدالملكي
نكته : در صورتي كه كد ها در صفحه به هم ريخته ميباشد آنها را در NotPad ويندوز كپي و سپس استفاده كنيد ...
API شماره 11 : کار این تابع عوض کردن زبان صفحه کلید از انگلیسی به فارسی و بر عکسه.
تابع توی یه ماژول :
Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
pwszKLID : این متغییر رشته 9 رقمی است که کد زبان رو مشخص میکنه.
flags : مقدار این متغییر برابر (1) خواهد بود.
کد تبدیل به فارسی توی دکمه :
()Private Sub Command1_Click
(StrLocId = LoadKeyboardLayout("00000429", 1
End Sub
کد بازگشت به انگلیسی توی دکمه :
()Private Sub Command2_Click
(StrLocId = LoadKeyboardLayout(vbNull, 1
End Sub
API شماره 12 : این تابع کلید های زده شده موقع کار با ویندوز رو بر میگردونه حتی اگه فکوس رو فرم برنامه نباشه.
برای این کار از تابع زیر استفاده می کنیم :
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
برای این که برنامه بتونه در هر زمان کلید فشرده شده رو تشخیص بده باید یه تایمر (Timer1) رو فرممون قرار بدیم.
کد برنامه :
ارسال در تاريخ دوشنبه 9 آذر 1388 توسط
رضا عبدالملكي
نكته : در صورتي كه كد ها در صفحه به هم ريخته ميباشد آنها را در NotPad ويندوز كپي و سپس استفاده كنيد ...
َAPI شماره 7 : این API برای مخفی کردن دکمه Start ویندوز.این یکی از تابع قبلی باحالتره.
مثل همیشه تعریف تابع توی یه ماژول.تو این برنامه سه تا تابع لازمه:
Public OP As Long
Public OH As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public 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
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
از تابع FindWindow برای پیدا کردن هندل TaskBar و از تابع FindWindowEx برای پیدا کردن هندل دکمه Start که در واقع فرم فرزند (ChildForm) TaskBar ویندوزه استفاده می کنیم.از تابع ShowWindow هم برای کار اصلی استفاده می کنیم.
حالا برای مخفی کردن دکمه Start کد زیر رو مینویسیم:
Private Sub HideStart_Click()
("" ,"OP& = FindWindow("Shell_TrayWnd
(OH& = FindWindowEx(OP&, 0, "Button", vbNullString
ShowWindow OH&, SW_HIDE
End Sub
این کد هم برای نمایش دوباره دکمه Start :
ارسال در تاريخ دوشنبه 9 آذر 1388 توسط
رضا عبدالملكي
(تعداد کل صفحات:3)