View Full Version : یه سوال ولی یه کوچولو خنده دار.چه جوری از شر صدای بیپ خلاصشم
reham
یک شنبه 10 آبان 1383, 21:15 عصر
سلام من یه برنامه با vb.net نوشتم نمیدونم چرا هر enter رو که میزنم صدای بیپ میاد اعصابمو ریخته بهم نمیدونم چه جوری از شرش خلاص شم کمکککککککککک
sh
دوشنبه 11 آبان 1383, 18:32 عصر
e.Handled = True
reham
دوشنبه 11 آبان 1383, 19:17 عصر
از راهنمایی ممنون باید این کد رو تو رویداد کلیک بزارم؟
sh
دوشنبه 11 آبان 1383, 21:11 عصر
توی رویداد Keypress
reham
دوشنبه 11 آبان 1383, 21:43 عصر
خیلی ممنون :wink:
reham
پنج شنبه 14 آبان 1383, 00:58 صبح
این کار رو انجام دادم .
من برنامه هامو رو win2000 مینویسم مشکل حل شد ولی رو win xp هنوز همون صدای وحشتناک و اعصاب خورد کن هست.
کمککککککککککککککککککککککک ککککککککککککککککککککککککک ککککککککککککککککککککککککک ککککککککک :cry:
روح اله معینی زاده
پنج شنبه 14 آبان 1383, 11:58 صبح
شاید این جواد :mrgreen: بده
از داخل کنترل پنل سیستمتون گزینه ... Sounds and Audio رو انتخاب کنید و سپس از برگه ی Sounds و از لیست Program events گزینه Default Beep رو انتخاب کنید. بعد در زیر این لیست یک کومبو به نام Sounds دارید که باید از لیست آن گزینه (None) رو انتخاب کنید و تمام.
همه راه های رفته را با OK ببندید.
با احترام- خدانگهدار
علی ارجمندی
پنج شنبه 14 آبان 1383, 13: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, 11:13 صبح
جنای اقای کاربر برنزیrohollah بابا تو دیگه کی هستی.
حال کردم به همین اسونییییییییییییی بود.
اقای ارجمندی عزیز از کمک شما هم بسیار ممنون حتما امتحانش میکنم.چون خیلی به استفاده enter به جای tab نیاز دارم
از همگی ممنونم.
تا یادم نرفته اقای sh یادم نره از شما هم خیلی ممنون.
:flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower:
reham
چهارشنبه 04 آذر 1383, 02:43 صبح
ببخشید شرمنده دوباره مشکل برگشت سر جاش رو win xp خودم مشکل حل شد ولی رو بقیه win ها هنوز سر جاشه دیگه دارم از دست این صدا روانی میشم کمککککککککککککککککککککککک کک
روح اله معینی زاده
چهارشنبه 04 آذر 1383, 09:08 صبح
با سلام و خسته نباشی
همون طور که جواب دادم (Ruhollah=روح اله معینی زاده)، باید توی هر ویندوزی که برنامهات را نصب می کنی، به همان مسیر رفته و صدا را غیر فعال کنی. همین!
با احترام- خدانگهدار
reham
پنج شنبه 05 آذر 1383, 01:04 صبح
این کارو کردم ولی غیر فعال نمیشه
روح اله معینی زاده
پنج شنبه 05 آذر 1383, 10:02 صبح
با سلام خدمت دوست گرامی
به صدا خوب دقت کن و در اون لیست همهی اونایی رو که صداشون با صدای مزاحم برنامه شما یکی است را غیر فعال (None) کن.
ممکنه که اون صدا روی Default Beep تنظیم نشده باشه. ::نوشتن:: :موفق:
با احترام- خدانگهدار
reham
پنج شنبه 05 آذر 1383, 23:59 عصر
میدونید مشکل چی بود multimedia audio controler نصب نشده بود .
از همگی ممنونم. :thnx:
rainstorm
شنبه 14 آبان 1384, 11:44 صبح
با سلام به تمامی بر و بچ سایت برنامه نویس
من یک برنامه با دلفی نوشتم و دقیقا همین مشکل رو داره تا حالا هم نتونستم راه حلی براش پیدا کنم ولی راه حلی که آقای «روح اله معینی زاده» ارائه دادند به نظر من راه حلی غیر منطقی است چرا که برای دیگر برنامه های ویندوز ایجاد مشکل می کنه . برای حل این مشکل باید به سیستم عامل بفهمانیم که زدن کلید Enter بر روی شی مورد نظر عملی مجاز است. حالا اینکه چه جوری اینو به سیستم عامل بفهمانم مشکل منه که وقتی حلش کردم بهتون میگم
همیشه باید مشکل رو حل کرد نه اینکه اونو ماست مالی کرد
باتشکر Rainstorm
behnam5300664
یک شنبه 15 آبان 1384, 17:44 عصر
ببین بلند گو تو خاموش کن.............!!!!!!!!
ali_firouz_ir
یک شنبه 15 آبان 1384, 19: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, 02:54 صبح
بهترین راه اینکه کارت صداتو UnInstall کنی و از دست این صدای مزاحم راحت بشی ....
البته میتونی کامپیوترتو هم بفروشی و ... :قهقهه: :چشمک:
asilverisis
شنبه 21 آبان 1384, 01: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, 16: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, 23:07 عصر
سلام
ممنون دوست عزیز
نه این کد بدرد VB.net نمی خوره
مهمترین قسمت کد شما Key:=#0 که این کار توی VB.net به دلیل ReadOnly بودن Key که به صورت
e.KeyChar یا e.KeyCode استفاده می شه قابل استفاده نیست
من فکر می کنم یعضی از دوستان و اساتید این بخش کد مورد نظر رو دارن
چون من این کد رو قبلا یه جایی دیدم و داشتم ولی هر چی می گردم اونو پیدا نمی کنم
حالا چرا نمی ذارن و اجازه میدن این بحث این قدر طولانی بشه نمی دونم:عصبانی:
asilverisis
سه شنبه 24 آبان 1384, 00: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, 22: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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.