سلام من یه برنامه با vb.net نوشتم نمیدونم چرا هر enter رو که میزنم صدای بیپ میاد اعصابمو ریخته بهم نمیدونم چه جوری از شرش خلاص شم کمکککککککککک
سلام من یه برنامه با vb.net نوشتم نمیدونم چرا هر enter رو که میزنم صدای بیپ میاد اعصابمو ریخته بهم نمیدونم چه جوری از شرش خلاص شم کمکککککککککک
e.Handled = True
از راهنمایی ممنون باید این کد رو تو رویداد کلیک بزارم؟
توی رویداد Keypress
خیلی ممنون :wink:
این کار رو انجام دادم .
من برنامه هامو رو win2000 مینویسم مشکل حل شد ولی رو win xp هنوز همون صدای وحشتناک و اعصاب خورد کن هست.
کمککککککککککککککککککککککک ککککککککککککککککککککککککک ککککککککککککککککککککککککک ککککککککک :cry:
شاید این جواد :mrgreen: بده
از داخل کنترل پنل سیستمتون گزینه ... Sounds and Audio رو انتخاب کنید و سپس از برگه ی Sounds و از لیست Program events گزینه Default Beep رو انتخاب کنید. بعد در زیر این لیست یک کومبو به نام Sounds دارید که باید از لیست آن گزینه (None) رو انتخاب کنید و تمام.
همه راه های رفته را با OK ببندید.
با احترام- خدانگهدار
با سلام
فکر کنم با این روش از شر صدا راحت شی . معادل سازی کلید enter با tab البته
باید یه شی edit برای خودت بسازی
Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, keyData As System.Windows.Forms.Keys) As Boolean
If msg.WParam.ToInt32() = CInt(Keys.Enter) Then
SendKeys.Send("{Tab}")
Return True
End If
Return MyBase.ProcessCmdKey(msg, keyData)
End Function 'ProcessCmdKey
با تشکر
جنای اقای کاربر برنزیrohollah بابا تو دیگه کی هستی.
حال کردم به همین اسونییییییییییییی بود.
اقای ارجمندی عزیز از کمک شما هم بسیار ممنون حتما امتحانش میکنم.چون خیلی به استفاده enter به جای tab نیاز دارم
از همگی ممنونم.
تا یادم نرفته اقای sh یادم نره از شما هم خیلی ممنون.
:flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower:
ببخشید شرمنده دوباره مشکل برگشت سر جاش رو win xp خودم مشکل حل شد ولی رو بقیه win ها هنوز سر جاشه دیگه دارم از دست این صدا روانی میشم کمککککککککککککککککککککککک کک
با سلام و خسته نباشی
همون طور که جواب دادم (Ruhollah=روح اله معینی زاده)، باید توی هر ویندوزی که برنامهات را نصب می کنی، به همان مسیر رفته و صدا را غیر فعال کنی. همین!
با احترام- خدانگهدار
این کارو کردم ولی غیر فعال نمیشه
با سلام خدمت دوست گرامی
به صدا خوب دقت کن و در اون لیست همهی اونایی رو که صداشون با صدای مزاحم برنامه شما یکی است را غیر فعال (None) کن.
ممکنه که اون صدا روی Default Beep تنظیم نشده باشه. ::نوشتن:: :موفق:
با احترام- خدانگهدار
میدونید مشکل چی بود multimedia audio controler نصب نشده بود .
از همگی ممنونم. :thnx:
با سلام به تمامی بر و بچ سایت برنامه نویس
من یک برنامه با دلفی نوشتم و دقیقا همین مشکل رو داره تا حالا هم نتونستم راه حلی براش پیدا کنم ولی راه حلی که آقای «روح اله معینی زاده» ارائه دادند به نظر من راه حلی غیر منطقی است چرا که برای دیگر برنامه های ویندوز ایجاد مشکل می کنه . برای حل این مشکل باید به سیستم عامل بفهمانیم که زدن کلید Enter بر روی شی مورد نظر عملی مجاز است. حالا اینکه چه جوری اینو به سیستم عامل بفهمانم مشکل منه که وقتی حلش کردم بهتون میگم
همیشه باید مشکل رو حل کرد نه اینکه اونو ماست مالی کرد
باتشکر Rainstorm
ببین بلند گو تو خاموش کن.............!!!!!!!!
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 then
'do whatever you want here
KeyAscii = 0
End If
End Sub
بهترین راه اینکه کارت صداتو UnInstall کنی و از دست این صدای مزاحم راحت بشی ....
البته میتونی کامپیوترتو هم بفروشی و ...
آخرین ویرایش به وسیله kablayi : دوشنبه 16 آبان 1384 در 02:11 صبح
نوشته شده توسط ali_firouz_irسلام
من فکر کنم این چیزی که شما نوشتید
VB6 باشه
لطفا در دات نت هم تست کنید
با سلام خدمت شما
من این مشکلو بالاخره توی دلفی حلش کردم
procedure TInputDialogForm.PasswordEditKeyPress(Sender: TObject;
var Key: Char);
begin
if Key = #13 then
begin
OkPasswordButton.Click;
Key := #0;
end;
end;
شایان ذکر است که InputDialogForm نام فرم و OkPasswordButton نام یک Button است که در برنامه من، رویداد OnClick آن، صحت پسورد ورودی را چک میکند (این نامها کاملا اختیاری می باشند) همچنین
Key := #0;
از ایجاد صدای beep جلوگیری میکنه
درسته که کدهای فوق برای دلفیه ولی، نوشتمش شاید به درد بچههای VB هم بخوره
با تشکر rainstorm
آخرین ویرایش به وسیله rainstorm : دوشنبه 23 آبان 1384 در 16:25 عصر
سلام
ممنون دوست عزیز
نه این کد بدرد VB.net نمی خوره
مهمترین قسمت کد شما Key:=#0 که این کار توی VB.net به دلیل ReadOnly بودن Key که به صورت
e.KeyChar یا e.KeyCode استفاده می شه قابل استفاده نیست
من فکر می کنم یعضی از دوستان و اساتید این بخش کد مورد نظر رو دارن
چون من این کد رو قبلا یه جایی دیدم و داشتم ولی هر چی می گردم اونو پیدا نمی کنم
حالا چرا نمی ذارن و اجازه میدن این بحث این قدر طولانی بشه نمی دونم
سلام
بفرمایید اینم جواب
به دو صورت می توانید کار کنید
من مثال رو در مورد رفتن به کنترل بعدی با زدن Enter بیان می کنم خودتون تعمیم بدید
روش اول :
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
If Asc(e.KeyChar) = Keys.Enter Then
ProcessTabKey(True)
e.Handled = True
End If
End Sub
روش دوم :
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
e.Handled = True
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Enter Then
ProcessTabKey(True)
End If
End Sub
امیدوارم بدردتون بخوره
موفق باشید
جهت استفاده در vb.net و ویندوزxp
PrivateSub TextBox2_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
IfMe.TextBox2.Text.Length > 0 And e.KeyChar = Microsoft.VisualBasic.Chr(13) Then
e.Handled = True
EndIf
EndSub