swap mouse button

همان طور که از اسم این api مشخص هستش برای عوض کردن راست کلیک و چپ کلیک به کار میره.
اول کد اون رو تو general برنامه کپی کنید.

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

کد زیر چپ کلیک و راست کلیک رو عوض میکنه

SwapMouseButton 0

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

swapmousebutton 1

text saver

امروز اموزش برنامه ی text opener رو میذارم .






برای شروع یک تعریف کلی از یک فایل میکنم .






فایل ها از متن ها و حرف ها تشکیل میشن که به چند شیوه میشه اون هارو باز کرد (ما به بررسی شیوه های اصلی میپردازیم).






فایل ها به چند دسته تقسیم میشن . append , binary , input ,output , random






ما فقط کار با output رو یاد میگیریم .






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






برای اینکه یک فایل رو ایجاد کنید اول باید اون رو باز کنید.






حالا یک فرم شبیه فرم زیر درست کنید .

برای دکمه ی سیو کد زیر رو بنویسید .

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

بعد مسیر برنامه رو مشخص میکنیم.

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

بعد هم شماره ی فایل رو که یک شماره یرای خود ویژوال بیسیک است رو ذکر میکنیم.

print #number,text

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

close #number

از دستور بالا برای بستن فایل مورد نطر.

باز و بسته کردن در سی دی رام

خوب کسانی که با api viewr آشنایی دارن اون رو باز کنن .
حالا عبارت mcisendstring رو تایپ کنن و کد مریوط به اون رو کپی کنید .
برنامه ی ما از یک فرم به نام form1 و دو دکمه به نام های command1 , command2 تشکیل شده .
حالا کد زیر رو که قبلا کپی کرده بودید داخل general مربوط به form1 کپی کنید.(نتیجه به شکل زیر خواهد بود)

Private 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

برای command1 کد زیر رو بنویسید.

() private sub command1_click
mcisendstring "set cdaudiodoor open wait",0,0,0
End sub

برای command2 کد زیر رو بنویسید

()Private Sub Command2_Click
mcisendstring "set cdaudiodoor close wait", 0, 0, 0
End sub