ok_freee

الاخ المزمجر شكرا على الرد الرائع استفدنا منه كثير كود لن ينسى جزاك الله خير

رووووووووووووووووووووووووووووووووعة شكرا شكرا

كود صفير لكتابة نص حرف بحرف حرف بحرف.rar

كود لعمل شريط متحرك يصلح فى واجهات النوافذ hhhhhhhhhhhh.rar تعلمنا هنا منذ عدة سنوات ويجب على من يتعلم اذا سنحت له الغرصة ان يعلم حتى ولو معلومة بسيطة جزاكم الله خير

شكرا اخوتى بارك الله فيكم

مثال بسيط للمبتدئين ffbb.rar

up

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

السلام عليكم ورحمة الله وبركاته اخوانى لعدة ساعات فشلت فى نقل محتويات اداة صورة فى نافذة الى اداة صورة فى نافذة اسفل الاولى مرفق مثال New_Folder.rar

الصورة المرفقة لبرنامج مصمم بالفيجول بيسك وسؤالى على الادة التى فيها حل السؤال انا اتوقع انها اداة label احب ان اعرف توقع الاخوه هنا ,وهل ممكن ان تكوم اداة صورة

الاخوة ةالاخوات فى المثال المرفق على النافذه اداتى image المشكلة انه اثناء التصميم وعند تحريك احدهما فوق الاخرى تظهر جزء من محتويات السفلية وكان الصورتين شفافتين فهل يمكن عمل صور شفافة ممكن حد يوضح هل الصور شفافة ام توجد خاصية لا اعرف عنها شيئ trl.rar

مشكور اخى بارك الله فيك جارى الاطلاع على الرابط اكيد اقصد نطقها

اذا كانت اداة التكست فيها الحرف k هل من كود ينطق هذا الحرف

عرض فلاشى منقول بعد التعديل بسيط فيه new.rar

كود بسيط يولد عرض قلاشى Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub mdrsh() For ib = 0 To cc.UBound Sleep 30 DoEvents cc(ib).Visible = True bb(ib).Visible = True cc(ib).Height = cc(ib).Height + ib / 2 cc(ib).Width = cc(i…

الف شكر اخى فؤاد سعد

اخى الكريم الرابط لا يعمل

اخى الكريم الكود السابق يجعل حجم الصورة اكثر من 1 جيجا ولكن الدالة الاتية تجعل الصورة جودة عالية حوالى 200 ك ولكن لم استطيع التعامل معها Private Declare Function DIWriteJpg Lib "DIjpg.dll" (ByVal DestPath As String, ByVal quality As Long, ByVal progressive As …

عند حفظ الصورة باى امتداد يكون حجمها كبير ممكن مثال لضغط الصورة ليكون حجمها صغبر

Me.Caption = " remain " & DateDiff("y", Date, #1/30/2008#) & " days "