سوال: از کار انداختن کلیدهای سیستمی روی فرم [بایگانی]

kesler

دوشنبه 19 مهر 1389, 00:41 صبح

سلام دوستان
چطوری میشه کلیدهایی مثل Down,Up,Tab و یا Enter رو در یک فرم غیرفعال کرد یعنی اینکه وقتی کلید فلش بالا زده میشه به کنترل قبلی فرم نره یا کلید فلش پایین زده میشه به کنترل بعدی نره یا همینطور بقیه کلیدهایی که گفتم
ممنون میشم از راهنمایی تون

bita_ziba77

دوشنبه 19 مهر 1389, 08:39 صبح

با سلام
همچنين در ادامه سوال دوستمان آيا مي شود گزينه Copy و Paste را در فرمي غير فعال كرد (حتي به صورت Ctrl+c, Ctrl+v
يعني كاربر به هيچ عنوان نتواند اطلاعات را در فيلد جديد از طريق كپي كردن فيلدهاي قبلي وارد نمايد؟

با تشكر

amirzazadeh

دوشنبه 19 مهر 1389, 12:14 عصر

سلام دوستان
چطوری میشه کلیدهایی مثل Down,Up,Tab و یا Enter رو در یک فرم غیرفعال کرد یعنی اینکه وقتی کلید فلش بالا زده میشه به کنترل قبلی فرم نره یا کلید فلش پایین زده میشه به کنترل بعدی نره یا همینطور بقیه کلیدهایی که گفتم
ممنون میشم از راهنمایی تون
سلام
از اين نمونه كد كمك بگيريد:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 33, 34
KeyCode = 0
End Select
End Sub كدهاي 33 و34 كليدهاي page up ,page down هستند.

bita_ziba77

دوشنبه 19 مهر 1389, 12:19 عصر

جناب آقاي اميرزاده
با سلام
لطفا در رابطه با غير فعال كردن گزينه Copy و Paste در فرم توضيح دهيد. حتي به صورت Ctrl+c, Ctrl+v

با تشكر

RESMAILY

دوشنبه 19 مهر 1389, 12:24 عصر

به نام خدا
با سلام. به نظر بنده راه حل كلي هم «بخصوص در زمينه آنچه كه اميرزازاده نوشته اند» استفاده از ماكروي Autokeysمي باشد. به اين ترتيب كه براي كليه كليد هاي مورد نظر در فرم مربوطه (يا كل برنامه) يك آكشن Beep تعريف نماييد. البته در مورد Help آكسس ظاهرا استثنايي وجود دارد كه هركار بكنيم بالاخره به نوعي قابل دسترسي است.

kesler

دوشنبه 19 مهر 1389, 18:00 عصر

به نام خدا
با سلام. به نظر بنده راه حل كلي هم «بخصوص در زمينه آنچه كه اميرزازاده نوشته اند» استفاده از ماكروي Autokeysمي باشد. به اين ترتيب كه براي كليه كليد هاي مورد نظر در فرم مربوطه (يا كل برنامه) يك آكشن Beep تعريف نماييد. البته در مورد Help آكسس ظاهرا استثنايي وجود دارد كه هركار بكنيم بالاخره به نوعي قابل دسترسي است.

با تشکر از همه دوستان این ماکروی Autokeys رو کجا میشه گیر آورد؟

sajjad_kochekian

دوشنبه 19 مهر 1389, 22:05 عصر

با تشکر از همه دوستان این ماکروی Autokeys رو کجا میشه گیر آورد؟

اين ماكرو را بايد خودت بسازي

و كد و براي هر كليد بايد يك رديف جدا ايجاد كرد.
براي ctrl+v بايد اين كد را بنويسي و بجاي اكشن آن بنويسي : Beep

^{v}

amirzazadeh

سه شنبه 20 مهر 1389, 11:50 صبح

جناب آقاي اميرزاده
با سلام
لطفا در رابطه با غير فعال كردن گزينه Copy و Paste در فرم توضيح دهيد. حتي به صورت Ctrl+c, Ctrl+v
با تشكر
سلام
از اين كد استفاده كنيد:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 Then
Select Case KeyCode
Case 67
KeyCode = 0
Case 86
KeyCode = 0
End Select
End If
End Subبراي غير فعال كردن copy و paste از طريق راست كليك هم ميتونيد منوي شورتكات فرم مربوطه رو حذف كنيد
......................
موفق باشيد

bita_ziba77

سه شنبه 20 مهر 1389, 12:41 عصر

سلام
از اين كد استفاده كنيد:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 Then
Select Case KeyCode
Case 67
KeyCode = 0
Case 86
KeyCode = 0
End Select
End If
End Subبراي غير فعال كردن copy و paste از طريق راست كليك هم ميتونيد منوي شورتكات فرم مربوطه رو حذف كنيد
......................
موفق باشيد

با سلام
و تشكر از شما
ولي من كد را اجرا مي كنم همچنان امكان كپي كردن وجود دارد.

با تشكر

amirzazadeh

سه شنبه 20 مهر 1389, 13:31 عصر

با سلام
و تشكر از شما
ولي من كد را اجرا مي كنم همچنان امكان كپي كردن وجود دارد.

با تشكر
سلام
لطفا در نماي طراحي فرمتون خصوصيت key preview به yes تغيير بديد .
......................
موفق باشيد