prof_1982

السلام عليكم ZOrder 0 وهي خاصة بترتيب الادوات علي الفورم ، مثلا تريد ان تكون اداة الصورة فوق كل الادوات الاخري بهذا الامر تجعلها فوق الادوات الاخري حيث ان الرقم 0 هو اعلي طبقة . حيث تسميتها Z Order اما UserControl فهي لانشاء الادوات الخاصة بك كما يمكنك استخراج…

هل يمكنني ان احصل علي كلمة السر للتجربة ، وتحياتي لك علي هذا الانجاز الرائع

انسخ علي DVD

استخدم الاشارة % بدلا من *

Dim M As Object Set M = Me.Controls.Add("VB.CommandButton", "GGGG", Me) M.Caption = "Button1" M.Width = 2000 M.Height = 333 M.Left = 2000 M.Top = 3000 M.Visible = True

كيف ممكن اركب الـbrkapart Component ??? السابقة

مشكور جدا عزيزي بارك الله فيك ،

السلام عليكم انا هذه اول مشاركة لي في منتداكم العريق ، وارجوا ان اجد ما ابحث عنه . لدي نص مكون من كلمات وبين هذه الكلمات حرف معين (الفاصل) اريد طريقة لتقطيع النص واضافة الكلمات في مصفوفة من نوع TStringList هكذا . Ahmad@ali@Basel@mohammed الحل ان تكون الكلمات م…

هذا مثال رائع لعملية فتح ملفات Zip وعمل استخراج للمفات بداخله المطلوب / وضع جميع المكتبات المرفقة في المثال في دليل النظام لديك System32 وجرب المثال unzip.rar

مشكورين يا جماعة زبطت معي :) تحياتي لكم

شكرا لكم Desigen لم يفلح معي طريقة الكود السابق ، مع العلم انا استخدم SQL 2005 الاخ imadouzoun شكرا للنصيحة فانا ابحث في المنتدي قبل ان اطرح المشاركة :) تحياتي لكم

حاول اكتب بدل Localhost (Local)

Private Sub Form_Load() Frame1.BackColor = Me.BackColor End Sub

هذا هو الكود Private Sub Command1_Click() Dim M_Form As Form List1.Clear For Each M_Form In Forms List1.AddItem M_Form.Caption DoEvents Next End Sub

السلام عليكم كثيرا ما استخدم القوادح الـTriggers ولكن لم يصادفني يوم وان ايتخدم جمله شرطيه داخله ، والان انا احتاج الي استخدام جمل الشرط داخلها ، فكيف ؟ لدي القادح التالي . ALTER TRIGGER UpdateFile ON dbo.TRANSACTIONS FOR INSERT , UPDATE AS Declare @FileID as …

ما فيه حدث بيحميك من انقطاع التيار الكهربي ، ولكن الحماية تكون في طريقة تصميم البرنامج مثلا ان يقوم بحفظ كافة البيانات التي تدخلها مباشرة (حفظ الي ) كما هو الحال في نماذج اكسس ان كنت فهمت قصدي ، اي بمجرد دخول اي حرف في صندوق النص يكون قد حفظ ، تقريبا الطريقة ه…

استخدم اداة Mask فهي خصصت لهذا العمل

اجعل الترتيب عن طريق الاستعلام باستخدام الصيغ Asc او Desc اي تنازلي او تصاعدي الطريقة العامة : SQL = "SELECT * FROM TABLE ORDER BY FIELD ASC"

طبعا يوجد طريقة سهلة انا متبعها وهي فحص الـAscii Code للاحرف الموجودة في النص Private Sub Command1_Click() If Check_Arab_Lang(Text1.Text) = True Then MsgBox "Arabic Text Found !" Else MsgBox "All Text is English !" End If End Sub Public Function Check_Arab_Lan…

هذا كود بسيط لعمل المطلوب بجودة عالية Private Sub Command1_Click() WriteWord "Hi ArabTeam 2000 Forums ãÍãÏ Prof_1982" End Sub Public Sub WriteWord(swText As String) Me.AutoRedraw = True Me.CurrentX = 1015 Me.CurrentY = 1015 Me.ForeColor = RGB(255, 255, 255) Pr…