HnHn

نموذج على شكل علامة ويندز نضع هذه الشفرة في مديول Private Type RECT Left As Long Top As Long Right As Long bottom As Long End Type Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function TextOut Lib "gdi32" Alias "Te…

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

نتـــــابع تصميم الفورم بالاعتماد على صورة الأدوات المطلوبه هي : :rolleyes: 1 - Module مديول 2 - Form فورم 3 - Picture بيكتشر وسيتم تسميته بهذا لااسم picMainSkin - صورة من نوع Bmp كهذه هذه احدى الطرق الشخصية لتصميم فورم على شكل صورة ويمكنك تطبيق هذه الطريقة عل…

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

بسم الله الرحمن الرحيم :) حبيت أن اقوم بإنزال هذا الموضوع بشكل من التفصيل لكي تعم الفائدة في تجميل البرامج كما اريد ان تتم المساهم بوضع فكرة أو عمل وشرح مبسط حول الاداه المستخدمه فيه أو الأكواد المدرجه وكيفية عمل كل كود ولماذا !!!! وهذا الرابط لكيفية التعامل م…

أعتقد أن هذا الرابط سيفديك .. تعلــــــــــــم ADO معنا

يأخوان .. ادوات الهاتف موجودة ولكن الطريقة غائبة .. ولم يتوصل حتى الان احد لهذه الطريقة .

أعتقد اخي نبيل هذا المثال سيعجبك جدااااااااا http://vbcodezoom.siteatnet.com/foreign/vb...om/tsviewer.zip

اشكر بن حسن على ما بذل من جهد للتواصل في اتمام المعلومة والله يوفق الجميع

يمكنك الاستفادة من المثال التالي ;) وتقومي بنفس العملية http://www.al-ebda3.info/ib/index.php?show...359&hl=flexgrid

ستجد الاجابة في التوقيع الخاص بي

اهلا وسهلا المهم ان يكون هو المطلوب

احسنت ..اخي codefinder هذا الذي كنت اريد قوله ... ومشكور للتوضيح

:wacko: B) :o

Trim لأخذ الحروف النصي و يمكن الاستغناء عنه بمعنى عندما نبدء بعملية الضرب نستخدم Val وهي للقيم الرقمية If rs.RecordCount > 0 تستخدم زي If rs.EOF بمعنى عند العثور على (شرط معين ) 2 ,MSHFlexGrid1.Row !؟؟ بمعنى الرف الثاني .. أو السطر الثاني لأن السطر الأول هو عن…

من هنا :) /index.ph...48065&hl=الفلاش

والله أنا ما صادفة مثال بما تقول ولكن أرجو أن تفيدك هذه الروابط /index.ph...1&st=&p=entry /index.ph...1&st=&p=entry

:blink: [CODE]MSHFlexGrid1.ColSel = 6 هذا الكود .. لمعرفة عدد الحقول الكليه المطلوب تحديدها وتلوينها :wacko: AbsolutePosition وهذا الكود لمعرفة رقم السجل الحالي .. (المنتقله إليه) If rs.RecordCount > 0 Then هنا التأكد من وصول البحث عن البيانات المطلوبه إلى آخر…

اسعدني كثير ردك .. وبالفعل أنا اشتريت السيدي اصدار 2000 وانا الأن بصدد اتعلم هذه اللغة ... وهي الأوراكل وما الحياة إلا تعلم .. والله يوفقك فيما تسعى إليه طموحك .... يا أمورة المنتدى (لقب جديد )

'استخدام المكتبة Microsoft Scripting Runtime Private Sub Command1_Click() Dim obj_FSO As Object, obj_Drive As Object Set obj_FSO = CreateObject("Scripting.FileSystemObject") Set obj_Drive = obj_FSO.GetDrive("c:\") MsgBox obj_Drive.SerialNumber Set obj_FSO = No…