PDA

View Full Version : یه سوال ولی یه کوچولو خنده دار.چه جوری از شر صدای بیپ خلاصشم



reham
یک شنبه 10 آبان 1383, 20:15 عصر
سلام من یه برنامه با vb.net نوشتم نمیدونم چرا هر enter رو که میزنم صدای بیپ میاد اعصابمو ریخته بهم نمیدونم چه جوری از شرش خلاص شم کمکککککککککک

sh
دوشنبه 11 آبان 1383, 17:32 عصر
e.Handled = True

reham
دوشنبه 11 آبان 1383, 18:17 عصر
از راهنمایی ممنون باید این کد رو تو رویداد کلیک بزارم؟

sh
دوشنبه 11 آبان 1383, 20:11 عصر
توی رویداد Keypress

reham
دوشنبه 11 آبان 1383, 20:43 عصر
خیلی ممنون :wink:

reham
چهارشنبه 13 آبان 1383, 23:58 عصر
این کار رو انجام دادم .
من برنامه هامو رو win2000 مینویسم مشکل حل شد ولی رو win xp هنوز همون صدای وحشتناک و اعصاب خورد کن هست.
کمککککککککککککککککککککککک ککککککککککککککککککککککککک ککککککککککککککککککککککککک ککککککککک :cry:

روح اله معینی زاده
پنج شنبه 14 آبان 1383, 10:58 صبح
شاید این جواد :mrgreen: بده

از داخل کنترل پنل سیستمتون گزینه ... Sounds and Audio رو انتخاب کنید و سپس از برگه ی Sounds و از لیست Program events گزینه Default Beep رو انتخاب کنید. بعد در زیر این لیست یک کومبو به نام Sounds دارید که باید از لیست آن گزینه (None) رو انتخاب کنید و تمام.

همه راه های رفته را با OK ببندید.

با احترام- خدانگهدار

علی ارجمندی
پنج شنبه 14 آبان 1383, 12:19 عصر
با سلام
فکر کنم با این روش از شر صدا راحت شی . معادل سازی کلید 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

با تشکر

reham
جمعه 15 آبان 1383, 10:13 صبح
جنای اقای کاربر برنزیrohollah بابا تو دیگه کی هستی.
حال کردم به همین اسونییییییییییییی بود.
اقای ارجمندی عزیز از کمک شما هم بسیار ممنون حتما امتحانش میکنم.چون خیلی به استفاده enter به جای tab نیاز دارم
از همگی ممنونم.
تا یادم نرفته اقای sh یادم نره از شما هم خیلی ممنون.
:flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower:

reham
چهارشنبه 04 آذر 1383, 01:43 صبح
ببخشید شرمنده دوباره مشکل برگشت سر جاش رو win xp خودم مشکل حل شد ولی رو بقیه win ها هنوز سر جاشه دیگه دارم از دست این صدا روانی میشم کمککککککککککککککککککککککک کک

روح اله معینی زاده
چهارشنبه 04 آذر 1383, 08:08 صبح
با سلام و خسته نباشی

همون طور که جواب دادم (Ruhollah=روح اله معینی زاده)، باید توی هر ویندوزی که برنامه‌ات را نصب می کنی، به همان مسیر رفته و صدا را غیر فعال کنی. همین!

با احترام- خدانگهدار

reham
پنج شنبه 05 آذر 1383, 00:04 صبح
این کارو کردم ولی غیر فعال نمیشه

روح اله معینی زاده
پنج شنبه 05 آذر 1383, 09:02 صبح
با سلام خدمت دوست گرامی

به صدا خوب دقت کن و در اون لیست همه‌ی اونایی رو که صداشون با صدای مزاحم برنامه شما یکی است را غیر فعال (None) کن.

ممکنه که اون صدا روی Default Beep تنظیم نشده باشه. ::نوشتن:: :موفق:

با احترام- خدانگهدار

reham
پنج شنبه 05 آذر 1383, 22:59 عصر
میدونید مشکل چی بود multimedia audio controler نصب نشده بود .
از همگی ممنونم. :thnx:

rainstorm
شنبه 14 آبان 1384, 10:44 صبح
با سلام به تمامی بر و بچ سایت برنامه نویس
من یک برنامه با دلفی نوشتم و دقیقا همین مشکل رو داره تا حالا هم نتونستم راه حلی براش پیدا کنم ولی راه حلی که آقای «روح اله معینی زاده» ارائه دادند به نظر من راه حلی غیر منطقی است چرا که برای دیگر برنامه های ویندوز ایجاد مشکل می کنه . برای حل این مشکل باید به سیستم عامل بفهمانیم که زدن کلید Enter بر روی شی مورد نظر عملی مجاز است. حالا اینکه چه جوری اینو به سیستم عامل بفهمانم مشکل منه که وقتی حلش کردم بهتون میگم
همیشه باید مشکل رو حل کرد نه اینکه اونو ماست مالی کرد
باتشکر Rainstorm

behnam5300664
یک شنبه 15 آبان 1384, 16:44 عصر
ببین بلند گو تو خاموش کن.............!!!!!!!!

ali_firouz_ir
یک شنبه 15 آبان 1384, 18:55 عصر
Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 then
'do whatever you want here

KeyAscii = 0
End If

End Sub

kablayi
دوشنبه 16 آبان 1384, 01:54 صبح
بهترین راه اینکه کارت صداتو UnInstall کنی و از دست این صدای مزاحم راحت بشی ....

البته میتونی کامپیوترتو هم بفروشی و ... :قهقهه: :چشمک:

asilverisis
شنبه 21 آبان 1384, 00:29 صبح
Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 then
'do whatever you want here

KeyAscii = 0
End If

End Sub

سلام


من فکر کنم این چیزی که شما نوشتید
VB6 باشه



لطفا در دات نت هم تست کنید

rainstorm
دوشنبه 23 آبان 1384, 15:58 عصر
با سلام خدمت شما
من این مشکلو بالاخره توی دلفی حلش کردم


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

asilverisis
دوشنبه 23 آبان 1384, 22:07 عصر
سلام
ممنون دوست عزیز
نه این کد بدرد VB.net نمی خوره
مهمترین قسمت کد شما Key:=#0 که این کار توی VB.net به دلیل ReadOnly بودن Key که به صورت

e.KeyChar یا e.KeyCode استفاده می شه قابل استفاده نیست

من فکر می کنم یعضی از دوستان و اساتید این بخش کد مورد نظر رو دارن
چون من این کد رو قبلا یه جایی دیدم و داشتم ولی هر چی می گردم اونو پیدا نمی کنم
حالا چرا نمی ذارن و اجازه میدن این بحث این قدر طولانی بشه نمی دونم:عصبانی:

asilverisis
دوشنبه 23 آبان 1384, 23:20 عصر
سلام
بفرمایید اینم جواب

به دو صورت می توانید کار کنید

من مثال رو در مورد رفتن به کنترل بعدی با زدن 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



امیدوارم بدردتون بخوره

موفق باشید

غلامرضا شریفی
جمعه 13 مهر 1386, 21:28 عصر
جهت استفاده در 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