الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

بعض الادوات لتجميل الفورم

مغلق
بدأه شمس الزناتي في 3 نوفمبر 2006 · 13 رد · 1,138 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني بأذن الله و بعونه و بعد غيبة سأقوم بوضع مجموعة من الادوات و الاكواد لتجميل الفورم

و لو ان استاذنا الاستاذ عبد الله فتحى قام بعرض موضوع اجعل واجهة البرنامج أكثر تألقاً وبريقاً و لكن علينا ان نحاول على افيد اي مبرمج

اتمنى من الله ان تعجبكم و نسألكم الدعاء

1- الاداة الاولى vbskpro

و هي تعطي لرنامجك جمال اللون الازرق و ماعليك سوى ادراجها

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

vbskpro.rar

خطوات فيجوالية

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

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

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

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

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

مدونتي مصري للنهاية

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

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#2

يعطيك العافية أخ شمس الزناتي

وهذا رابط يحوي تفاصيل كثير وللفائدة أكثر

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#3

ننتظر الباقي

المستبد يتحكم في شؤون الناس بإرادته لا بإرادتهم و يحكمهم بهواه لا بشريعتهم و يعلم من نفسه أنه الغاصب المتعدي فيضع كعب رجله على أفواه الملايين من الناس يسدها عن النطق بالحق و التداعي لمطالبته

#4

الاداة الثانية

الاداة freesize

و يعود الشكر فيها لأخي abu sabreen

و لكي تستخدم الاداة عليك وضع الكود التالي في form load

freeSizer1.MoveObjects = True

freeSizer1.ResizeFonts = True

freeSizer1.ResizeObjects = True

freeSizer1.SmartPositioning = True

freeSizer1.SmartSizing = True

و هذة الاداة تستخدم في تنسيق احجام محتويات الفورم

freeSize.rar

تم تعديل هذه المشاركة بواسطة شمس الزناتي في 4 نوفمبر 2006 في 17:44

خطوات فيجوالية

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

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

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

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

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

مدونتي مصري للنهاية

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

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#5

اخ شمس الزناتي

الادوات التي تقوم بأرفاقها هي موجودة في المنتدى فالماذا تكررها ... اتمنى ان تأتي بجديد

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#6

;)

ليس كل ما يتمناه المرء يدركه

arabteam2000.gif

#7
اقتباس
اخ شمس الزناتي

الادوات التي تقوم بأرفاقها هي موجودة في المنتدى فالماذا تكررها ... اتمنى ان تأتي بجديد

اخيHnHn

لا انكر ما تقوله و لكنى اقدم القديم و الجديد معاً حتى تتمكن الاعضاء من ان تجد ما يريدوه في موضوع واحد

خطوات فيجوالية

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

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

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

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

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

مدونتي مصري للنهاية

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

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#8

شكر لك اخي الكريم على الاداتين الرائعتين

مع تحيات : عبدالرحمن نورالله
بيلار الدولية للتكنولوجيا لتصميم وأستضافة مواقع الأنترنت ، شركة مسجلة في المملكة الاردنية الهاشمية

أستضافة مواقع (Website Hosting) ابتداء من 35دينار اردني (50$) سنوي 962799247524+ أضغط هنا

logo.png

#9

الاداة الثالثة

الاداة osenxpsuite

و تعطي تأثيرالxp

واضح يا جماعة ان في مشكلة في المرفقات

تم تعديل هذه المشاركة بواسطة شمس الزناتي في 9 نوفمبر 2006 في 21:46

خطوات فيجوالية

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

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

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

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

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

مدونتي مصري للنهاية

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

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#10

أما بالنسبة للأداة osenxp suit فحجمها كبير بالنسبة للمرفقات

و هذه أداتي

/index.ph...110523&st=0

#11

اولا اخى superboy اشكرك على مشاركتك و على الاداة الجميلة منك و نتمنى من الجميع المشاركة بكل ما هو مفيد

و ان لم يكن فالدعاء

خطوات فيجوالية

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

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

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

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

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

مدونتي مصري للنهاية

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

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#12

الان هذا الكود لجعل الفورم بيضاوية الشكل

تضع في الموديول

Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

و هذا في الفورم

Sub Waooo(frm As Form)

   Dim a As Integer
   Dim b As Integer
   Dim C As Integer
   Dim d As Integer
   Dim e As Integer
   Dim f As Integer
   Dim w As Integer
   Dim X As Integer
   Dim Y As Integer
   Dim z As Integer
   Dim current As Double
   Call frm.Move(0, 0)
   w = frm.Height: X = frm.Width: Y = frm.Top: z = frm.Left
   a = 0: b = 0: C = w: d = X: e = Y: f = z
   Do While a < frm.Height / 15 Or b < frm.Width / 15
	  a = a + 25
	  b = b + 25
	  e = e + 40
	  f = f + 148
	  If a > frm.Height / 15 Then a = a - 23
	  If b > frm.Width / 15 Then b = b - 23
	  Call frm.Move(f, e, d, C)
	  current = Timer
	  Do While Timer - current < 0.01
		 DoEvents
	  Loop
	  Call SetWindowRgn(frm.hwnd, CreateEllipticRgn(0, 0, b, a), True)
   Loop
   current = Timer
   Do While Timer - current < 1
	  DoEvents
   Loop

End Sub

Private Sub Form_Activate()
Waooo Form1
End Sub

خطوات فيجوالية

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

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

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

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

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

مدونتي مصري للنهاية

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

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#13

هذا الكود وظيفة لأداتي

#14

اذن الان معنا الكود و الاداة فالاداة ما بداخلها مبهم لذلك يجب علينا رؤية الكود حتى نتمكن من الفهم

خطوات فيجوالية

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

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

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

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

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

مدونتي مصري للنهاية

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

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

هذا الموضوع مغلق.

مواضيع مشابهة