مرجع تخصصی توابع api همراه با توضیح انها

[majjjj]

با اجازه اساتید قصد معرفی تعدادی از توابع قدرتمند زبان c رو به همراه توضیح انها دارم البته تفسیرتعداد زیادی از اینها کار خودم نیست

ActivateKeyboardLayput



Private Const KL_NEXT = 1
Private Const KL_PREV = 0



Private Declare Function ActivateKeyboardLayput Lib "user32.dll" (ByVal HKL As Long , ByVal Flags As Long) As Long

این تابع زبان صفحه کلید را تغییر می دهد.
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
HKL : این آرگومان تعیین می کند باید زبان قبلی بر روی صفحه کلید اعمال شود با زبان بعدی
KL_NEXT : زبان بعدی را روی صفحه کلید اعمال می کند
KL_PREV : زبان قبلی را روی صفحه کلید اعمال می کند
Flags : مقدار این متغیر را برابر &0 قرار دهید

[majjjj]

AddFontResourceA



Private Declare Function AddFontResourceA Lib "gdi32.dll" (ByVal lpFileName As String) As Long



این تابع یک فونت را به مجموعه فونت های ویندوز اضافه می کند.
اگر تابع مقدار صفر را برگرداند به منزلهء عدم موفقیت تابع است در غیر اینصورت عملیات افزودن فونت موفقیت آمیز بوده است.
lpFileName : این متغیر رشته ای به فایل فونت اشاره می کند

[majjjj]

AnimateWindow






Const AW_HOR_POSITIVE = &H1
Const AW_HOR_NEGATIVE = &H2
Const AW_VER_POSITIVE = &H4
Const AW_VER_NEGATIVE = &H8
Const AW_CENTER = &H10
Const AW_HIDE = &H10000
Const AW_ACTIVATE = &H20000
Const AW_SLIDE = &H40000
Const AW_FADE = &H80000



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


از این تابع برای دادن افکت های انیمیشن به یک پنجره استفاده می شود
hwnd : هندل پنجره مورد نظر
dwTime : مدت زمانی که باید عمل مورد نظر طول بکشد
dwFlags : چگونگی افکت گذاری روی پنجره را این متغیر مشخص می کند. در این باره ثابت های زیر به شما کمک خواهد کرد
AW_HOR_POSITIVE : پنجره از چپ به راست باز می شود
AW_HOR_POSITIVE : پنجره از راست به چپ باز می شود
AW_VER_POSITIVE : پنجره از بالا به پایین باز می شود
AW_VER_NEGATIVE : پنجره از پایین به بالا باز می شود
AW_SLIDE : افکت اسلاید
AW_CENTER : از وسط باز می شود
AW_ACTIVATE : پنجره را فعال می کند (این ثابت را با AW_HIDE به کار نبرید)
AW_HIDE : پنجره را مخفی می کند (این ثابت را با AW_ACTIVATE به کار نبرید)
AW_FADE : محو یا پیدایش تدریجی

[majjjj]

AppendMenuA




Private Const MF_APPEND = &H
Private Const MF_SEPARATOR = &H
Private Const MF_DISABLED = &H
Private Const MF_GRAYED = &H
Private Const MF_CHECKED = &H
Private Const MF_BITMAP = &H


Private Declare Function AppendMenuA Lib "user32.dll" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIdNewItem As Long, ByVal IpNewItem As Any) As Long

این تابع یک گزینه دلخواه را به انتهای یک منو می افزاید
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hMenu : یک اشاره گر از نوع منویی که قرار است ساخته شود (این اشاره گر را می توانید برای منوهای پاپ آپ با استفاده از تابع CreatePopupMenu و برای منو های عادی بوسیله توابع GetMenu و GetSubMenu و برای منو های سیستمی با استفاده از تابع GetSystemMenu به دست آورید)
wFlags : این متغیر بیانگر نوع منو است
MF_APPEND :
MF_SEPARATOR : یک خط جدا کننده می سازد
MF_DISABLED : منو را غیر فعال می کند (خاکستری نمی کند)
MF_GRAYED : منو را خاکستری می کند (غیر فعال نمی کند)
MF_CHECKED : کنار منو یک علامت چک رسم می کند
MF_BITMAP : یک منوی گرافیکی می سازد
wIdNewItem : این متغیر بیانگر ID منو است (ID دو منو در یک ردیف نباید یکسان باشد و این ID نباید صفر باشد)
IpNewItem : این متغیر عنوان منو را بیان می کند

[majjjj]

Arc




Private Declare Function Arc Lib "gdi32.dll" (ByVal hdc As Long, ByVal nLeftRect As Long, ByVal nTopRect As Long, ByVal nRightRect As Long, ByVal nBottomRect As Long, ByVal nxStartArc As Long, ByVal nyStartArc As Long, ByVal nxEndArc As Long, ByVal nyEndArc As Long) As Long



این تابع یک کمان را بر روی یک پنجره رسم می کند (تابع برای رسم از قلم جاری استفاده می کند)
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hdc : هندل بافت گرافیکی کنترل مورد نظر
nLeftRect : مختصات x گوشه بالا-چپ محدوده کمان
nTopRect : مختصات y گوشه بالا-چپ محدوده کمان
nRightRect : مختصات x گوشه پایین-راست محدوده کمان
nBottomRect : مختصات y گوشه پایین-راست محدوده کمان
nxStartArc : مختصات x نقطه شروع کمان
nyStartArc : مختصات y نقطه شروع کمان
nxEndArc : مختصات x نقطه پایان کمان
nyEndArc : مختصات y نقطه پایان کمان

[ftmotlagh]

اینها مال زبان C هستش ...............؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[majjjj]

اینها مال زبان C هستش ...............؟؟؟؟؟؟؟؟؟؟؟؟؟؟


پس مال vb هستن ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟:عصبانی++:

[majjjj]

ArcTo




Private Declare Function Arc Lib "gdi32.dll" (ByVal hdc As Long, ByVal nLeftRect As Long, ByVal nTopRect As Long, ByVal nRightRect As Long, ByVal nBottomRect As Long, ByVal nxStartArc As Long, ByVal nyStartArc As Long, ByVal nxEndArc As Long, ByVal nyEndArc As Long) As Long


این تابع یک کمان را بر روی یک پنجره از نقطه فعال (محلی که آخرین ترسیم در آنجا قطع شده است) رسم می کند (تابع برای رسم از قلم جاری استفاده می کند)
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hdc : هندل بافت گرافیکی کنترل مورد نظر
nLeftRect : مختصات x گوشه بالا-چپ محدوده کمان
nTopRect : مختصات y گوشه بالا-چپ محدوده کمان
nRightRect : مختصات x گوشه پایین-راست محدوده کمان
nBottomRect : مختصات y گوشه پایین-راست محدوده کمان
nxStartArc : مختصات x نقطه شروع کمان
nyStartArc : مختصات y نقطه شروع کمان
nxEndArc : مختصات x نقطه پایان کمان
nyEndArc : مختصات y نقطه پایان کمان

[majjjj]

auxGetNumDevs




Private Declare Function auxGetNumDevs Lib "winmm.dll" () As Long


این تابع تعداد سخت افزار های پخش صوت موجود در کامپیوتر را بر می گرداند (تابع تعداد کارت های صوتی را بر می گرداند نه تعداد بلندگو ها را)
اگر تابع با خطایی مواجه شود مقدار بازگشتی صفر و در غیر اینصورت مقدار بازگشتی تعداد سخت افزار های پخش صوت خواهد بود

[majjjj]

Beep




Private Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Long,ByVal dwDuration As Long) As Long


این تابع یک صوت کوتاه (Beep) را از کارت صوتی پخش می کند
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
dwFreq : فرکانس صوت (در ویندوز های 95 و 98 و ME تاثیری ندارد)
dwDuration : مدت زمان پخش صوت بر حسب میلی ثانیه (در ویندوز های 95 و 98 و ME تاثیری ندارد)

[majjjj]

BitBlt




Private Const SRC_PAINT = &HEE0086
Private Const SRC_ERASE = &H440328
Private Const SRC_INVERT = &H660046
Private Const SRC_AND = &H8800C6
Private Const SRC_COPY = &HCC0020



Private Declare Function BitBlt Lib "gdi32.dll" (ByVal hDestDC 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 dwRop As Long) As Long


این تابع از یک پنجره عکس می گیرد و آن را در یک کنترل گرافیکی چاپ می کند.
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hdc : هندل بافت گرافیکی کنترلی مقصد
x : نقطه شروع ترسیم عکس جدید در راستای افق
y : نقطه شروع ترسیم عکس جدید در راستای عمود
nWidth : عرض تصویر جدید
nHeight : ارتفاع تصویر جدید
hSrcDC : هندل بافت گرافیکی کنترلی که باید از آن عکس گرفته شود
xSrc : فاصلهء تصویر از سمت چپ کنترل
ySrc : فاصلهء تصویر از بالای کنترل
dwRop : نحوه ترسیم تصویر . ثابت های زیر
SRC_PAINT : تصویر کنترل مبدا و مقصد را با هم Or کرده و در کنترل مقصد قرار می دهد
SRC_ERASE : تصویر پنجره مقصد را Not کرده و با پنجره مبدا Or می کند و نتیجه را در کنترل مقصد می نویسد
SRC_INVERT : تصویر کنترل مبدا و مقصد را با هم Xor کرده و در کنترل مقصد قرار می دهد
SRC_AND : تصویر کنترل مبدا و مقصد را با هم And کرده و در کنترل مقصد قرار می دهد
SRC_COPY : تصویر کنترل مبدا رو بدون دستکاری در کنترل مقصد قرار می دهد

[majjjj]

BlockInput




Private Declare Function BlockInput Lib "user32.dll" (ByVal fBlock As Long) As Long


این تابع ماوس و صفحه کلید را قفل می کند.
برای آزادسازی صفحه کلید شما باید در برنامه خود تمهیداتی بیندیشید چون کاربر توانایی برگرداندن تغییرات را ندارد. برای مثال می توانید یک تایمر داشته باشید تا بعد از مدتی معلوم ماوس و صفحه کلید دوباره آزاد شود.
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
fBlock : اگر مقدار این آرگومان True باشد ماوس و صفحه کلید قفل می شود ، و اگر مقدار آن False باشد ماوس و صفحه کلید آزاد می شود

[ftmotlagh]

من نفهمیدم مال سی یا وی بی

[majjjj]

من نفهمیدم مال سی یا وی بی
اینها توابع سی هستن که تو بیسیک invoke میشن

[mononok]

اینها توابع سی هستن که تو بیسیک invoke میشن
ببخشید ولی basic با visual basic فرق داره ......
اگر منظورتون visual basic هست می شه توضیح بدید invoke یعنی چه؟:لبخندساده:

[majjjj]

ببخشید ولی basic با visual basic فرق داره ......
اگر منظورتون visual basic هست می شه توضیح بدید invoke یعنی چه؟:لبخندساده:


:عصبانی++:
دوست عزیز منظور من هم همون vb در ضمن اگه یک دیکشنری بخرید بد نیست.
معنی کلمه فوق الذکر به معنی فراخوانی است .

[majjjj]

ClientToScreen




Private Type POINTAPI
x As Long
y As Long
End Type



Private Declare Function ClientToScreen Lib "gdi32.dll" (ByVal hwnd As Long, ByVal lpPoint As POINTAPI) As Long


این تابع مختصات یک نقطه را در یک پنجره می گیرد و مختصات همان نقطه را در صفحه نمایش می دهد
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hwnd : هندل پنجره مورد نظر
lpPoint : مختصات نقطه مورد نظر از نوع POINTAPI ( مختصات داده شده باید بر حسب پیکسل باشد )

[majjjj]

ClipCursor



Private Type RECT
left As Long
top As Long
right As Long
bottom As Long
End Type



Private Declare Function ClipCursor Lib "user32.dll" (lpRect As Any) As Long

این تابع ماوس را در یک چهار گوش محصور می کند تا حرکت ماوس در آن منطقه محدود باشد.
برای لغو انحصار ماوس تابع را با آرگومان &0 اجرا کنید ( ClipCursor &0 ).
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
RECT : این نوع به محدوده ای که ماوس باید در آن محصور باشد اشاره می کند

[majjjj]

CloseClipboard



Private Declare Function CloseClipboard Lib "user32.dll" () As Long


این تابع کلیپ بورد را که توسط تابع OpenClipboard قفل شده ، باز می کند تا برنامه های دیگر بتوانند به آن دسترسی داشته باشند.
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود

[majjjj]

CloseWindow



Private Declare Function CloseWindow Lib "user32.dll" (ByVal hWnd As Long) As Long

این تابع پنجره مشخص شده را به حالت Minimize می برد.
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hWnd : این متغیر هندل پنجره ای است که باید کمینه شود

[majjjj]

CombinRgn



Private Const RGN_AND = 1
Private Const RGN_OR = 2
Private Const RGN_XOR = 3
Private Const RGN_DIFF = 4
Private Const RGN_COPY = 5



Private Declare Function CombinRgn Lib "gdi32.dll" (ByVal HDesRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombinMode As Long) As Long

این تابع دو محدوده را با یک دیگر ترکیب می کند و یک محدوده جدید می سازد
اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر و در غیر اینصورت مقدار بازگشتی یک اشاره گر از محدوده ساخته شده خواهد بود
HDesRgn : یک اشاره گر از ناحیه ای که محدوده ترکیب شده باید در آن جا ساخته شود
hSrcRgn1 : یک اشاره گر از محدوده اول
hSrcRgn2 : یک اشاره گر از محدوده دوم
nCombinMode : نحوه ترکیب دو محدوده
RGN_AND : دو محدوده را با یکدیگر جمع می کند
RG_OR : ناحیه مشترک دو ناحیه را بر می گرداند
RGN_XOR : محدوده جمع دو ناحیه به غیر از ناحیه مشترک آن دو را بر می گرداند
RGN_DIFF : ناحیه دوم را از ناحیه اول کم می کند
RGN_COPY : کل ناحیه اول را بر می گرداند

[majjjj]

CopyFileA



Private Declare Function CopyFileA Lib "kernel32.dll" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As long) As Long

این تابع از یک فایل موجود یک کپی تهیه می کند
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
lpExistingFileName : آدرس فایل مقصد
lpNewFileName : آدرس فایل جدید (مبدا)
bFailIfExists : این متغیر مشخص می کند در صورت وجود فایل مقصد عملیات کپی ادامه یابد یا نه اگر صفر باشد انجام میشود و اگر یک باشد انجام نمی شود

[majjjj]

CreateCaret



Private Declare Function CreateCaret Lib "user32.dll" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

این تابع یک تصویر را به جای چشمک زن فعلی پنجره مورد نظر قرار می دهد
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hwnd : هندل پنجره (کنترل) مورد نظر
hBitmap : تصویر مورد نظر ( می توانید این تصویر را با استفاده از تابع CreateBitmap بسازید )
nWidth : عرض تصویر مورد نظر
nHeight : طول تصویر مورد نظر

[majjjj]

CreateDirectoryA



Private Declare Function CreateDirectoryA Lib "kernel32.dll" (ByVal lpPathName As String, ByVal lpSecurityAttributes As Long) As Long

این تابع یک فولدر جدید در محل داده شده ایجاد می کند ( پوشه والد پوشه جدید باید موجود باشد )
اگر تابع با خطایی مواجه شود مقدار بازگشتی صفر و در غیر اینصورت مقدار بازگشتی یک اشاره گر از قلم ساخته شده خواهد بود
lpPathName : نام و مسیر پوشه ای که باید ساخته شود
lpSecurityAttributes : مقدار این متغیر را برابر صفر قرار دهید

[majjjj]

CreateEllipticRgn



Private Declare Function CreateEllipticRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

این تابع یک محدوده بیضی می سازد ( برای این کار تابع محدوده یک مستطیل را از شما می گیرد و بزرگ ترین بیضی ممکن را در درون این مستطیل می سازد )
اگر تابع کار خود را با موفقیت انجام دهد مقدار بر گشتی یک اشاره گر از محدوده ساخته شده و در غیر اینصورت مقدار بر گشتی صفر خواهد بود
X1 : مختصات X گوشه بالا سمت چپ
Y1 : مختصات y گوشه بالا سمت چپ
X2 : مختصات X گوشه پایین سمت راست
Y2 : مختصات y گوشه پایین سمت راست

[mononok]

دوست عزیز منظور من هم همون vb در ضمن اگه یک دیکشنری بخرید بد نیست.
معنی کلمه فوق الذکر به معنی فراخوانی است .
من قصد اذیت نداشتم...ولی تا به حال این اصطلاح رو در visual basic نشنیده بودم...
ممنون که گفتید.

[majjjj]

CreatePatternBrush



Private Declare Function CreatePatternBrush Lib "gdi32.dll" (ByVal hBitmap As Long) As Long

این تابع یک قلم با الگوی تصویر برای استفاده در توابع گرافیکی می سازد
اگر تابع با خطایی مواجه شود مقدار بازگشتی صفر و در غیر اینصورت مقدار بازگشتی یک اشاره گر از قلم ساخته شده خواهد بود
hBitmap : یک اشاره گر از تصویر مورد نظر ( می توانید از نوع stdPicture موجود در ویژوال بیسیک مثل پروپرتی Picture موجود در PictureBox و غیره استفاده کنید )

[majjjj]

CreatePen



Private Declare Function CreatePen Lib "gdi32.dll" (ByVal nPenStyle As BorderStyleConstants, ByVal nWidth As Long, ByVal crColor As Long) As Long

این تابع یک قلم با استیل و عرض و رنگ دلخواه برای استفاده در توابع گرافیکی می سازد
اگر تابع با خطایی مواجه شود مقدار بازگشتی صفر و در غیر اینصورت مقدار بازگشتی یک اشاره گر از قلم ساخته شده خواهد بود
nPenStyle : استیل قلم ( برای راحتی کار این متغیر را از نوع BorderStyleConstants تعریف کردم تا کار کردن با آن ملموس تر و آسان تر باشد )
nWidth : عرض قلم
crColor : رنگ قلم به فرم RGB (میتوانید از ثابت های ColorConstants مثل : vbRed و vbBlue و غیره استفاده کنید )

[majjjj]

CreatePolygonRgn



Private Const ALTERNATE = 1
Private Const WINDING = 2
Private Type COORD
x As Long
y As Long
End Type




Private Declare Function CreatePolygonRgn Lib "gdi32.dll" (lpPoint Any, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long

این تابع یک محدوده چند ضلعی می سازد
اگر تابع کار خود را با موفقیت انجام دهد مقدار بر گشتی یک اشاره گر از محدوده ساخته شده و در غیر اینصورت مقدار بر گشتی صفر خواهد بود
lpPoint : این متغیر یک آرایه از نوع COORD است که مختصات نقاط چند ضلعی را نگه می دارد ( اولین عضو آرایه را وارد کنید. برای مثال : (COORDArray(0 )
nCount : تعداد اعضای آرایه
nPolyFillMode : نحوه ساخت چند ضلعی

[majjjj]

CreatePopupMenu



Private Declare Function CreatePopupMenu Lib "user32.dll" () As Long

این تابع یک منوی شناور (پاپ آپ) ایجاد می کند. به وسیله توابع دیگر می توان به این منو آیتم اضافه کرد
اگر تابع با خطایی مواجه شود مقدار بازگشتی صفر و در غیر اینصورت مقدار بازگشتی هندل منوی ایجاد شده خواهد بود

[majjjj]

CreateRectRgn



Private Declare Function CreateRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

این تابع یک محدوده چهار گوش می سازد
اگر تابع کار خود را با موفقیت انجام دهد مقدار بر گشتی یک اشاره گر از محدوده ساخته شده و در غیر اینصورت مقدار بر گشتی صفر خواهد بود
X1 : مختصات X گوشه بالا سمت چپ
Y1 : مختصات y گوشه بالا سمت چپ
X2 : مختصات X گوشه پایین سمت راست
Y2 : مختصات y گوشه پایین سمت راست

[majjjj]

CreateRoundRectRgn



Private Declare Function CreateRoundRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

این تابع یک محدوده چهار گوش با گوشه های پخ می سازد
اگر تابع کار خود را با موفقیت انجام دهد مقدار بر گشتی یک اشاره گر از محدوده ساخته شده و در غیر اینصورت مقدار بر گشتی صفر خواهد بود
X1 : مختصات X گوشه بالا سمت چپ
Y1 : مختصات y گوشه بالا سمت چپ
X2 : مختصات X گوشه پایین سمت راست
Y2 : مختصات y گوشه پایین سمت راست
X3 : میزان پخ شدن گوشه ها در راستای X
Y3 : میزان پخ شدن گوشه ها در راستای Y

[majjjj]

DecryptFileA



Private Declare Function DecryptFileA Lib "advapi32.dll" (ByVal lpFileName As String, ByVal dwReserved As Long) As Boolean

این تابع یک فایل را که با تابع EncryptFileA رمز گذاری شده است را به حالت عادی بر می گرداند
این تابع بر روی سیستم فایلی ntfs کار می کند و کاربر باید اختیارات لازم برای این کار را داشته باشد
lpFileName : نام فایل رمز گذاری شده
dwReserved : مقدار این متغیر صفر است

[majjjj]

DeleteFileA
[/CODE
[CODE]
Public Declare Function DeleteFile Lib "kernel32.dll" (ByVal lpFileName As String) As Long

این تابع یک فایل را از هارد دیسک پاک می کند
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
lpFileName : این متغیر بیانگر مسیر فایلی است که باید پاک شود

[majjjj]

DestroyIcon



Private Declare Function DestroyIcon Lib "user32.dll" (ByVal hIcon As Long) As Long

این تابع فضای اشغال شده توسط یک آیکون را آزاد می کند و در واقع آیکون مزبور را آزاد می کند
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hIcon : یک اشاره گر از آیکون مورد نظر

[majjjj]

DestroyMenu



Private Declare Function DestroyMenu Lib "user32.dll" () As Long

این تابع حافظه اشغال شده توسط اشاره گر یک منو را آزاد می کند و در واقع منوی مزبور را از بین می برد
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود

[majjjj]

DestroyWindow



Private Declare Function DestroyWindow Lib "user32.dll" (ByVal hwnd As Long) As Long

این تابع یک پنجره را مخفی می کند و ارتباط آن را با سایر پروسه ها قطع می کند ولی برنامه Unload نمی شود
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hwnd : هندل پنجره مورد نظر

[majjjj]

DoFileDownload



Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

این تابع پنجرهء File Download را برای گرفتن یک فایل مشخص باز می کند.
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
lpszFile : این متغیر به نام فایل که باید دانلود شود اشاره می کند

[majjjj]

DrawCaption



Private Const DC_ACTIVATE = &H1
Private Const DC_NOACTIVATE = &H2
Private Const DC_ICON = &H4
Private Const DC_TEXT = &H8
Private Const DC_GRADIENT = &H20
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type



Private Declare Function DrawCaption Lib "user32.dll" (ByVal hwnd As Long, ByVal hdc As Long, pcRect As RECT, ByVal un As Long) As Long

این تابع از عنوان یک پنجره یک کپی تهیه می کند و آن را در یک کنترل گرافیکی نمایش میدهد
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hwnd : هندل پنجره مورد نظر
hdc : هندل بافت گرافیکی مورد نظر
pcRect : محدوده ای که باید به اندازه آن از Titlebar کپی تهیه شود
un : این متغیر نوع کپی کردن را مشخص می کند (اگر به چند خصوصیت نیاز داشتید با عملگر OR آنها را با یکدیگر جمع کنید)
DC_ACTIVATE : پنجره را به حالت فعال ترسیم می کند
DC_NOACTIVATE : پنجره را به حالت غیر فعال ترسیم می کند
DC_ICON : آیکون پنجره را نیز ترسیم می کند
DC_TEXT : متن پنجره را نیز ترسیم می کند
DC_GRADIENT : محو تدریجی روی پنجره را نیز ترسیم می کند

[mhh_etefagh]

این سایت هم تمام توابع API مربوط به VB در Win32.dll را کاملا معرفی کرده. ببینید خوبه...
http://www.ex-designz.net/apicat.asp?

[majjjj]

فارسی نیست ولی خوبه

[اوبالیت به بو]

شما تابع API سراغ ندارین که بوسیله اون بشه Zoom تصویر رو انجام داد.
مثلاً رویه یه ImageBox بشه Zoom کرد.

[majjjj]

شما تابع API سراغ ندارین که بوسیله اون بشه Zoom تصویر رو انجام داد.
مثلاً رویه یه ImageBox بشه Zoom کرد.



StretchBlt



Private Const SRC_PAINT = &HEE0086
Private Const SRC_ERASE = &H440328
Private Const SRC_INVERT = &H660046
Private Const SRC_AND = &H8800C6
Private Const SRC_COPY = &HCC0020



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


این تابع از یک پنجره عکس می گیرد و آن را در یک کنترل گرافیکی چاپ می کند ضمن آنکه توانایی بزرگنمایی و کوچکنمایی تصویر را هم دارد
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hdc : هندل بافت گرافیکی کنترلی مقصد
x : نقطه شروع ترسیم عکس جدید در راستای افق
y : نقطه شروع ترسیم عکس جدید در راستای عمود
nWidth : عرض تصویر جدید
nHeight : ارتفاع تصویر جدید
hSrcDC : هندل بافت گرافیکی کنترلی که باید از آن عکس گرفته شود
xSrc : فاصلهء تصویر از سمت چپ کنترل
ySrc : فاصلهء تصویر از بالای کنترل
nSrcWidth : عرض تصویر
nSrcHeight : ارتفاع تصویر
dwRop : نحوه ترسیم تصویر . ثابت های زیر
SRC_PAINT : تصویر کنترل مبدا و مقصد را با هم Or کرده و در کنترل مقصد قرار می دهد
SRC_ERASE : تصویر پنجره مقصد را Not کرده و با پنجره مبدا Or می کند و نتیجه را در کنترل مقصد می نویسد
SRC_INVERT : تصویر کنترل مبدا و مقصد را با هم Xor کرده و در کنترل مقصد قرار می دهد
SRC_AND : تصویر کنترل مبدا و مقصد را با هم And کرده و در کنترل مقصد قرار می دهد
SRC_COPY : تصویر کنترل مبدا رو بدون دستکاری در کنترل مقصد قرار می دهد

[اوبالیت به بو]

چی جوری من باید عمل Zoom رو بوسیله این تابع انجام بدم؟

[majjjj]

چی جوری من باید عمل Zoom رو بوسیله این تابع انجام بدم؟
http://amozesheiranian.blogsky.com/

[majjjj]

DrawFocusRect


Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type



Private Declare Function DrawFocusRect Lib "user32.dll" (ByVal hdc As Long, ByVal lpRect As RECT) As Long

این تابع چهار چوب فوکوس را بر روی یک پنجره ترسیم می کند
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hdc : هندل بافت گرافیکی کنترل مورد نظر
lpRect : محدوده ای که باید فریم در آن ترسیم شود

[majjjj]

DrawIcon



Private Declare Function DrawIcon Lib "user32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long

این تابع چهار چوب فوکوس را بر روی یک پنجره ترسیم می کند
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hdc : هندل بافت گرافیکی کنترل مورد نظر
lpRect : محدوده ای که باید فریم در آن ترسیم شود

[majjjj]

DrawTextA



Const DT_LEFT = &H0
Const DT_TOP = &H0
Const DT_CENTER = &H1
Const DT_RIGHT = &H2
Const DT_BOTTOM = &H8
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type




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

این تابع توانایی چاپ یک متن را رو ی یک پنجره دارد.
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hdc : هندل بافت گرافیکی پنجره مورد نظر
lpStr : متن مورد نظر
nCount : طول متن مورد نظر
lpRect : چهار چوبی که باید متن در آن نمایش یابد
wFormat : فرمتی متن باید تحت آن نمایش یابد. ثابت های زیر به شما کمک خواهد کرد ( شما می توانید مقادیر زیر را با هم Or کنید )
DT_LEFT : متن در سمت چپ محدوده rect چاپ می شود
DT_LEFT : متن در بالای محدوده rect چاپ می شود
DT_CENTER : متن در وسط محدوده rect چاپ می شود
DT_RIGHT : متن سمت راست محدوده rect چاپ می شود
DT_BOTTOM : متن در پایین محدوده rect چاپ می شود

[majjjj]

DrawMenuBar



Private Declare Function DrawMenuBar Lib "user32.dll" (ByVal hwnd As Long) As Long

بعد از اینکه تغییراتی در منوهای یک پنجره داده شد با استفاده از این تابع می توان تغییرات را بر روی پنجره مورد نظر اعمال کرد
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hwnd : هندل پنجره مورد نظر

[majjjj]

DuplicateIcon



Private Declare Function DuplicateIcon Lib "shell32.dll" (ByVal hInst As Long, ByVal hIcon As Long) As Long

این تابع توانایی چاپ یک متن را رو ی یک پنجره دارد.
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hdc : هندل بافت گرافیکی پنجره مورد نظر
lpStr : متن مورد نظر
nCount : طول متن مورد نظر
lpRect : چهار چوبی که باید متن در آن نمایش یابد
wFormat : فرمتی متن باید تحت آن نمایش یابد. ثابت های زیر به شما کمک خواهد کرد ( شما می توانید مقادیر زیر را با هم Or کنید )
DT_LEFT : متن در سمت چپ محدوده rect چاپ می شود
DT_LEFT : متن در بالای محدوده rect چاپ می شود
DT_CENTER : متن در وسط محدوده rect چاپ می شود
DT_RIGHT : متن سمت راست محدوده rect چاپ می شود
DT_BOTTOM : متن در پایین محدوده rect چاپ می شود

[majjjj]

Ellipse



Private Declare Function Ellipse Lib "gdi32.dll" (ByVal Hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

این تابع یک اشاره گر از یک آیکون می گیرد و یک اشاره گر جدید از آن بر می گرداند و در واقع یک کپی از آن تهیه می کند
اگر تابع با خطایی مواجه شود مقدار بازگشتی صفر و در غیر اینصورت مقدار بازگشتی یک اشاره گر کپی آیکون مورد نظر خواهد بود
hInst : این متغیر مورد استفاده قرار نمی گیرد. می توانید مقدار آن را برابر صفر قرار دهید
hIcon : یک اشاره گر از آیکون مبدا

[majjjj]

EmptyClipboard



Private Declare Function EmptyClipboard Lib "user32.dll" () As Long

این تابغ داده های موجود در کلیپ بورد ویندوز را پاک می کند ( در ویژوال بیسیک دستور Clipboard.Clear همین کار را انجام می دهد)
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود

[majjjj]

EnableWindow



Private Declare Function EnableWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal fEnabled As Long) As Long

این تابع یک پنجره ( فرم یا کنترل ) را فعال یا غیرفعال می کند
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hwnd : هندل پنجره مورد نظر
fEnabled : اگر صفر باشد پنجره غیر فعال و اگر یک باشد پنجره فعال می شود

[majjjj]

EncryptFileA



Private Declare Function EncryptFileA Lib "advapi32.dll" (ByVal lpFileName As String) As Boolean

این تابع یک فایل را رمز گذاری می کند. فایل رمز گذاری شده را می توان با تابع DecryptFileA به حالت عادی باز گرداند
این تابع بر روی سیستم فایلی ntfs کار می کند و کاربر باید اختیارات لازم برای این کار را داشته باشد
lpFileName : نام فایل رمز گذاری شده

[majjjj]

EndMenu



Private Declare Function EndMenu Lib "user32.dll" () As Long

این تابع تمام منوهای باز پنجره جاری را می بندد
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود

[majjjj]

EnumFontsA



Private Declare Function EnumFonts Lib "gdi32" Alias "EnumFontsA" (ByVal hDC As Long, ByVal lpsz As String, ByVal lpFontEnumProc As Long, ByVal lParam As Long) As Long


این تابع لیست تمام فونت های موجود در سیستم را به دست می آورد
hDC : هندل بافت گرافیکی پنجره ای که تابع باید تحت آن اجرا شود
lpsz : خانواده فونت مورد نظر که اعضای آن باید جمع آوری شود. این متغیر به vbNul ختم می شود (برای اینکه لیست تمام فونت ها را به دست آورید از vbNullString استفاده کنید )
lpFontEnumProc : تابعی که باید لیست فونت های جمع شده به آن ارسال شود. از کلید واژه AddressOf برای اعلام محل تابع در حافظه استفاده کنید. (مثال AddressOf EnumFontProc). تابع باید مشابه تابعی که در کد نوشته شده است باشد. تازمانی که تابع مقدار True را برگرداند لیست کردن فونت ها ادامه خواهد داشت
lParam : این متغیر را به دلخواه خود می توانید مقدار دهی کنید. این متغیر عیناً به تابع EnumFontProc ارسال خواهد شد

[majjjj]

EnumWindows



Private Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
' Put your code here
EnumWindowsProc = True
End Function

این تابع لیست تمام پنجره های تحت یک پنجره دیگر را به دست می آورد
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
lpEnumFunc : تابعی که باید لیست پنجره به آن ارسال شود. از کلید واژه AddressOf برای اعلام محل تابع در حافظه استفاده کنید. (مثال AddressOf EnumWindowsProc). تابع باید مشابه تابعی که در کد نوشته شده است باشد. تازمانی که تابع مقدار True را برگرداند لیست کردن پنجره ها ادامه خواهد داشت
lParam : این متغیر را به دلخواه خود می توانید مقدار دهی کنید. این متغیر عیناً به تابع EnumWindowsProc ارسال خواهد شد

[majjjj]

ExitWindowsEx



EWX_LOGOFF = 0
EWX_SHUTDOWN = 1
EWX_REBOOT = 2
EWX_FORCE = 4
EWX_POWEROFF = 8
EWX_RESET = EWX_LOGOFF + EWX_REBOOT + EWX_FORCE



Private Declare Function ExitWindowsEx Lib "user32.dll" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

این تابع به منظور خاموش کردن یا راه اندازی مجدد ویندوز به کار می رود
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
uFlags : این متغیر بیان کننده نحوه کار تابع با سیستم است (ثابت های نوشته شده در کد )
dwReserved : مقدار این متغیر ByVal 0& است

[majjjj]

ExtractIconA



Private Declare Function ExtractIcon Lib "shell32.dll" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

این تابع یک آیکون را از یک فایل محتوی آیکون (exe,dll,ocx,ico) استخراج می کند و یک اشاره گر از آن را بر می گرداند
اگر تابع به علت عدم وجود فایل مورد نظر دچار خطا شود مقدار یک و اگر شماره آیکون مورن نظر در فایل وجود نداشته باشد عدد صفر را بر می گرداند و اگر کار خود را با موفقیت انجام دهد مقدار بر گشتی یا اشاره گر از آیکون مورد نظر خواهد بود
hInst : هندل پنجره ای که تابع تحت آن اجرا می شود
lpszExeFileName : نام فایل مورد نظر
nIconIndex : شماره آیکون مورد نظر

[majjjj]

FatalAppExitA



Private Declare Sub FatalAppExitA Lib "kernel32.dll" (ByVal uAction As Long, ByVal lpMessageText As String)

این تابع یک پیغام اخطار به کاربر نشان می دهد سپس به اجرای برنامه خاتمه می دهد. از این تابع زمانی استفاده می شود که برنامه با خطایی مواجه شود و شما از Unload کردن کامل برنامه مطمئن نباشید
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
uAction : مقدار این متغیر صفر است
lpMessageText : متنی که باید به کاربر نشان داده شود. این متن نباید از 35 کاراکتر بیشتر باشد

[majjjj]

fCreateShellLink



Private Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long

این تابع یک میانبر از یک فایل دلخواه در مسیر داده شده می سازد
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
lpstrFolderName : مسیری که میانبر باید در آنجا ساخته شود
lpstrLinkName : نام میانبر ساختا شده
lpstrLinkPath : فایلی که باید با کلیک بر روی میانبر اجرا شود
lpstrLinkArguments : آرگومان های میانبر (درصورت لزوم)
fPrivate : اگر False باشد میانبر ساخته نمی شود و اگر True باشد میانبر ساخته می شود
sParent :

[majjjj]

FindExecutableA



Private Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long

این تابع برنامه مرتبط با یک فایل خاص را بر می گرداند
اگر تابع با خطایی مواجه شود مقدار بازگشتی صفر و در غیر اینصورت مقدار بازگشتی یک اشاره گر از قلم ساخته شده خواهد بود
lpFile : فایل مورد نظر
lpDirectory : فولدر پیش فرض
lpResult : این بافر توسط تابع مقدار دهی می شود حاوی آدرس فایل اجرایی مرتبط با فایل مورد نظر خواهد بود. مقدار این بافر را با اندازه کافی بلند در نظر بگیرید ( این بافر را با رشته ای از جای خالی مقدار دهی کنید. برای مثال ( Space ( 255 )

[majjjj]

FindWindowA



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

این تابع یک پنجره با مشخصات داده شده را پیدا می کند
اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر و در غیر اینصورت مقدار بازگشتی هندل پنجره مورد نظر خواهد بود
lpClassName : نام کلاس پنجره مورد نظر
lpWindowName : نوشته یا Caption مورد نظر
( توجه : هر کدام از متغیر ها را که نخواستید مقدار دهی کنید با ثابت vbNullString جایگزین کنید )

[majjjj]

FindWindowExA



Private Declare Function FindWindowExA Lib "user32.dll" (ByVal hwndParent As Long, ByVal hwndChildAfter As Long, ByVal lpszClass As String, ByVal lpszCaption As String) As Long

این تابع توانایی پیدا کردن یک پنجره مشخص را دارد
اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر و در غیر اینصورت مقدار بازگشتی هندل پنجره مورد نظر خواهد بود
hwndParent : اشاره گر پنجره مادر پنجره مورد نظر
hwndChildAfter : اشاره گر پنجره دختر (Child) پنجره مورد نظر
lpszClass : نام کلاس پنجره مورد نظر
lpszCaption : عنوان (Caption) پنجره مورد نظر
(توجه : فقط یکی از متغیر های lpszClass و lpszCaption را می توانید مقدار دهی کنید و دیگری را باید با vbNullString مقدار دهی کنید)

[majjjj]

FlashWindow



Private Declare Function FlashWindow Lib "user32.dll" (ByVal hwnd As Long, bInvert As Long) As Long

این تابع پنجره و نشانهء آن بر روی Task Bar را فلش می کند ( به حالت چشمک زن در می آورد)
اگر قبل از فراخوانی پنجره فعال باشد تابع مقدار غیر صفر را بر می گرداند در غیر اینصورت مقدار بر گشتی تابع صفر خواهد بود
hwnd : هندل پنجره مورد نظر
bInvert : مدت زمانی که پنجره باید های لایت بماند (برحسب میلی ثانیه)

[majjjj]

FlashWindowEx



Private Type FLASHWINFO
cbSize As Long
hwnd As Long
dwFlags As Long
uCount As Long
dwTimeout As Long
End Type



Private Declare Function FlashWindowEx Lib "user32.dll" (pfwi As FLASHWINFO) As Long

این تابع عنوان یک پنجره را به حالت چشمک زن در می آورد
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود

[majjjj]

FloodFill



Private Declare Function FloodFill Lib "gdi32.dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long

این تابع داخل یک منطقه محدود شده توسط یک رنگ خاص را رنگ آمیزی می کند
اگر تابع با خطایی مواجه شود مقدار بازگشتی صفر و در غیر اینصورت مقدار بازگشتی یک اشاره گر از قلم ساخته شده خواهد بود
hdc : هندل بافت گرافیکی کنترل مورد نظر
X : عرض نقطه مورد نظر
Y : طول نقطه مورد نظر
crColor : رنگی که تابع تا رسیدن به آن رنگ محدوده مورد نظر را رنگ آمیزی می کند

[majjjj]

GetActivateWindow



Private Declare Function GetActivateWindow Lib "user32.dll" () As Long

این تابع هندل پنجره (فرم) فعال را بر می گرداند
اگر تابع با خطایی مواجه شود مقدار بازگشتی صفر و در غیر اینصورت مقدار بازگشتی هندل پنجره فعال خواهد بود

[majjjj]

GetAncestor



Private Const GA_PARENT = 1
Private Const GA_ROOT = 2



Private Declare Function GetAncestor Lib "user32.dll" (ByVal hwnd As Long, ByVal uFlag As Long) As Long

این تابع پنجره مادر یک پنجره دلخواه را به دست می آورد
اگر تابع با خطایی مواجه شود مقدار بازگشتی صفر و در غیر اینصورت مقدار بازگشتی هندل پنجره مادر خواهد بود
hwnd : هندل پنجره مورد نظر
uFlag : مشخص می کند تابع هندل کدام پنجره مادر را باید بر گرداند
GA_PARENT : پنجره مادر پنجره داده شده را به دست می آورد
GA_ROOT : هندل فرم مادر پنجره داده شده را به دست می آورد

[majjjj]

GetBkColor



Private Declare Function GetBkColor Lib "gdi32.dll" Alias "GetBkColor" (ByVal hdc As Long) As Long

این تابع رنگ پس زمینه یک کنترل گرافیکی را بر می گرداند
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود

[majjjj]

GetCaretBlinkTime



Private Declare Function GetCaretBlinkTime Lib "user32.dll" (ByVal wMSeconds As Long) As Long

این تابع سرعت چشمک زدن نشانگر صفحه کلید را به دست می آورد
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود

[majjjj]

GetClassNameA



Private Declare Function GetClassNameA Lib "user32.dll" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

این تابع هندل یک پنجره را گرفته و ClassName ش را برمیگرداند .
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و در غیر اینصورت مقدار بر گشتی صفر خواهد بود
hwnd : هندل پنجره میباشد .
lpClassName : این متغیر که توسط تابع مقداردهی می شود حاوی کلاس پنجره مورد نظر خواهد بود
nMaxCount : طول بافر lpClassName

[majjjj]

GetClientRect



Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type



Private Declare Function GetClientRect Lib "user32.dll" (ByVal hwnd As Long, ByVal lpRect As Rect) As Long

این تابع هندل یک پنجره را گرفته و ClassName ش را برمیگرداند .
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و در غیر اینصورت مقدار بر گشتی صفر خواهد بود
hwnd : هندل پنجره میباشد .
lpClassName : این متغیر که توسط تابع مقداردهی می شود حاوی کلاس پنجره مورد نظر خواهد بود
nMaxCount : طول بافر lpClassName

[علی خدایاری]

من میخوام یک منو طراحی کنم اما تو نمایش اون مشکل دارم. یعنی نمیتونم طوری نمایش بدم که کاربر وقتی جای دیگه کلیک میکنه منو پاک بشه (خاصیت اصلی منوها) میشه کد این کار رو قرار بدید؟ ممنونم

[majjjj]

دوست عزیز اینجا مرجع api هست لطفا سوال خود را دریک تایپیک جدید مطرح فرمایید
با این وجود یک نمونه تو تایپیک بعدی براتون گذاشتم البته دلیلش هم این بود که
نشد سورس رو اینجا بگذارم

[majjjj]

این نمونه رو ببینین

[majjjj]

GetClipboardData



Private Const CF_TEXT = 1
Private Const CF_BITMAP = 2
Private Const CF_JPEG = 19
Private Const CF_METAFILE = 14



Private Declare Function SetClipboardData Lib "user32.dll" (ByVal wFormat As Long) As Long

این تابع دادهء موجود در کلیپ بورد را بر می گرداند
اگر تابع با خطایی مواجه شود مقدار صرف را بر می گرداند در غیر اینصورت یک اشاره گر از داده داخل کلیپ بورد را بر می گرداند
wFormat : این بافر توسط تابع مقدار دهی می شود و بیانگر نوع داده کلیپ بورد خواهد بود (ثابت های زیر)
CF_TEXT : داده از نوع متنی ساده است
CF_BITMAP : تصویر نقشه بیتی
CF_JPEG : تصویر فشرده جی پگ
CF_METAFILE : تصویر از نوع ابر فایل ویندوز (Windows Meta File)

[majjjj]

GetCommandLine



Private Declare Function GetCommandLine Lib "kernel32.dll" () As Long

این تابع یک اشاره گر از فایل اجرایی برنامه جاری بر می گرداند
اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر و در غیر اینصورت مقدار بازگشتی یک اشاره گر از فایل اجرایی جاری خواهد بود

[majjjj]

GetComputerNameA



Private Declare Function GetComputerNameA Lib "kernel32.dll" (ByVal lpBuffer As String, nSize As Long) As Long

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

lpBuffer : این متغیر که توسط تابع مقداردهی می شود حاوی کلاس پنجره مورد نظر خواهد بود
nSize : طول بافر lpBuffer

[majjjj]

GetCurrentDirectory



Private Declare Function GetCurrentDirectory Lib "kernel32.dll" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

این تابع آدرس مسیر جاری را برمیگرداند
اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر و گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر خواهد بود که هندل پنجره فعال است
nBufferLength : طول بافر lpBuffer
lpBuffer : مقدار این بافر توسط تابع مقدار دهی می شود و حاوی مسیر جاری خواهد بود

[علی خدایاری]

این نمونه رو ببینین

از پاسختون ممنونم. اگه لطف کنید و این کار رو با یا UserControl انجام بدید ممنون میشم.
چون قرار منو رو من طراحی کنم.

در مورد فرمایشتون هم باید عرض کنم که این کار را انجام دادم ولی کسی پاسخ نداد
باز هم ممنونم:تشویق::تشویق:

[m_vb1386]

از پاسختون ممنونم. اگه لطف کنید و این کار رو با یا UserControl انجام بدید ممنون میشم.
چون قرار منو رو من طراحی کنم.

در مورد فرمایشتون هم باید عرض کنم که این کار را انجام دادم ولی کسی پاسخ نداد
باز هم ممنونم:تشویق::تشویق:


چرا این کار رو با ادیتور بیسیک انجام نمیدین

[Mbt925]

از پاسختون ممنونم. اگه لطف کنید و این کار رو با یا UserControl انجام بدید ممنون میشم.
چون قرار منو رو من طراحی کنم.

در مورد فرمایشتون هم باید عرض کنم که این کار را انجام دادم ولی کسی پاسخ نداد
باز هم ممنونم:تشویق::تشویق:

شرکت vbaccelerator یه Dll اه فوق العاده خوب و انعطاف پذیر برای ایجاد منو های PopUp ایجاد کرده ، که هر قابلیتی که فکرش رو بکنین ، داره.
نمونه ی ساده و قابل فهمی هم قرار داده:

http://www.vbaccelerator.com/home/VB/code/Controls/Menus/Popup_Menu_ActiveX_DLL/article.asp

[majjjj]

شرکت vbaccelerator یه Dll اه فوق العاده خوب و انعطاف پذیر برای ایجاد منو های PopUp ایجاد کرده ، که هر قابلیتی که فکرش رو بکنین ، داره.
نمونه ی ساده و قابل فهمی هم قرار داده:
امیدوارم با پاسخ مدیر بخش مشکلتون حل شده باشه

[majjjj]

GetCurrentProcess



Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long

این تابع یک اشاره گر از پردازش فعلی (فایل اجرایی برنامه) بر می گرداند
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود

[majjjj]

GetCurrentProcessId



Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long

این تابع یک ID از فایل اجرایی جاری بر می گرداند. این ID می تواند در توابعی مانند RegisterServiceProcess به کار رود
اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر و در غیر اینصورت مقدار بازگشتی ID فایل اجرایی جاری خواهد بود

[majjjj]

GetCursor



Private Declare Function GetCursor Lib "user32.dll" () As Long

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

[majjjj]

GetCursorPos



Public Type POINTAPI
x As Long
y As Long
End Type



Public Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long

این تابع مختصات فعلی ماوس را بر می گرداند
lpPoint : این بافر توسط تابع مقدار دهی می شود و حاوی مختصات ماوس از نوع POINTAPI خواهد بود

[majjjj]

GetDefaultUserProfileDirectoryA



Private Declare Function GetDefaultUserProfileDirectoryA Lib "usernv.dll" (ByVal lpProfileDir As String) As Boolean

این تابع مسیر پوشه تنظیمات مربوط به کاربر پیش فرض را بر می گرداند( Document and Settings )
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی True و اگر تابع با خطایی مواجه شود مقدار بر گشتی False خواهد بود
lpProfileDir : این بافر توسط تابع مقدار دهی می شود و حاوی مسیر پوشه مورد نظر خواهد بود
lpcchSize : این متغیر طول بافر lpProfileDir را بیان می کتد

[majjjj]

GetDesktopWindow



Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long

این تابع هندل دسکتاپ را به دست می آورد
اگر تابع با خطایی مواجه شود مقدار برگشتی آن صفر خواهد بود در غیر این صورت مقدار برگشتی هندل دسکتاپ خواهد بود

[majjjj]

GetDiskFreeSpaceA



Public Declare Function GetDiskFreeSpaceA Lib "kernel32.dll" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long

این تابع میزان فضای خالی موجود در یک درایو را بر می گرداند
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود

lpRootPathName : مسیر درایو مورد نظر
lpSectorsPerCluster : این بافر توسط تابع مقدار دهی می شود و تعداد سکتور های هر کلاستر را بر می گرداند
lpBytesPerSector : این بافر توسط تابع مقدار دهی می شود و تعداد بایت های هر سکتور را بر می گرداند
lpNumberOfFreeClusters : این بافر توسط تابع مقدار دهی می شود و تعداد کلاستر های خالی را بر می گرداند
lpTotalNumberOfClusters : این بافر توسط تابع مقدار دهی می شود و تعداد کل کلاستر ها را بر می گرداند

[majjjj]

GetDoubleClickTime



Private Declare Function GetDoubleClickTime Lib "user32.dll" () As Long

این تابع زمان Double Click را برمیگرداند
اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر و گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی حد اکثر زمان مورد قبول بین دو دابل کلیک خواهد بود

[majjjj]

GetDriveType



Private Declare Function GetDriveType Lib "kernel32.dll" (ByVal nDriev as String) As Long

آین تابع نوع یک درایو را مشخص می کند
با توجه به مقدار برگشتی یکی از حالت های زیر ممکن است پیش آید:
0 : تابع با خطا مواجه شده است
1 : درایو مورد نظر وجود ندارد
2 : قابل حمل(فلش مموری ها)
3 : ثابت
4 : درایو شبکه ( مشترک )
5 : رم دیسک
6 : سی دی رام
nDrive : این متغیر به مسیر درایو اشاره می کند ( برای مثال : \:d )

[majjjj]

GetFileAttributesA



Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100



Private Declare Function GetFileAttributesA Lib "kernel32.dll" (ByVal lpFileName As String) As Long

این تابع خصوصیات یک فایل (Read Only,Archive,Hidden,…) را برمیگرداند ( در ویژوال بیسیک تابع GetAttr همین کار را انجام می دهد )
اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر و گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر خواهد بود که بیانگر خصوصیات فایل است (ثابت های زیر به شما کمک خواهد کرد)
lpFileName : مسیر فایل مورد نظر
FILE_ATTRIBUTE_ARCHIVE : فایل آرشیو است
FILE_ATTRIBUTE_COMPRESSED : فایل فشرده است
FILE_ATTRIBUTE_DIRECTORY : فایل مورد نظر دایراکتوری است ( دایراکتوری ها در واقع یک فایل ساده هستند که بیت خصوصیت دایراکتوری آنها یک است )
FILE_ATTRIBUTE_HIDDEN : فایل مخفی
FILE_ATTRIBUTE_NORMAL : خصوصیات طبیعی
FILE_ATTRIBUTE_READONLY : فقط خواندنی
FILE_ATTRIBUTE_SYSTEM : فایل سیستمی
FILE_ATTRIBUTE_TEMPORARY : فایل موقت

[majjjj]

GetFileSize



Private Declare Function GetFileSize Lib "kernel32.dll" (ByVal hFile As Long, ByVal lpFileSizeHight As Long) As Long

این تابع حجم یک فایل را به بایت بر می گرداند
اگر تابع کار خود را با موفقیت انجام دهد مقدار بر گشتی حجم فایل و در غیر اینصورت مقدار بر گشتی 1- خواهد بود
hFile : یک اشاره گر از فایل مورد نظر ( این اشاره گر را می توانید با استفاده از تابع CreateFile ایجاد کنید )
lpFileSize : مقدار این بافر توسط تابع مقدار دهی می شود و حاوی حجم فایل مورد نظر خواهد بود

[majjjj]

GetFocus



Private Declare Function GetFocus Lib "user32.dll" () As Long

این تابع هندل (HWnd ) پنجره دارای فوکوس را به دست می آورد
اگر تابع با خطایی مواجه شود مقدار بازگشتی صفر و در غیر اینصورت مقدار بازگشتی هندل پنجره دارای فوکوس خواهد بود

[majjjj]

GetForegroundWindow



Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long

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

[majjjj]

GetFreeResources



Private Const GFSR_SYSTEMRESOURCES = 0
Private Const GFSR_GDIRESOURCES = 1
Private Const GFSR_USERRESOURCES = 2



Private Declare Function GetFreeResources Lib "rsrc32.dll" Alias "_MyGetFreeSystemResources32@4" (ByVal lWhat As Long) As Long

این تابع میزان منابع آزاد سیستمی را بر می گرداند
اگر تابع با خطایی مواجه شود مقدار بازگشتی صفر و در غیر اینصورت مقدار بازگشتی میزان آزاد منابع مورد نظر خواهد بود
lWhat : این متغیر مشخص می کند تابع باید میزان منابع آزاد کدام قسمت را بر گرداند
GFSR_SYSTEMRESOURCES : منابع آزاد سیستمی
GFSR_GDIRESOURCES : منابع آزاد گرافیکی
GFSR_USERRESOURCES : منابع آزاد کاربر

[majjjj]

GetKeyboardLayoutName



Private Declare Function GetKeyboardLayoutName Lib "user32.dll" (ByVal pwszKLID As String) As Long
این تابع زبان جاری صفحه کلید را بر می گرداند
اکر تابع با خطایی مواجه شود مقدار برگشتی صفر و در غیر اینصورت مقدار برگشتی آن یک مقدار غیر صفر خواهد بود
pwszKLID : این متغیر که توسط تابع مقدار دهی می شود یک رشتهء 9 کاراکتری است که کد زبان کنونی صفحه کلید است

[majjjj]

GetLastError



Private Declare Function GetLastError Lib "kernel32.dll" (ByVal dwErrCode As Long) As Long

این تابع شماره آخرین خطایی را که در کامپیوتر رخ داده بر می گرداند
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
dwErrCode : این بافر توسط تابع مقدار دهی می شود و حاوی شماره خطای آخرین خطای سیستمی خواهد بود

[majjjj]

GetLogicalDrives



Public Declare Function GetLogicalDrives Lib "kernel32.dll" () As Long

این تابع لیستی از درایو های My Computer را بر می گرداند.
اگر مقدار برگشتی تابع را با شماره درایو And کنید و نتیجه بگیرید؛ آنگاه درایو مورد نظر موجود است. برای مثال اگر جواب GetLogicalDrives Or 1 صفر نباشد آنگاه درایو A موجود است یا اگر جواب GetLogicalDrives Or 3 صفر نباشد آنگاه درایو C موجود است

[majjjj]

GetProfileDirectoryA



Private Declare Function GetProfileDirectoryA Lib "usernv.dll" (ByVal lpProfileDir As String, lpcchSize As Long) As Boolean

این تابع یک اشاره گر از یک منو را بر می گرداند. (توجه داشته باشید در اینجا منظور از منو تمام آیتم هایی است که در قسمت منوی یک پنجره ممکن است وجود داشته باشد ، مثل : File , Edit و غیره . برای گرفتن تک تک منوها باید از تابع GetSubMenu استفاده کرد)
اگر تابع کار خود را با موفقیت انجام دهد مقدار برگشتی یک اشاره گر از منوی موزد نظر خواهد بود در غیر اینصورت تابع مقدار صفر را برگشت خواهد داد
hwnd : هندل پنجره ای که منو در آن قرار دارد

[majjjj]

GetSysColor



Private Const COLOR_SCROLLBAR = 0
Private Const COLOR_BACKGROUND = 1
Private Const COLOR_ACTIVECAPTION = 2
Private Const COLOR_INACTIVECAPTION = 3
Private Const COLOR_MENU = 4
Private Const COLOR_WINDOW = 5
Private Const COLOR_WINDOWFRAME = 6
Private Const COLOR_MENUTEXT = 7
Private Const COLOR_WINDOWTEXT = 8
Private Const COLOR_CAPTIONTEXT = 9
Private Const COLOR_ACTIVEBORDER = 10
Private Const COLOR_INACTIVEBORDER = 11
Private Const COLOR_APPWORKSPACE = 12
Private Const COLOR_HIGHLIGHT = 13
Private Const COLOR_HIGHLIGHTTEXT = 14
Private Const COLOR_BTNFACE = 15
Private Const COLOR_BTNSHADOW = 16
Private Const COLOR_GRAYTEXT = 17
Private Const COLOR_BTNTEXT = 18
Private Const COLOR_INACTIVECAPTIONTEXT = 19
Private Const COLOR_BTNHIGHLIGHT = 20



Public Declare Function GetSysColor Lib "user32.dll" (ByVal nIndex As Long) As Long

این تابع رنگ قسمت های مختلف ویندوز را بر می گرداند ( در ویژوال بیسیک ثابت های ذخیره شده ای تحت نام SystemColorConstants وجود داند که دقیقاً همین کار را انجام می دهند )
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
nIndex : ایندکس قسمتی که باید رنگ آن توسط تابع برگردانده شود ( ثابت های زیر به شما کمک خواهد کرد )
COLOR_SCROLLBAR : رنگ اسکرول بار
COLOR_BACKGROUND : رنگ پس زمینه ویندوز
COLOR_ACTIVECAPTION : عنوان پنجره فعال
COLOR_INACTIVECAPTION : عنوان پنجره غیر فعال
COLOR_MENU : رنگ منو
COLOR_WINDOW : رنگ پنجره
COLOR_WINDOWFRAME : حاشیه پنجره
COLOR_MENUTEXT : نوشته منو
COLOR_WINDOWTEXT : نوشته پنجره
COLOR_CAPTIONTEXT : رنگ نوشته روی پنجره
COLOR_ACTIVEBORDER : لبه پنجره فعال
COLOR_INACTIVEBORDER : لبه پنجره غیر فعال
COLOR_APPWORKSPACE : فضای کاری دسکتاپ
COLOR_HIGHLIGHT : قسمتی از دکمه که در معرض نور قرار دارد
COLOR_HIGHLIGHTTEXT : نوشته انتخاب شده
COLOR_BTNFACE : رنگ دکمه ، پنجره ، فریم و ...
COLOR_BTNSHADOW : قسمتی از دکمه در قسمت سایهء آن قرار دارد
COLOR_GRAYTEXT : نوشته غیر فعال
COLOR_BTNTEXT : رنگ نوشته دکمه
COLOR_INACTIVECAPTIONTEXT : رنگ نوشته پنجره غیر فعال
COLOR_BTNHIGHLIGHT : رنگ نور ویندوز

[majjjj]

GetSystemDirectoryA



Private Declare Function GetSystemDirectoryA Lib "kernel32.dll" (ByVal lpBuffer As String,ByVal nBuffer As Long) As Long

این تابع مسیر فولدر سیستمی ویندوز را بر میگرداند
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و در غیر اینصورت مقدار بر گشتی صفر خواهد بود
lpBuffer : این متغیر توسط تابع مقدار دهی می شود و حاوی مسیر فولدر سیستمی خواهد بود
nBuffer : طول بافری که باید مسیر در آن ذخیره گردد را مشخص می کند

[majjjj]

GetTempPathA



Private Declare Function GetTempPathA Lib "kernel32.dll" (ByVal nBuffer As Long, lpBuffer As String) As Long

این تابع مسیر فولدر موقت (Temp Folder) ویندوز را بر می گرداند
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و در غیر اینصورت مقدار بر گشتی صفر خواهد بود
nBuffer : طول بافری که باید مسیر در آن ذخیره گردد را مشخص می کند
lpBuffer : این متغیر توسط تابع مقدار دهی می شود و حاوی مسیر فولدر موقت خواهد بود

[majjjj]

GetUserNameA



Private Declare Function GetUserNameA Lib "advapi32.dll" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

این تابع نام کاربر جاری را بر می گرداند
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و در غیر اینصورت مقدار بر گشتی صفر خواهد بود
lpBuffer : این متغیر توسط تابع مقدار دهی می شود و حاوی نام کاربر جاری خواهد بود
nSize : طول بافر ( متغیر lpBuffer )

[majjjj]

GetVersionExA



Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type



Private Declare Function GetVersionExA Lib "kernel32.dll" (lpVersionInfo As OSVERSIONINFO) As Long

این تابع اطلاعاتی درباره نسخه و نگارش ویندوز را بر می گرداند
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
lpVersionInfo : این متغیر توسط تابع مقدار دهی می شود و حاوی اطلاعاتی راجه به نسخه ویندوز از نوع OSVERSIONINFO خواهد بود.
dwOSVersionInfoSize : طول نوع OSVERSIONINFO با بایت که توسط تابع باید برگردانده شود
dwMajorVersion : شماره نسخه اصلی ویندوز
dwMinorVersion : شماره نگارش ویندوز
dwBuildNumber : دفعات بازبینی ویندوز
dwPlatformId : شمارهء سکوی ( Platform ) ویندوز
szCSDVersion : نام رشته ای نسخه ویندوز

[majjjj]

GetWindowDirectory



Private Declare Function GetWindowDirectory Lib "kernel32.dll" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

این تابع مسیر فولدر ویندوز را بر می گرداند
اگر تابع با خطا مواجه شود مقدار بر گشتی صفر خواهد بود در غیر اینصورت مقدار بر گشتی برابر طول بافر خواهد بود
lpBuffer : مقدار این بافر توسط تابع مقدار دهی می شود و مقدار بر گشتی آن مسیر نصب ویندوز خواهد بود
nSize : طول بافر lpBuffer است

[majjjj]

GetWindowTextA



Private Declare Function GetWindowTextA Lib "user32.dll" (ByVal hwnd As Long,ByVal LpString As String, ByVal cch As Long) As Long

این تابع عنوان (Caption) پنجره داده شده را بر می گرداند
hwnd : هندل پنجره مورد نظر
LpString : این متغیر توسط تابع مقداردهی می شود و مقدار آن پس از اجرای تابع نوشته پنجره مورد نظر خواهد بود
cch : طول بافر ( LpString ) توجه کنید طول بافر را به میزان لازم بلند اعلام کنید

[majjjj]

GetWindowTextLenghtA



Private Declare Function GetWindowTextLenghtA Lib "user32.dll" (ByVal hwnd As Long) As Long

این تابع طول نوشتهء یک پنجره را بر می گرداند
اگر مقدار برگشتی صفر باشد نشانگر عدم موفقیت تابع است در غیر اینصورت مقدار برگشتی طول Caption پنجره خواهد بود
hwnd : هندل پنجره مورد نظر

[majjjj]

HideCaret



Private Declare Function HideCaret Lib "user32.dll" (ByVal hwnd As Long) As Long

این تابع نشانگر چشمک زن صفحه کلید را از روی پنجره (کنترل) مورد نظر مخفی می کند ( با تابع ShowCaret می توان چشمک زن را دوباره فعال کرد )
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hwnd : هندل پنجره مورد نظر

[majjjj]

InetIsOffLine



Private Declare Function InetIsOffLine Lib "url.dll" (ByVal dwFlags As Long) As Long

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

[majjjj]

InternetGetConnectedState



Private Const INTERNET_CONNECTION_LAN As Long = &H2
Private Const INTERNET_CONNECTION_PROXY As Long = &H4
Private Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Private Const INTERNET_CONNECTION_CONFIGURED As Long = &H40
Private Const INTERNET_RAS_INSTALLED As Long = &H10



Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long,ByVal dwReserved As Long) As Long

این تابع شیوه اتصال کامپیوتر محلی به شبکه اینترنت را بر می گرداند.
اگر تابع مقدار صفر را برگرداند یعنی کامپیوتر به اینترنت متصل نیست. در غیر این صورت کامپیوتر به ابنترنت متصل است و باید با And کردن بافر lpdwFlags با ثابت های زیر روش اتصال به اینترنت را به دست آورد
lpdwFlags : این بافر توسط تابع مقدار دهی می شود بیانگر شیوه اتصال به اینترنت خواهد بود ( ثابت های زیر )
INTERNET_CONNECTION_LAN : کامپیوتر از طریق شبکه محلی به اینترنت متصل است
INTERNET_CONNECTION_PROXY : کامپیوتر از پراکسی استفاده می کند
INTERNET_CONNECTION_MODEM_BUSY : مودم در دسترس نیست (مشغول است)
INTERNET_CONNECTION_OFFLINE : کامپیوتر offline است (به اینترنت متصل نیست)
INTERNET_CONNECTION_CONFIGURED : اتصال اینترنتی پیکره بندی شده است (کامپیوتر قابلیت اتصال به اینترنت را دارد)
INTERNET_RAS_INSTALLED : سیستم رمز گذاری Ras روی کامپیوتر نصب شده است
dwReserved : مقدار این آرگومان را &0 قرار دهید

[majjjj]

IsChild



Private Declare Function IsChild Lib "user32.dll" (ByVal hwnd As Long) As Long

این تابع بررسی می کند که آیا پنجره داده شده پنجره مادر است یا یک پنجره Child.
اگر هندل داده شده متعلق به یک پنجره مادر باشد آنگاه تابع مقدار صفر و در غیر اینصورت مقدار غیر صفر را برگشت خواهد داد
hwnd : هندل پنجره مورد نظر

[majjjj]

IsNTAdmin



Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByVal lpdwReserved As Long) As Long

این تابع مشخص می کند آیا کاربر جاری اختیارات Administrator را دارد یا نه؟
اگر کاربر جاری اختیارات Administrator را نداشته باشد تابع مقدار صفر و در غیر اینصورت مقدار غیر صفر را بر می گرداند
dwReserved : مقدار این متغیر صفر است
lpdwReserved : مقدار این متغیر صفر است

[majjjj]

IsPwrShutdownAllowed



Private Declare Function IsPwrShutdownAllowed Lib "poweroff.dll" () As Long

این تابع بررسی می کند آیا سیستم قادر است به طور کامل خاموش شود یا نه ، در واقع این تابع ATX بودن پاور را بررسی می کند( ویندوز 2000 به بعد ).
اگر مقدار برگشتی یک باشد آنگاه سیستم قادر است خود به خود به طور کامل خاموش شود ولی اگر مقدار برگشتی 0 باشد آنگاه سیستم چنین توانایی ندارد

[majjjj]

IsWindow



Private Declare Function IsWindow Lib "user32.dll" (ByVal hwnd As Long) As Long

این تابع بررسی می کند آیا آرگومان داده شده هندل یکی از پنجره های موجود در دسکتاپ است یا خیر (منظور از پنجره تمام فرم ها و کنترل ها از جمله :TextBox و Button و غیره است)
اگر پنجره مورد نظر وجود نداشته باشد مقدار برگشتی تابع صفر خواهد بود در غیر این صورت تابع یک مقدار غیر صفر را برمی گرداند
hwnd : مشخص کننده هندل پنجره ای است که باید بررسی شود

[majjjj]

IsZoomed



Private Declare Function IsZoomed Lib "user32.dll" (ByVal hwnd As Long) As Long

این تابع بررسی می کند که آیا پنجره مورد نظر در حالت Maximize است یا خیر؟
اگر پنجره مورد نظر Maximize باشد تابع مقدار یک و در غیر اینصورت مقدار صفر را بر می گرداند
hwnd : هندل پنجره مورد نظر

[majjjj]

KillTimer



Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nlDEvent As Long) As Long

این تابع تایمری را که با تابع SetTimer به وجود آمده، از بین می برد.
hwnd : هندل پنجره ای که تابع تحت آن اجرا می شود ( باید برابر با مقداری باشد که در تابع SetTimer مورد استفاده قرار گرفته است )
nlDEvent : این متغیر به یک اشاره گر که توسط تابع SetTimer ایجاد شده اشاره می کند

[majjjj]

LockWindowUpdate



Private Declare Function LockWindowUpdate Lib "kernel32.dll" (ByVal hwndLock As Long) As Long

این تابع یک کنترل را قفل می کند و هرگونه ترسیم، تغییر و به روزآوری روی کنترل مزبور غیر ممکن خواهد بود
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hwndLock : هندل کنترل مورد نظر

[majjjj]

MakeSureDirectoryPathExists



Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

این تابع یک مسیر داده شده را ایجاد می کند. همچنین این تابع توانایی ساخت مسیر های تو در تو را نیز دارد. همانطور که از نام این تابع پیداست بعد از فراخوانی این تابع از وجود مسیر مورد نظر اطمینان حاصل خواهید کرد.
lpPath : این متغیر به مسیر مورد نظر اشاره می کند

[majjjj]

MessageBeep



Public Const MB_OK = &H0
Public Const MB_HANDICON = &H10
Public Const MB_QUETSIONICON = &H20
Public Const MB_EXCLAMATION = &H30
Public Const MB_ASTERIKICON = &H40


Private Declare Function MessageBeep Lib "user32.dll" ( ByVal wType As Long) As Long

این تابع برای پخش اصوات از پیش تعیین شده (Beep ) ویندوز مورد استفاده قرار می گیرد.
wType : نوع صوتی را که قرار است پخش شود مشخص می کند ( به ثابت ها توجه کنید )

[majjjj]

ModifyMenu



Declare Function ModifyMenuA Lib "user32.dll" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long

از این تابع برای ویرایش مشخصات یک منو استفاده می شود
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hMenu : یک اشاره گر از منوی مورد نظر
nPosition : محل قرار گیری آیتم مورد نظر
wFlags : مقدار این متغیر نحوه بیان nPosition را مشخص می کند
MF_BYPOSITION : نسبت به مکان منوی پنجره سنجیده می شود
MF_BYCOMMAND : نسبت به مکان منوی مادر سنجیده می شود
wIDNewItem : یک اشاره گر از منوی مورد نظر
lpString : این متغیر یک اشاره گر از یک تصویر بیت مپ است که باید در کنار منوی مورد نظر قرار گیرد

[majjjj]

MoveFile



Private Declare Function MoveFile Lib "kernel32.dll" (ByVal lpExistingName As String, ByVal lpNewFileName As String) As Long

این تابع برای انتقال یک فایل یا پوشه از محلی به محل دیگر مورد استفاده قرار می گیرد ( توانایی تغییر نام فایل ها و پوشه ها را نیز دارد )
lpExistingName : مسیر فایل مبدا
lpNewFileName : مسیر فایل مقصد ( اگر نام فایل متفاوت باشد در حین انتقال نام فایل نیز تغییر خواهد کرد )

[majjjj]

MoveWindow



Private Declare Function MoveWindow Lib "user32.dll" (ByVal hwnd, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

این تابع توانایی تغییر محل و تغییر اندازه پنجره ها را دارد.
اگر تابع مقدار صفر را بر گرداند به منزلهء عدم موفقیت آن است و مقدار غیر صفر نشانگر موفقیت تابع است.
x : فاصلهء جدید پنجره از سمت چپ صفحه نمایش
y : فاصلهء جدید پنجره از بالای صفحه نمایش
nWidth : عرض جدید پنجره
nHeight : ارتفاع جدید پنجره
bRepaint : اگر این مقدار 1 باشد پنجره در محل جدید Refresh می شود و اگر 0 باشد عمل Refresh صورت نمی گیرد

[majjjj]

OpenClipboard



Private Declare Function OpenClipboard Lib "user32.dll" (ByVal hwnd As Long) As Long

این تابع کلیپ بورد را برای استفاده برنامه جاری قفل می کند تا برنامه های دیگر نتوانند به آن دسترسی داشته باشند
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hwnd : هندل پنجره ای که تابع باید تحت آن اجرا شود
قابل توجه دوستان فقط لطفا برای نوشتن ویروس ازش استفاده نکنین

[majjjj]

PlaySoundA



Private Declare Function PlaySoundA Lib "winmm.dll" (ByVal lpszeName As String, ByVal Reserved As Long, ByVal dwFlags As Long) As Long

این تابع یک فایل Wav را پخش می کند اگر فایل صوتی مزبور در مسیر داده شده موجود نباشد آنگاه تابع صدای Beep را پخش خواهد کرد
lpszeName : نام و مسیر فایل صوتی
Reserved : مقدار این متغیر را برابر &0 قرار دهید
dwFlags : نوع و روش پخش فایل صوتی

[majjjj]

SetTimer



Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

این تابع یک تایمر ایجاد می کند تا در یک فاصله زمانی مشخص یک عمل تکرار شود ( برای از بین بردن یک تایمر باید از تابع KillTimer استفاده کرد )
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hwnd : هندل پنجره ای که تابع باید تحت آن اجرا شودو در صورتی که می خواهید تایمر ایجاد شده تحت پنجره خاصی نباشد مقدار این متغیر را برابر صفر قرار دهید
nIDEvent : این متغیر شماره شناسایی تایمر است که از آن برای از بین بردن تایمر ایجاد شده استفاده می شود. اگر متغیر hwnd را برابر صفر قرار دهید باید این متغیر را نیز با مقدار صفر مقدار دهی کنید
uElapse : این متغیر فاصله زمانی را که تایمر باید اجرا شود بیان می کند و در واقع به منزلهء Interval تایمر مورد نظر است
lpTimerFunc : در این متغیر باید آدرس تابعی را قرار دهید که قرار است تایمر مورد نظر در آن اجرا شود ( باید از تابع AddressOf استفاده کنید )

[majjjj]

TransParentBlt



Private Declare Function TransParentBlt Lib "msimg32.dll" (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 srcX As Long, ByVal srcY As Long, ByVal srcnWidth As Long, ByVal srcnHeight As Long, ByVal CrTransparent As Long) As Long

این تابع از یک کنترل گرافیکی عکس می گیرد ، آنرا تغییر اندازه می دهد ، یک رنگ دلخواه از آن را حذف می کند و آنرا ار یک کنترل گرافیکی دیگر قرار می دهد
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hdc : هندل بافت گرافیکی کنترلی که باید عکس ساخته شده در آن قرار گیرد
nWidth : نقطه شروع ترسیم عکس در راستای افق
nHeight : نقطه شروع ترسیم عکس در راستای عمود
nWidth : عرض تصویر
nHeight : طول تصویر
hSrcDC : هندل بافت گرافیکی کنترلی که باید از آن عکس گرفته شود
srcX : نقطه شروع ترسیم عکس در راستای افق
srcY : نقطه شروع ترسیم عکس در راستای عمود
srcnWidth : عرض عکس
srcnHeight : طول عکس
CrTransparent : رنگی به باید حذف شود

[majjjj]

URLDowlLoadToFile



Private Declare Function URLDowlLoadToFile LibA "url.dll" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

از این تابع برای یک صفحه اینترنتی روی کامپیوتر محلی استفاده می شود
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
pCaller : مقدار این متغیر را برابر صفر قرار دهید
szURL : آدرس اینترنتی مورد نظر
szFileName : محل و نامی کا فایل باید در آن ذخیره شود
dwReserved : مقدار این متغیر را برابر صفر قرار دهید
lpfnCB : مقدار این متغیر را برابر صفر قرار دهید

[majjjj]

VerifyScreenSavePwd



Private Declare Function VerifyScreenSavePwd Lib "password.cpl" (ByVal hwnd As Long) As Long

این تابع پنجره دریافت کلمه عبور محافظ صفحه نمایش را نشان می دهد
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hwnd : هندل پنجره ای که تابع تحت آن اجرا می شود

[majjjj]

WindowFromPoint



Private Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

این تابع هندل پنجره موجود در یک نقطه مشخص از دسکتاپ را به دست می آورد
اگر تابع با خطایی مواجه شود مقدار بازگشتی صفر و در غیر اینصورت مقدار بازگشتی هندل پنجره موجود در نقطه مورد نظر خواهد بود
xPoint : عرض نقطه مورد نظر
yPoint : طول نقطه مورد نظر

[majjjj]

خدا رو شکر دوست داشتم تعداد بیشتری بگذارم اما تصمیمم عوض شد دوستان اگه نواقصی داره به بزرگواری خودشون ببخشن

[majjjj]

دیروز داشتم کتابهای api خودم رو دنبال یک مطلب میگشتم یادم به این تایپیک افتاد گفتم بد نیست هر از گاهی هم یک رونقی به اینجا بدم دوستان هم اگه چیزی داشتن که بدرد بقیه بخوره اینجا بذارن بقیه هم استفاده کنن

[majjjj]

Private Declare Function PaintDesktop Lib "user32.dll" (ByVal hdc As Long) As Long
این تابع یک تصویر از دسکتاپ ویندوز رو روی یک بافت گرافیکی نشون میده
این هم یک نمونه


'This project needs:
'- two picture boxes
'- a button
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Declare Function PaintDesktop Lib "user32" (ByVal hdc 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 GetBkColor Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, lpPoint As POINTAPI) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Const ScrCopy = &HCC0020
Const Yellow = &HFFFF&
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Cnt1 As Byte, Cnt2 As Byte, Point As POINTAPI
'Set the graphic mode to persistent
Me.AutoRedraw = True
'API uses pixels
Me.ScaleMode = vbPixels
Picture1.ScaleMode = vbPixels
Picture2.ScaleMode = vbPixels
'No borders
Picture1.BorderStyle = 0: Picture2.BorderStyle = 0
'Set the button's caption
Command1.Caption = "Paint && Stretch"
'Set the graphic mode to 'non persistent'
Picture1.AutoRedraw = False: Picture2.AutoRedraw = False
For Cnt1 = 0 To 100 Step 3
For Cnt2 = 0 To 100 Step 3
'Set the start-point's coِrdinates
Point.X = Cnt1: Point.Y = Cnt2
'Move the active point
MoveToEx Me.hdc, Cnt1, Cnt2, Point
'Draw a line from the active point to the given point
LineTo Me.hdc, 200, 200
Next Cnt2
Next Cnt1
For Cnt1 = 0 To 100 Step 5
For Cnt2 = 0 To 100 Step 5
'Draw a pixel
SetPixel Me.hdc, Cnt1, Cnt2, Yellow
Next Cnt2
Next Cnt1
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim XX As Long, YY As Long, A As Long
XX = X: YY = Y
'Set the picturebox' backcolor
Picture2.BackColor = GetPixel(Picture1.hdc, XX, YY)
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Dim XX As Long, YY As Long, A As Long
XX = X: YY = Y
'Set the picturebox' backcolor
Picture2.BackColor = GetPixel(Picture1.hdc, XX, YY)
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim XX As Long, YY As Long, A As Long
XX = X: YY = Y
'Set the picturebox' backcolor
Picture2.BackColor = GetPixel(Picture1.hdc, XX, YY)
End Sub
Private Sub Command1_Click()
'Set the width and height
Picture2.Width = 100: Picture2.Height = 100
Picture1.Width = 50: Picture1.Height = 50
'No pictures
Picture1.Picture = LoadPicture("")
DoEvents
Copy the desktop to our picturebox
PaintDesktop Picture1.hdc
'Stretch the picture
StretchBlt Picture2.hdc, 0, 0, 100, 100, Picture1.hdc, 0, 0, 50, 50, ScrCopy
End Sub

[majjjj]

این هم نمونه ساده از همون کدبالا

Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long
Private Sub Command1_Click()
PaintDesktop Me.hdc
End Sub