anossof

Private Sub Command1_Click() ScriptControl1.AddObject "list1", List1 Open "C:\code.txt" For Input As #1 a: Input #1, x ScriptControl1.ExecuteStatement x If EOF(1) Then Close #1 Exit Sub Else GoTo a: End If End Sub

لا يمكنك تغيير لون item لوحده في هذه الأداة الافتراضية فـ forecolor أصلا تغير لون كل العناصر بداخل الأداة وحلا لهذه المشكلة أنصحك باستخدام هذه الأداة الرائعة لتحميل الأداة osenxpsuite.ocx اضغط هنا

استعمال البرنامج بسيط جدا عندما تحرق اسطوانة بالنيرو تضع البرنامج ومعه الملف AUTORUN.INF المرفق (يمكنك أن تخفيهم إن أردت ) وسوف يشتغل فور وضع الاسطوانة في السي دي روم ليعرض أي جملة تريدها وبشكل جميل وخيار فتح الاسطوانة أو الإغلاق أرجو أن يعجبكم الردود :bye: HI…

الكود اللي انت كتبتو واللي انا كتبتة في الأول مش شغال 100/100 لأنك عندما تقلل عرض الفورم على الآخر ثم تحاول تقليل طوله لا يمكنك ذلك أما الكود الي في الفورم لود مضمون 100/100 وأسهل وأسرع في التحميل لأنه يحمل لمرة واحدة أما في الresize يحمل كلما تعمل resize مما …

بعد البحث الطويل وجدت طريقة بمنتهى السهولة: Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.MinimumSize = New Size(500, 500) End Sub ممكن تحددها من غير كود في الخصائص بتاعة الفورم :calc: وأي خدمات

تضع الكود التالي في التايمر: Label1.Text = Now.ToString("h:mm tt") لاحظ ال h سمول وليس H إذا أردت الثواني أيضـا Label1.Text = Now.ToString("h:mm:ss tt") واضبط الخاصية Interval للتيمر = 1000]

خد الكود ده وادعيلي: Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize Dim _Width = 300 Dim _height = 300 If Me.Width < _Width Then Me.AutoSize = True If Me.Height < _height Then Me.AutoSize = True If Me.Width > _W…

يجب أولا تعريف أصغر طول وأصغر عرض Dim _Width = 300 Dim _height = 300 ثم وضع شرط للطول ثم شرط للعرض If Me.Width < _Width then Me.Width = _Width if Me.Height < _Height Then Me.Height = _height<BR> أي نضع في الحدث resize الآتي Dim _Width = 300 Dim _height = 300 I…

الأفضل أن تضع شرط للطول لوحده وشرط للعرض لوحده جرب وستعرف الفرق Dim h As Integer = 300 Dim w As Integer = 300 If Me.Width < w Then Me.Width = w End If If Me.Height < h Then Me.Height = h End If

نجحت الطريقة الأولى فكيت ضغط السيديهايتين في فولدر وبعدين نزلنها. شكراً...

عندي 3 سيدي هات MSDN المشكلة انه بيطلع رسالة بتقول ان الاسطوانة غلط مع اني حاطط الأسطوانة صح مع العلم ان الاسطوانة اسمها My Disc أرجو الرد

شكرا على الكود

شكرا

هذه الطريقة لإغلاق أي برنامج شغال كما طلبت تماما فقط ضع اسم البرنامج المراد إغلاقه فمثلاً: Private Function killprocesses(prog As String) killproc = Shell("taskkill /f /im " & prog, vbHide) End Function 'لإغلاق الورد : Private Sub Command1_Click() On Error Res…

لفتح برنامج الورد : Shell "D:\Program Files\Microsoft Office\Office10\winword.exe", vbNormalFocus

أخي هشام ها هو البرنامج المطلوب.. http://members.lycos.co.uk/anossof/ANOS NOUSE.zip ولو في اي استفيار أو أي تغيير مطلوب أنا جاهز.. وأرجو أن أكون قد فهمتك.. >>آسف لعدم ارفق الملف ضمن المرفقات لوجود مشكلة في إضافة الردود عندي<<