ونایی که vb تحت ویندوز کار میکنن این دستورات براشون کاربرد داره.

21تابع API در VisualBasic
API اول درمورد تغییر برچسب درایو هاست _1
یعنی شما می تونید با این تابع برچسب درایوهارو عوض کنید.
تعریف تابع توی یک ماژول.
Public Declare Function SetVolumeLabelA Lib "kernel32.dll" (ByVal lpRootName As String, ByVal lpVolumeName As String) As Long
lpRootName : مسیر درایو ریشه مثل "C:" میشه.
lpVolumeName : برچسب جدید درایو مثل "VisualBasic"
نحوه استفاده تو برنامه :شما اول یک متغییر از نوع Long البته با توجه به نوع خروجی تابع تعریف می کنید بعد به صورت زیر استفاده می کنید :
Dim A As Long
()Private Sub Commad1_Click
("A = SetVolumeLabelA("C:", "VisualBasic
End Sub
>> اگه تابع درست کار کند مقدار A عددی غیر صفر ، در غیر این صورت A=0 خواهد بود.
: API دوم در مورد محاسبه زمان سپری شده از روشن شدن سیستم شماست _2
. البته بر حسب میلی ثانیه.
--> تعریف تابع توی یک ماژول :
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
این تابع فقط یک خروجی دارد که زمان سپری شده سیستم است:
نحوه استفاده در برنامه : مانند تابع قبل یه منغییر از نوع Long تعریف میکنید و به صورت زیر استفاده می کنید :
Dim A as Long
()Private Sub Command1_Click
A = timeGetTime
Text1.Text = A
End Sub
>>اگر تابع درست کار کند A برابر با زمان سپری شده و در غیر این صورت A=0 خواهد بود.
: سومی درمورد کپی گرفتن از یک فایله _3.
تعریف تابع توی یک ماژول :
Public Declare Function CopyFileA Lib "kernel32.dll" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
lpExistingFileName : آدرس فایل مبدا مثل "C:VB6.txt"
lpNewFileName : آدرس فایل مقصد مثل "D:VB6.txt"
bFailIfExist : این متغیر مشخص می کند در صورت وجود فایل مقصد عملیات کپی ادامه یابد یا نه. اگر صفر باشد انجام میشود و اگر یک باشد انجام نمیشود .
نحوه استفاده در برنامه : مانند تابع قبل یه منغییر از نوع Long تعریف میکنید و به صورت زیر استفاده می کنید :
Dim A as Long
()Private Sub Command1_Click
(A=CopyFileA( "C:VB6.txt","D:VB6.txt",0
End Sub
>> اگه تابع درست کار کند مقدار A عددی غیر صفر ، در غیر این صورت A=0 خواهد بود.البته میتونید نام فایل رو هم توی مقصد عوض کنید.
چهارمی درمورد انتقال یک فایله_4
. این تابع برای انتقال یک فایل یا پوشه از محلی به محل دیگر مورد استفاده قرار می گیرد ( توانایی تغییر نام فایل ها و پوشه ها را نیز دارد ).
تعریف تابع توی یک ماژول :
Private Declare Function MoveFile Lib "kernel32.dll" (ByVal lpExistingName As String, ByVal lpNewFileName As String) As Long
lpExistingName : مسیر فایل مبدا
lpNewFileName : مسیر فایل مقصد( اگر نام فایل متفاوت باشد درحین انتقال نام فایل نیز تغییر خواهدکرد )
نحوه استفاده در برنامه : مانند تابع قبل یه منغییر از نوع Long تعریف میکنید و به صورت زیر استفاده می کنید :
Dim A as Long
()Private Sub Command1_Click
("A=MoveFile( "C:VB6.txt","D:VB6.txt
End Sub
>> اگه تابع درست کار کند مقدار A عددی غیر صفر ، در غیر این صورت A=0 خواهد بود.
برای باز و بسته کردن CDROM_5
. این تابع از دستور متنی استفاده میکنه.با این تابع کارهای زیادی میشه کرد.
باز هم مثل همیشه کد تابع رو توی یه ماژول تعریف کنید :
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
برای باز شدن CDROM این کد رو بنویسید:
(&)Private Sub OpenCD_Click
&mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0
End Sub
برای بسته شدن CDROM هم کد زیر رو بنویسید :
()Private Sub CloseCD_Click
&mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0
End Sub
همینطور که می بینید این تابع از دستورات ساده چند رسانه ای برای باز کردن سی دی رام استفاده می کنه.
بیشتر:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]