منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استفسار حول أداة Checkbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استفسار حول أداة Checkbox (/showthread.php?tid=27868)

استفسار حول أداة Checkbox - Hazem1 - 10-12-18

بسم الله الرحمن الرحيم
---------------------------
عند الضغط علامة صح على مربع ال Checkbox يتم تنفيذ أمر كتم الصوت
PHP كود :
My.Computer.Audio.Stop() 


، وعند إلغاء علامة الصح أريد أن يرجع لوضع تشغيل الصوت كذي قبل في تنفيذ الكود التالي:

PHP كود :
My.Computer.Audio.Play("D:\N\WindowsApplication1\bin\Debug\462520910.wav") 

حاولت أجرب خصائص كثيرة فلم يُفلح معي الأمر، فما الحل بارك الله فيكم.

RE: استفسار حول أداة Checkbox - trakktour - 10-12-18

تفضل اخي 
كود :
Private Declare Auto Function SendMessage Lib "user32.dll" (hWnd As IntPtr, Msg As UInteger, wParam As IntPtr, lParam As IntPtr) As IntPtr
   Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
       SendMessage(Me.Handle, 793UI, CType(2100912, IntPtr), CType(524288L, IntPtr))
   End Sub
ان شاء الله نكون فهمتك صح

RE: استفسار حول أداة Checkbox - Hazem1 - 11-12-18

(10-12-18, 10:35 PM)trakktour كتب : تفضل اخي 
كود :
Private Declare Auto Function SendMessage Lib "user32.dll" (hWnd As IntPtr, Msg As UInteger, wParam As IntPtr, lParam As IntPtr) As IntPtr
   Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
       SendMessage(Me.Handle, 793UI, CType(2100912, IntPtr), CType(524288L, IntPtr))
   End Sub
ان شاء الله نكون فهمتك صح

جزاك الله خيراً أخي الكريم trakktour وأكرمك بالجنَّة، نعم الكود يعمل بشكل صحيح ، كم أود فهم هذا الكود إذا لم أشق على حضرتك