تغيير راست كليك و چپ كليك ماوس

براي اين كار تابع api زیر را در قسمت فرم کد در ویژوال بیسیک می نویسیم

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

  حال دو دکمه بر روی فرم ایجاد کرده و کدهای زیر را برای هر دکمه می نویسیم

Private Sub Command1_Click()
 SwapMouseButton 1
End Sub

 

Private Sub Command2_Click()
 SwapMouseButton 0
End Sub

روش دسترسی به نام و تعریف ومتغیر های توابع api

 

براي استفاده از توابع API در ويژوال بيسيك مي توان از ابزار API VIEWER استفاده كرد.

پس از نصب ويژوال بيسيك به مسير زير رجوع ميكنيم.

start menu -->allprograms-->microsoft visual studio 6-->microsoft visual studio 6 tools-->api text viewer

حال از منوي فايل load text file انتخاب ميكنيم.درپنجره اي كه باز مي شود فايلwin32api.txt را باز ميكنيم.

فايل win32api.txt در مسير microsoft visual studio-->common-->tools-->winapi قرار دارد.

در قسمت api type گزينه declares را انتخاب مي كنيم.

در قسمت available items نام تمام توابع api را مشاهده مي كنيد.روي نام هر تابع كه دابل كليك كنيد ميتوانيد نحوه فراخواني و پارامترهاي ورودي و خروجي تابع را در قسمت selected item مشاهده نماييد.

دكمه كپي به منظور كپي كردن تابع انتخابي در قسمت selected item در كليپ برد مي باشد

نمایش دیالوگ ShutDownDialog ويندوز

براي اين كار در ويژوال بيسيك يك فرم ايجاد كرده و تابع api زیر را در قسمت کد نویسی کپی می کنیم

Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal Reserved As Long) As Long

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

SHShutDownDialog ByVal 0&

مخفی کردن کرسر ماوس

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

ابتدا دو دکمه به نام های command 1 , command 2 روی فرم ایجاد می کنیم. سپس در قسمت فرم کد کد های زیر را وارد می کنیم.

private Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
 
  ShowCursor 0   'Hide
  Command2.SetFocus
  Me.Print "press enter key"
End Sub

Private Sub Command2_Click()
ShowCursor 1   'Show
End Sub
  

محدود كردن دامنه حركت ماوس

 براي اين كار مي توان از تابع api در ويژوال بيسيك به صورت زير استفاده كرد

ابتدا چهار text box بر روي فرم ايجاد ميكنيم سپس دو command button به نامهاي command1وcommand2 بر روي فرم ايجاد مي كنيم.حال كد زير را در قسمت فرم كد در ويژوال بيسيك وارد مي كنيم

Private Type RECT

left As Long

top As Long

right As Long

bottom As Long

End Type

Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)

()Private Sub Command1_Click

Dim R As RECT

(R.left = Val(Text1.Text

R.top = Val(Text2.Text)

R.right = Val(Text3.Text)

R.bottom = Val(Text4.Text)

ClipCursor R

Command2.SetFocus

End Sub

()Private Sub Command2_Click

ClipCursor ByVal 0&

End Sub