السلام عليكم
ارجو منكم مساعدتي ..
**أريد برمجة مثل البرمجة الموجودة" في برنامج الفيجول بيسك أدناه لكن تكون مصحوبة بصوت وصورة بالإضافة إلى النص الموجود
عند ضغط الزر يظهر الصوت مع الرسالة
وكيف عمل التلميحات عند وضع الماوس على نفس الزر في برنامج الفيجول بيسك 2005
If TextBox1.Text = "22222342" Then
MsgBox("صح")
Else
MsgBox("خطأ")
End If
ارجوا منكم مساعدتي فوراً وفي اقرب وقت .. لو بالشئ البسيط
وجزاكم الله الف خير
السلام عليكم
اخي الكريم
انت وضعت كود اظهار رسالة
اما الصوت فانت بحاجة إلى دالة
api
و هذا هو المثال
Private Const SND_APPLICATION = &H80 ' look for application specific association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
و هو wav حصرا
تم تعديل هذه المشاركة بواسطة mouaz في 10 أبريل 2007 في 13:42
يعني انت عاوزه اذا كان الجواب صحيح ينطق "صح" واذا كان خطأ ينطق "خطأ"
اذا كان هذا هو المقصود اليك المثال في المرفقات
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
تأسف إدارة الفريق العربي لغلق الموضوع وذلك لمخالفته قوانين المشاركات .
قواعد طرح المشاركات
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةهذا الموضوع مغلق.