..:::تایپک جامع توابع ویژوال بیسیک:::..

اين تابع زبان صفحه کليد را تغيير مي دهد.

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

 

HKL : اين آرگومان تعيين مي کند بايد زبان قبلي بر روي صفحه کليد اعمال شود با زبان بعدي

KL_NEXT : زبان بعدي را روي صفحه کليد اعمال مي کند

KL_PREV : زبان قبلي را روي صفحه کليد اعمال مي کند

 

Flags : مقدار اين متغير را برابر &0 قرار دهيد

کد PHP:

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  

اين تابع ماوس و صفحه کليد را قفل مي کند. 

براي آزادسازي صفحه کليد شما بايد در برنامه خود تمهيداتي بينديشيد چون کاربر توانايي برگرداندن تغييرات را ندارد. براي مثال مي توانيد يک تايمر داشته باشيد تا بعد از مدتي معلوم ماوس و صفحه کليد دوباره آزاد شود.

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

 

fBlock : اگر مقدار اين آرگومان True باشد ماوس و صفحه کليد قفل مي شود ، و اگر مقدار آن False باشد ماوس و صفحه کليد آزاد مي شود

کد PHP:

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

اين تابع زبان جاري صفحه کليد را بر مي گرداند

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

 

pwszKLID : اين متغير که توسط تابع مقدار دهي مي شود يک رشتهء 9 کاراکتري است که کد زبان کنوني صفحه کليد است

کد PHP:

Private Declare Function GetKeyboardLayoutName Lib "user32.dll" (ByVal pwszKLID As String) As Long  

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

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

کد PHP:

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

اين تابع يک صوت کرتاه (Beep) را از کارت صوتي پخش مي کند

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

 

dwFreq : فرکانس صوت (در ويندوز هاي 95 و 98 و ME تاثيري ندارد)

dwDuration : مدت زمان پخش صوت بر حسب ميلي ثانيه (در ويندوز هاي 95 و 98 و ME تاثيري ندارد)

کد PHP:

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

اين تابع براي پخش اصوات از پيش تعيين شده (Beep ) ويندوز مورد استفاده قرار مي گيرد.

 

wType : نوع صوتي را که قرار است پخش شود مشخص مي کند ( به ثابت ها توجه کنيد )

کد PHP:

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  

اين تابع يک فايل Wav را پخش مي کند اگر فايل صوتي مزبور در مسير داده شده موجود نباشد آنگاه تابع صداي Beep را پخش خواهد کرد

 

lpszeName : نام و مسير فايل صوتي

Reserved : مقدار اين متغير را برابر &0 قرار دهيد

dwFlags : نوع و روش پخش فايل صوتي

کد PHP:

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

اين تابع يک فونت را به مجموعه فونت هاي ويندوز اضافه مي کند.

اگر تابع مقدار صفر را برگرداند به منزلهء عدم موفقيت تابع است در غير اينصورت عمليات افزودن فونت موفقيت آميز بوده است.

 

lpFileName : اين متغير رشته اي به فايل فونت اشاره مي کند

کد PHP:

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

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

 

hDC : هندل بافت گرافيکي پنجره اي که تابع بايد تحت آن اجرا شود

lpsz : خانواده فونت مورد نظر که اعضاي آن بايد جمع آوري شود. اين متغير به vbNul ختم مي شود (براي اينکه ليست تمام فونت ها را به دست آوريد از vbNullString استفاده کنيد )

lpFontEnumProc : تابعي که بايد ليست فونت هاي جمع شده به آن ارسال شود. از کليد واژه AddressOf براي اعلام محل تابع در حافظه استفاده کنيد. (مثال AddressOf EnumFontProc). تابع بايد مشابه تابعي که در کد نوشته شده است باشد. تازماني که تابع مقدار True را برگرداند ليست کردن فونت ها ادامه خواهد داشت

lParam : اين متغير را به دلخواه خود مي توانيد مقدار دهي کنيد. اين متغير عيناً به تابع EnumFontProc ارسال خواهد شد

کد PHP:

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

 

Function EnumFontProc(ByVal lplf As Long, ByVal lptm As Long, ByVal dwType As Long, ByVal lpData As Long) As Long 

   ' Put your code here 

   EnumFontProc = 1 

End Function  

اين تابع يک فونت را به مجموعه فونت هاي ويندوز اضافه مي کند.

اگر تابع مقدار صفر را برگرداند به منزلهء عدم موفقيت تابع است در غير اينصورت عمليات افزودن فونت موفقيت آميز بوده است.

 

lpFileName : اين متغير رشته اي به فايل فونت اشاره مي کند

کد PHP:

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

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

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

کد PHP:

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

اين تابع ميزان منابع آزاد سيستمي را بر مي گرداند

اگر تابع با خطايي مواجه شود مقدار بازگشتي صفر و در غير اينصورت مقدار بازگشتي ميزان آزاد منابع مورد نظر خواهد بود

 

lWhat : اين متغير مشخص مي کند تابع بايد ميزان منابع آزاد کدام قسمت را بر گرداند

GFSR_SYSTEMRESOURCES : منابع آزاد سيستمي

GFSR_GDIRESOURCES : منابع آزاد گرافيکي

GFSR_USERRESOURCES : منابع آزاد کاربر

کد PHP:

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  

اين تابع تعداد کنترل هاي مورد استفاده يک پروسه را بر مي گرداند

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

 

hProcess : يک اشاره گر از پروسه مورد نظر (اين اشاره گر را با استفاده از توابعي مانند GetCurrentProcess مي توانيد به دست آوريد)

uiFlags : اين متغير مشخص مي کند تابع بايد ميزان منابع آزاد کدام قسمت را بر گرداند

GR_GDIOBJECTS : تعداد کنترل هاي گرافيکي را بر مي گرداند

GR_USEROBJECTS : تعداد کنترل هاي کاربر را بر مي گرداند

کد PHP:

Private Const GR_GDIOBJECTS = 0 

Private Const GR_USEROBJECTS = 1 

 

Private Declare Function GetGuiResources Lib "user32.dll" (ByVal hProcess As Long, ByVal uiFlags As Long) As Long