كار با توابع موس و كي برد

سلام استادان گرامي
اگرميشه من ميخواستم كهيك فرم داشته باشم و موس نتونه از فرم من خارج بشه و همينتور دكمه هاي
ويندوز (استارت)و alt+ctrl+delوalt+f4 كار نكنه
ممنون ميشم مرا در اين كار ياري كنيد

سلام دوست عزيز يكي قبلا گزاشتم بگرد ي پيدا مي كني و اينكه اگر پيدا نكردي خودم برات ميزارم

من پيدا نكردم اگر ميشه لينك تاپيك رو بديد


اگر سوكت نويسي بلد هستيد يك سر هم به پست سوكت نويسي بزنيد

با تشكر از تكنيك برتر

کد:

---

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 Timer1_Timer()
Dim lngX As Long
Dim lngY As Long
Dim NewRect As RECT
lngX = Screen.TwipsPerPixelX
lngY = Screen.TwipsPerPixelY
With NewRect
    .left = Me.left / lngX
    .top = Me.top / lngY
    .right = .left + Me.Width / lngX
    .bottom = .top + Me.Height / lngY
End With
ClipCursor NewRect
End Sub

---

برای کار نکردن کلیدها از توابع getkeystate و setkeyboardstate استفاده کن

اگر ميشه يك مثال بزنيد ممنون ميشم

كسي نبود جواب بده

کد:

---

This example tricks Windows 95 and Windows 98 into thinking that a screen saver is running - which also disables Ctrl+Alt+Delete and Alt+Tab. Note that this does NOT work on Windows NT

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Const SPI_SCREENSAVERRUNNING = 97

Private Sub Command1_Click()
Dim ret As Integer
Dim pOld As Boolean
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
End Sub

Private Sub Command2_Click()
Dim ret As Integer
Dim pOld As Boolean
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End Sub

Private Sub Form_Load()
Command1.Caption = "Disabled"
Command2.Caption = "Enabled"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Command2_Click
End Sub

---

غیر فعال کردن کلید Start :

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اگر ميشه يك مثال بزنيد كه هر وقت روي يك شي روي فرم راست كليك كرديم فوكوس روي شي بياد

نقل قول:

---

نوشته شده توسط shirazhaker [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اگر ميشه يك مثال بزنيد كه هر وقت روي يك شي روي فرم راست كليك كرديم فوكوس روي شي بياد

---

کد:

---

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then Command1.SetFocus
End Sub

Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then Command2.SetFocus
End Sub

---