عرض مشاركة واحدة
  #3  
قديم 03-13-2007, 03:41 AM
مبرمج مبتدئ مبرمج مبتدئ غير متواجد حالياً
عضو
 
تاريخ التسجيل: Feb 2007
المشاركات: 20
جزاك الله خير يا استاذ خليل وبارك فيك

اقتباس:
المشاركة الأصلية كتبت بواسطة الاستاذ خليل
مشكلتك في اختيار الأحداث يعني
اذا احد وضع الماوس على الزر يصدر صوت ؟؟ كيف اسويها؟؟
تختار حدث مرور الماوس على الزر و تضغ فيه كود تشغيل الصوت و هو حدث MouseMove
كود:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
هنا تضع كود تشغيل الصوت

End Sub
س/
اذا احد ظغط على زر مثلا على زر خروج يصدر صوت ؟؟ كيف اسويها؟؟
بسيطة تختار حدث الضغط على الزر و تضع فيه الصوت

كود:
Private Sub Command2_Click()
هنا تضع كود تشغيل الصوت
End Sub
الحمد لله سويتها
الله يجزاك الف الف الف خير
وهذا التطبيق
في المرفقات



اقتباس:
المشاركة الأصلية كتبت بواسطة الاستاذ خليل
الاستفسار الثالث كيف اغير واجهة البرنامج بواجهات جميلة ورائع
وسهلة التركيب
روح للفوتو شوب او اجلب اي صورة و ضعها بالخلفية اي اذهب لخاصية الصور Picture و اجلبها و ستكون خلفية لبرنامجك
لا مافهمت قصدي انا ماقصدي كيف احد صورة لا
قصدي يكون البرنامج كامل متغيير
مثل هذا البرنامج
في المرفقات



اقتباس:
المشاركة الأصلية كتبت بواسطة الاستاذ خليل
ا
الاستفسار الرابع والاخير
اذا احد وضع الماوس على الزر يتغير لون الزر؟؟ كيف اسويها؟؟

كود:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Command1.BackColor = &H8000000D
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H8000000F
End Sub
يلزمك لفعله عدة امور و هي تغيير خاصية style الى Graphical
او كتابة الكود التالي بحدث لود النموذج (الفورم)

كود:
Private Sub Form_Load()
Command1.Style = 1
End Sub
و ثم تختار حدث تحريك الماوس في الفورم و تكتب الشفرة السابقة الخاصة بتغيير اللون حيث
Command1.BackColor = &H8000000D
End Sub

يمثل اسم الكائن ثم نغير خاصية الخلفية ثم الرمز اللون و تستطيع تغييره من الذهاب الى اي شيء فيه لون من الفجوال بيسك و نسخ الارقام اللون
هذا درس الصوت
http://www.hesab.net/vb/showthread.php?t=2165
اتمنى قد فهمت
و وضعت لك ملفا

بارك الله فيط تم التطبيق وتم تغيير اللون
وهذا التطبيق
في المرفقات



جزاك الله خير ومعليش تعبتك معاي
وودي بعض الاستفسارات اذا تسمح

س/
حمل الملف التالي
http://up.9q9q.net/up/index.php?f=tsQcd8Ikf
إذا لم يعمل حمل من الرابط التالي
http://www.upmoon.com/up9/setup.rar

اذا وضعت الماوس على الزر يظهر الكلام مثلا " اختيار ملف " " تغيير الرقم السري " تظهر بتأثير حلو ..... كيف اسويها.؟.؟


س/
كيف اضع زر لفتح ملف من الجهاز ومثلا تشفيره او عرض خصائصه كما هو موجود في البرنامج السابق؟؟


وجزاك الله خير
انا عارف اني تعبتك معاي يا استاذ خليل
لكن تحملنا ترانا مبتدئين

التعديل الأخير تم بواسطة مبرمج مبتدئ ; 03-13-2007 الساعة 02:51 PM
رد مع اقتباس