Pharaonic_Guy

القي نظرة هنا http://dev.mysql.com/tech-resources/articl...b-handling.html في فقرة ال Connection String

Private Sub MDIForm_Load() Form1.Left = Me.Width - Form1.Width - 200 End Sub Private Sub MDIForm_Resize() Form1.Height = MDIForm1.ScaleHeight Form1.Left = Me.Width - Form1.Width - 200 End Sub

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

يبدو أنك لم تلاحظ ما أراده السائل أخي طارق من الكود الذي قام بإرفاقه .. فهو أراد ترتيب أفقي .. ومن ثم عندما ينتهي السطر الأفقي .. ينزل سطر لتحت ليبدأ من جديد .. للتغلب علي انتهاء حد الفورم Height .. يمكن وضع الكود في Resizer

TextBox Label ListBox ComboBox CommandButton CheckBox OptionButton مع مراعاة الـ Properties لكل كائن ..

مثال علي الكومبوبوكس Dim ctrl As Control For Each ctrl In Me.Controls If TypeOf ctrl Is ComboBox Then ctrl.Text = "Test" End If Next

هل اسمك رواية جديدة للعبقري أحمد خالد توفيق ؟ فيه امكانية اكيد .. بالاعتماد علي كلا من CurrentX و TextWidth .. فقط استخدم الكود التالي : If (Me.Width - TextWidth(Chr(32) & Chr(32) & Str(i - 1) & Str(i))) <= Me.CurrentX Then Print i Else Print i; End If ليصبح ا…

شكرا أخي Cipher

فيه تشابه في النتائج الأولية فعلا .. لكن أخي علاء بأطلب منك تفسير لنتيجة البحث التالية قم بالبحث عن الصيغة التالية في كل من سامي وجوجل "علاء السلال"+arabteam2000 نسخة جوجل العربية أو الانجليزية تعطي 6 نتائج سامي يعطي الآف النتائج .. ومحرك ياهو يعطي أربع نتائج …

نعم توجد .. لكنها أيضا تعتمد علي سجل النظام لإتيان نوع الملف .. علي العموم اسمها SHGetFileInfo .. والمثال التالي من API Guide .. يتم تعريف بنية SHFILEINFO يتم تمريرها للدالة لإرجاع معلومات الملف بها .. فقط يتم حجز buffer مناسب ليحمل نوع الملف szTypeName As Str…

ستفيدك هذه المشاركة بالتأكيد لمعرفة كيفية قراءة القيم التي تريدها من الريجستري /index.php?showtopic=101559

فلنفترض أنك تريد معرفة نوع ملف ذو الامتداد frm ستقوم بقراءة القيمة الأساسية Default للمفتاح : HKEY_CLASSES_ROOT\.frm وستجد أنه يقول لك أن معلومات الملف frm موجودة في المفتاح VisualBasic.Form وبالتالي تذهب إلي المفتاح : HKEY_CLASSES_ROOT\VisualBasic.Form وتقرأ …

Dim SH As New Shell Dim Fol As Shell32.Folder Dim objFSO As Object Dim sPath As String Set Fol = SH.BrowseForFolder(0&, "Title", 1, "C:\") If Not Fol Is Nothing Then sPath = Fol.Items.Item.Path Set objFSO = CreateObject("Scripting.FileSystemObject") If Not (fs…

حريف اتلحق قبل الانحراف .. الف مبروك علي هذا التقدير .. ومن غير شهادات .. مشاركاتك تتحدث عنك .. وواصل الإبداع يا غالي .. وربنا يوفقك في امتحاناتك الحالية .. وتعدي منها علي خير الشهر ده ..

الف مبروك للمتألق ابراهيم وأتمني معرفته أكثر .. والاستمرار في الابداع ..

الف مبروك للأخ رغيد الطيب .. وللأسف الشديد .. معدش بيبان.. ولا نعرف أخباره حتي .. فيا ريت لو ما زال أحد علي اتصال به أن يطمئنا عليه ..

المعامل الأخير للدالة وهو Root يمكنك فيه تحديد المجلد الجذري الذي تريد البدء منه .. كمثال : Set Fol = SH.BrowseForFolder(Me.hWnd, "Title", 1, "C:\Windows")

عندك دالة اسمها BrowseForFolder في مكتبة shell32.dll تستطيع استخدامها عن طريق تعريف الـ API أو عن طريق إضافة الـ Reference لمكتبة Shell32 وهو Microsoft Shell Controls وتعريف كائن من نوع Shell وأخر Folder On Error Resume Next Dim SH As New Shell Dim Fol As Fold…

ابحث عن جملة ٍSelect Distinct وستجد عشرات المشاركات /index.ph...ite=%2BDistinct

اسلام مين ده ؟ انا بأقول تنام وكفاية مذاكرة النهاردة ..وربنا يوفقك إن شاء الله