تماس با من
پروفایل من
نویسنده (های) وبلاگ محسن
آدرس های سایت WWW.SPeeDG.SUB.IR WWW.SPeeDG.PERSIANBLOG.IR آرشیو وبلاگ
      گروه برنامه نویسی اسپید (مرکز آموزش توابع API)
تابع API برای جا به جا کردن کلید های ماوس نویسنده: محسن - چهارشنبه ٢٦ امرداد ۱۳٩٠

با این تابع API میتونیم جای کلیدهای سمت راست با سمت چپ ماوس رو عوض کنیم.

Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long

این تابع یک آرگومان بیشتر نداره که اگه 1 بگیره جای کلید ها عوض میشه و اگر 0 باشه تنظیمات پیشفرض اعمال میشه.

برای دانلود نمونه کار این تابع به ادامه مطلب بروید.


ادامه مطلب ...
لینک      نظرات ()      

تابع API برای بدست آوردن مسیر پوشه ویندوز نویسنده: محسن - سه‌شنبه ٢٥ امرداد ۱۳٩٠

امروز سه تا تابع را میگم که بوسیله اونها میتونیم مسیر پوشه ویندوز, سیستم ویندوز, و فایلهای Temp رو بدست بیاریم.

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

این تابع مسیر پوشه ویندوز رو برمیگردونه که استفاده از اون به روش زیر امکان پذیره

Dim PathW As String

PathW = Space(255)

GetWindowsDirectory PathW, 255

Label2 = PathW

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

برای دانلود نمونه کار این تابعها به ادامه مطلب بروید.


ادامه مطلب ...
لینک      نظرات ()      

تابع API برای غیر فعال کردن یک پنجره نویسنده: محسن - دوشنبه ٢٤ امرداد ۱۳٩٠

استفاده بیشتر این تابع برای غیر فعال کردن پنجره های دیگر به غیر از پنجره های پروژه خودمون است چون فرم های خودمون را میتونیم خیلی ساده با استفاده از مشخصه Enable فعال یا غیر فعال کنیم.

آموزش تابع API

برای استفاده از این تابع باید دستگیره پنجره مورد نظر رو داشته باشید که در اینجا و اینجا دو روش برای اینکار توضیح داده شده

Private Declare Function EnableWindow Lib "user32" Alias "EnableWindow" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

این تابع دو آرگومان داره که اولی همون دستگیره و دومی اگر 0 باشه پنجره مورد نظر غیر فعال و اگر 1 باشه پنجره مورد نظر فعال میشه.

برای دانلود نمونه کار این تابع به ادامه مطلب بروید


ادامه مطلب ...
لینک      نظرات ()      

تابع API برای Minimize کردن برنامه نویسنده: محسن - یکشنبه ٢۳ امرداد ۱۳٩٠

ما برای Minimize یا کوچک کردن برنامه دو انتخاب داریم:

Minimize کردن برنامه

انتخاب اول: Minimize کردن برنامه خودمون

برای اینکار از تابع CloseWindow برای کوچک کردن برنامه استفاده میکنیم.

Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long

این تابع یک آرگومان بیشتر ندارد که همان دستگیره برنامه است که از طریق کد زیر بدست می آید.

Form1.hwnd

انتخاب دوم: Minimize کردن برنامه های دیگر

برای اینکار باید دستگیره پنجره مورد نظر رو داشته باشیم و ما با استفاده از تابع FindWindow اینکار رو انجام میدیم.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

این تابع برای دادن دستگیره پنجره مورد نظر دو راه در نظر میگیرد راه اول که آرگومان اول است ClassName پنجره رو میگیره و راه دوم که آرگومان دوم است Caption یا عنوان رو میگیره. اشکال این روش اینه که ما باید بدونیم Caption یا ClassName پنجره چیه؟ در نهایت میشه کد زیر:

MCHwnd = FindWindow(vbNullString, "My Computer")

چون ما راه دوم رو انتخاب کردیم آرگومان اول رو vbNullString میدیم. حالا دستگیره پنجره مای کامپیوتر رو داریم (یادتون باشه پنجره مای کامپیوتر باید باز باشه)  و این دستگیره رو توی تابع اول به جای دستگیره فرم خودمون میزاریم.

یادتون باشه هر پنجره ای که اجرا میشه دستگیرش فرق میکنه یعنی اگه دو تا پنجره مای کامپیوتر باشه دستگیرشون فرق میکنه.

برای دانلود نمونه کار به ادامه مطلب بروید.


ادامه مطلب ...
لینک      نظرات ()      

تابع API برای بازشدن فرم به صورت انیمیشن نویسنده: محسن - پنجشنبه ٢٠ امرداد ۱۳٩٠

با این تابع API میتونیم نحوه باز کردن فرم را به صورت های مختلف ببینیم. مثلا از بالا به پاییین یا برعکس و ...

ابتدا کد زیر را در بخش General فرم قرار دهید.

Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags as Long) As Boolean

سپس با استفاده از کد زیر میتونیم نحوه بازشدن فرم را تعیین کنیم

AnimateWindow Form1.hWnd, 1000, &H1

به جای عدد 1 میتونیم اعداد  2,3,4,5,6,7,8,9,10,10000,20000,40000,80000 قرار بدیم

لینک      نظرات ()      

کار با توابع DC نویسنده: محسن - یکشنبه ۱٦ امرداد ۱۳٩٠

توضیح آسان توابع DC:  ما با توابع DC میتونیم هرجای صفحه نمایش به ترسیم متن, شکل و خط بپردازیم و برای این ترسیم دو راه داریم یک راه ایجاد کردن یک صفحه جدید روی همه صفحات صفحه نمایش و ترسیم روی آن با استفاده از تابع CreateDC و راه دیگر ترسیم روی یکی از پنجره های ویندوز با بدست آوردن دستگیره پرده زمینه یا hdc آن با استفاده از تابع GetDC که دستگیره یک محیط رو میگیره و دستگیره پرده زمینه اون رو میده. روش گرفتن دستگیره محیط قبلا در اینجا توضیح داده شده.

در این مثال قصد داریم متنی رو روی صفحه نمایش با استفاده از توابع DC ترسیم کنیم.

ابتدا با استفاده از تابع CreateDC یک DCیی جدیدی ایجاد میکنیم که خروجی آن یک دستگیره پرده زمینه جدید است.

 Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As DEVMODE) As Long

سه آرگومان اول از نوع رشته بوده و آرگومان اول با Display مقدار دهی میشود و دو آرگومان دیگر vbNullString میگیرند. آرگومان آخر هم از نوع ساختار DEVMODE میباشد (ساختار در مثالی که برای دانلود گذاشته شده وجود دارد) که برابر با صفر است.

سپس با استفاده از تابع DrawText یک متن روی صفحه نمایش مینویسیم.

Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long

آرگومان اول همان دستگیره پرده زمینه که در تابع قبلی بدست آوردیم رو میگیره. آرگومان دوم متنی است که میخواهیم نمایش دهیم است و آرگومان سوم تعداد کاراکترهایی است که میخوایم نمایش دهیم که اگه 1- باشه تمامی کاراکتر ها نمایش داده میشه. آرگومان چهارم یک ساختار است که محل نمایش متن رو مشخص میکنه (ساختار در مثالی که برای دانلود گذاشته شده وجود دارد). آرگومان چهارم نوع نمایش متن است که گزینه های متفاوت زیادی داره. اگه کسی از دوستان خواست بیشتر با این گزینه ها آشنا بشه در نظرات بنویسید که به ایمیلتون بفرستم.

حالا متن نمایش داده میشه برای اینکه پرده زمینه رو از حافظه خارج کنیم از تابع DeleteDC استفاده میکنیم.

 Private Declare Function DeleteDC Lib "gdi32" Alias "DeleteDC" (ByVal hdc As Long) As Long

تنها آرگومان این تابع دستگیره پرده زمینه است.

برای آشنایی بیشتر حتما به ادامه مطلب رفته و نمونه کار را دانلود کنید.


ادامه مطلب ...
لینک      نظرات ()      

تابع API برای انتقال یک فایل نویسنده: محسن - پنجشنبه ۱۳ امرداد ۱۳٩٠

از تابع MoveFile برای انتقال یک فایل استفاده میکنیم.

آموزش توابع API

Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

اولین آرگومان این تابع مسیر فعلی فایل و دومین آرگومان اون هم مسیر جدید فایله

همراه انتقال فایل میتونید اسمش رو هم عوض کنید, خروجی تابع در صورت درست بودن یک و در غیر اینصورت 0 است.

برای دانلود نمونه کار به ادامه مطلب بروید.


ادامه مطلب ...
لینک      نظرات ()      

تابع API برای تغییر اسم درایو نویسنده: محسن - سه‌شنبه ۱۱ امرداد ۱۳٩٠

از این تابع برای تغییر اسم درایو استفاده میشه. البته منظور از اسم درایو C,D یا غیره نیست بلکه همون اسمیه که به طور پیشفرض Local Disk است.

تابع API

براس استفاده از این تابع کد زیر را باید در بخش General فرم بنویسید:

Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long

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

خروجی این تابع در صورت درست بودن 1 و در غیر اینصورت 0 است.

برای دانلود نمونه کار به ادامه مطلب بروید.


ادامه مطلب ...
لینک      نظرات ()      

تابع API برای حذف یک پوشه نویسنده: محسن - دوشنبه ۱٠ امرداد ۱۳٩٠

در معرفی نوزدهمین تابع API به تابعی میپردازیم که با اون میشه یک پوشه رو حذف کرد.

آموزش توابع API

Private Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long

نکته:این تابع فقط پوشه ای رو حذف میکنه که خالی باشه.

خروجی تابع در صورت درست کار کردن یک و در غیر اینصورت 0 است.

برای دانلود نمونه کار این تابع به ادامه مطلب بروید.


ادامه مطلب ...
لینک      نظرات ()      

تابع API برای ایجاد یک پوشه نویسنده: محسن - یکشنبه ٩ امرداد ۱۳٩٠

از این تابع API برای ایجاد یک پوشه استفاده میشه.

دانلود پروژه ویژوال بیسیک

خروجی این تابع در صورت درست بودن 1 و در غیر این صورت 0 است.

برای دانلود نمونه کار به ادامه مطلب بروید. در ضمن نظر یادتون نره


ادامه مطلب ...
لینک      نظرات ()      

تابع API برای جستجوی فایل نویسنده: محسن - شنبه ۸ امرداد ۱۳٩٠

"شروعی دوباره برای گروه برنامه نویسی اسپید"

ما با استفاده از سه تابع میتونیم یک فایل رو جستجو کنیم.

دانلود توابع API

فقط این به یاد داشته باشید که فقط میتونید در پوشه ای که هستید جستجو کنید و در زیرپوشه های آن نمیتوان جستجو کرد مگر اینکه آدرس آن پوشه را داده باشید.

تابع FindFirstFile

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

از این تابع برای جستجوی یک فایل استفاده میکنیم.

تابع FindNextFile

Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

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

تابع FindClose

Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

از تابع برای بستن الگوی تابع Find استفاده میکنیم.

برای دانلود برنامه نمونه به ادامه مطلب بروید.


ادامه مطلب ...
لینک      نظرات ()      

مطالب اخیر پست ویژه هفت پروژه ویژوال بیسیک پروژه ادیتور متن با ++C تابع API برای فوکوس کردن روی یک پنجره تابع API برای تغییر زبان تابع API برای باز کردن یک مسیر نسخه جدید فرم ورود تابع API برای تنظیم کردن مکان یک پنجره تابع API برای تشخیص وضعیت یک کلید دانلود نرم افزار Borland C++ 5
کلمات کلیدی وبلاگ اکتیوایکس ویژوال بیسیک (۳) پروژه ++c (۱) پروژه ویژوال بیسیک (۱٦) توابع api (۳٤) نرم افزارهای برنامه نویسی (۳)
دوستان من آپارنت عمارنامه خرید اینترنتی پست های فوتونی