أداة تصميم الفورم على شكل صورة مع الكود

من المواضيع التي شاركت فيها

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#23 يونيو 2005 في 10:36

ماشاء الله عليك يابلال متميز كعادتك :rolleyes:

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

#33 يونيو 2005 في 13:24

مجهود رائع .

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBox	مكتبة الأكواد	تحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6	أكواد × أكواد	دروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورت	تحميل برنامج Activ Skin 4.3	جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيك	موقع كويس للأيقونات	مرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب	شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment	علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADO	إضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6	حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء	السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP	مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل	خواص الاداة Winsock لربط الاجهزة عن طريق الانترنت	كيف يتم عمل تقارير بإستخدام HTML

#43 يونيو 2005 في 16:10

شكرا شباب

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

من المواضيع التي شاركت فيها

لمن يسأل عن دروس الclass في الفيجول

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#53 يونيو 2005 في 16:17

ممتاز

بعض مواضيعي

----------

أدوات جديدة

سيرفرات الأميل

تعلمت......فعلمت....فعملت

أبواب جهنم السابعة لمن يهمة الأمر

موقع ممتاز

تحميل الفيجول بيزك

أكواد * أكواد

حماية الدخول لبرنامج عن طريق وضع يوزر وباس

هل انت مدمن نت ام ماذا؟

IF-then-else التركيبة

#63 يونيو 2005 في 20:04

أداه رائعه

#77 يونيو 2005 في 00:25

مجهود رائع شكرا لك

جزاك الله خيرا

#87 يونيو 2005 في 01:27

شكرا على المرور :rolleyes:

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

من المواضيع التي شاركت فيها

http://www.planetss.com/vb

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#97 يونيو 2005 في 10:12

الله يعطيك العافيه يا

بلال حمدي

منتديات كوكب الكمبيوتر

لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية

#107 يونيو 2005 في 10:41

شكراً لك

InTechSpot :: Technology Tips, Tricks, Hacks, News And Reviews.

Sony HDR-HC3 review

#118 يونيو 2005 في 02:06

شكرا على الإهتمام بالموضوع شباب

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

من المواضيع التي شاركت فيها

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#128 يونيو 2005 في 03:33

فقك الله &&

مشكور يعطيك العافيه&&

&&&&&&&&&&&&&&&&

#1312 يونيو 2005 في 01:16

شكرا professional VB99

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

من المواضيع التي شاركت فيها

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#1412 يونيو 2005 في 13:55

جزاك الله خيرا مشكورررررررررررررررررررررررررررررر :rolleyes:

اللهم علمنا ماينفعنا وانفعنا بما علمتنا.........

اللهم هب لنا علما من لدنك....

.........اللهم لا علم لي الا ما علمتني انك انت العليم الحكيم

وقل ربي زدني علما .........

اللهم أجعل علمنا حجة لنا لا حجة علبنا .......

سبحانك اللهم وبحمدك أشهد ألا أله ألا آنت أستغفرك وأتوب أليك .........

#1513 يونيو 2005 في 02:58

جميل جدا اخونا الكريم

جزاك الله عنا خير الجزاء

لي سؤال لو اذنت لي لاني لم يسعفني الوقت الكافي لتجربة الاداة

مبدئبا انا لاحظت ان الصورة bmp و ال backgroung color was blue الاداة متضمنة ال release capture

اولا : هل الاداة فعالة ايا كانت خلفية الصورة احمر و ابيض او اسود؟

ثانيا : هل تعمل مع color quality , 256 , 24 , 32bit ??

ثالثا : هل تعطي نفس النتائج مع صور ال jpg ,gif ??

29_09_05_02_32_59_1128029579_4_13_3[_].gif

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

مع خالص تحيـــــــــــــــــــــــــــــــــاتي

GAF58

#1613 يونيو 2005 في 03:22

الاداة اكثر من رائعة مع

صور ال transparent gif

Example.zip

29_09_05_02_32_59_1128029579_4_13_3[_].gif

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

مع خالص تحيـــــــــــــــــــــــــــــــــاتي

GAF58

#1713 يونيو 2005 في 04:33

ممكن اعرف ازاى نغير الصور

شرح بسيط

#1813 يونيو 2005 في 10:26

olobnet كتب:
ممكن اعرف ازاى نغير الصور
شرح بسيط
←

اخي الفاضل

حاج ة سهلة جدا

من مربع الخصائص ----------> picture ----------> ثم اختاراي صورة انت تريدها

29_09_05_02_32_59_1128029579_4_13_3[_].gif

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

مع خالص تحيـــــــــــــــــــــــــــــــــاتي

GAF58

#1913 يونيو 2005 في 16:58

السلام عليكم و رحمة الله و بركاته

اخي الفاضل بلال حمدى

الاداة نكاد تكون ممتازة وجهد رائع واحسن كثيرا من الكود الذى استخدمه

ينقصها شئ مهم : خاصية trans1.picture

Trans1.Picture = LoadPicture(App.Path + "\clivia03.gif")

الكود السابق يعطي خطأ property invalid

------------------

الاداة تعمل علي الصور بامتداد bmp , gif و لم احصل كود يعمل علي jpg حتي الان

الاداة تعمل علي كل الوان حلفيات الصور ( ميزة لم احصل عليها من قبل )

الاداة تعمل علي كل color quality

بارك الله فيك اخي الفاضل

29_09_05_02_32_59_1128029579_4_13_3[_].gif

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

مع خالص تحيـــــــــــــــــــــــــــــــــاتي

GAF58

#2014 يونيو 2005 في 14:23

بارك الله فيم اخي بلال

تحياتي :rolleyes:

#2115 يونيو 2005 في 02:13

الأداة تتعامل مع جميع أنواع الصور حتى الـ Jpg لكن على إعتبار اللون في النقطة الأولى هو الـ MaskColor

وشكرا شباب على المرور وإن شاء الله أكون عند حسن ظنكم دائماً

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

من المواضيع التي شاركت فيها

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#2216 يونيو 2005 في 01:06

بلال حمدي كتب:
الأداة تتعامل مع جميع أنواع الصور حتى الـ Jpg لكن على إعتبار اللون في النقطة الأولى هو الـ MaskColor
وشكرا شباب على المرور وإن شاء الله أكون عند حسن ظنكم دائماً
←

استاذى الفاضل يلال حمدى

مرفق المثال مع صور jpg , bmp , gif

العيب ليس بالاداة و لكن العيب في فورمات ال jpg

احسن نتائج للpicFormShape تكون مع فورمات ال bmp و لكن عيبه ان حجم الصورة كبير يليه في الجودة فورمات ال gif وحجمه اصغر نسبيا

عموما ليس هذا عيب الاداة وانما يجب اضافة property page لامكانية اضافة او تغيير الصورة at Run-time

trans1.picture= loadPicture

حتي تكون الاداة مكتملة

29_09_05_02_32_59_1128029579_4_13_3[_].gif

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

مع خالص تحيـــــــــــــــــــــــــــــــــاتي

GAF58

#2316 يونيو 2005 في 01:15

عذرا نسيت ارفاق المثال

New Folder.zip

29_09_05_02_32_59_1128029579_4_13_3[_].gif

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

مع خالص تحيـــــــــــــــــــــــــــــــــاتي

GAF58

#2416 يونيو 2005 في 01:17

Ok please Wait

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

من المواضيع التي شاركت فيها

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#2516 يونيو 2005 في 02:17

شكرا أخي gaf58 على تنبيهي

تم إضافة دالة جديدة

SetPicture

لتصبح

Ocx.zip

New.zip

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

من المواضيع التي شاركت فيها