• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

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

ghazi

اعضاء جدد
  • عدد المشاركات

    18
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن ghazi

  • الرتبة
    عضو جديد

طرق الإتصال

  • ICQ 0
  1. برنامج Basic4android لغة فيجيوال بيسيك VBA ممكن كمان
  2. السلام عليكم ورحمة الله وبركاته .. رأيت بعض ما نحتاج إليه من أدوات تساعدنا على إنجاز أعمالنا غير مدعومة لمحيطنا العربي وغير متواجدة على النت حسب علمي لذا قررت أن أتجه لمحاكاة بعض هذه الأدوات ووضعها بين يدي الناس .. وترك الحرية لهم بتعديلها حسب ما يناسب أعمالهم البرمجية وها أنا أطرح أولها بين يديكم .. أداة التقويم الشهري للتاريخ الهجري وأم القرى MonthCalendarArabic نتمنى منكم الدعاء DateArabic.rar
  3. أتوقع كان عنوان الدرس طريقة تركيب ال Iis لمن يملك Win Xp Home ليتمكن من تحميل الدت نت وهذا نصه .. ولكن لا أتذكر اسم كاتب الموضوع والشكر له 1/ You will need the installation CD of Win2000 Professional or Server (winXP Pro CD WILL NOT work) or a trial version of Windows 2000 Server - See the FAQ's at the bottom of this page2/ If you don't have 2 cd-rom players I suggest you to copy the directory i386 from the WinXP Home on your hard disk 3/ In this directory (i386) there is a file called IMS.CAB with WinRar (or something similar) unpack the content to a temporary folder (you will need them at the end of the installation)4/ Search for and find the file: c:\WINDOWS\INF\SYSOC.INF 5/ In the section [COMPONENTS] you will find this line: iis=iis.dll,OcEntry,iis.inf,hide,76/ Change it to this: iis=iis2.dll,OcEntry,iis2.inf,,7 (remember to change the name in iis2.dll and iis2.inf and to eliminate the word hide. In this way you bypass the protection of XP home)7/ From the Win2000 cd (Pro or Server) take the files: iis.dl_ and iis.in_ that are in the i386 folder and copy them on your desktop, open a dos windows and with the prompt pointing at your desktop edit the following commands: EXPAND IIS.DL_ IIS2.DLL EXPAND IIS.IN_ IIS2.INF this will generate two new files named iis2.dll and iis2.inf copy and paste IIS2:DLL to c:\WINDOWS\SYSTEM32\SETUP\ and IIS.INF to c:\WINDOWS\INF\8/ Go to control panel/application/windows components (I don't have an English version of Windows so I don't know exactly the name) and start windows installer. You will see "Internet Information server" is now available as a checkable option.9/ Select it (I suggest that if you are looking only for PWS to select only that because the more components you install the more files you have to search for)10/ It will need about 10/15 minutes and during that time the system is going to ask you for a lot of files: some are in XP Home CD other in Win2000 CD. At a certain point the system will ask you for the EXCH_adsiisex.dll file: it is the file you have extracted at the point 3 of this guide, select it and you should go on without trouble.11/ At the end restart you computer.12/ Test if it is working: open Internet Explorer and type in the address line: http://localhost13/ If it will not work, try the following: open a DOS window and type: iisreset /RESTART go to web proprieties in "directory protection" (I don't know if this is the exact name on an English version) click on "modify" (or edit, as said before I don't have an English version ...) "browse" and finally"find". You will see all user in your PC. Select the one you are working with and click OK. In the text-box you will see PcName\UserName. Click OK to close the window. Remember to uncheck "password Control) and click OK three times. Close and restart the web server and retry point 12. If all is correct you will see the default presentation page of IIS 5 and the online helpGood luck
  4. السلام عليكم ورحمة الله وبركاته .. وكل عام وأنتم بخير .. والمسلمين أجميعن ( جات متخأخرة ;) ) كما ذكرت سابقاً في وصف الموضوع بأن جميع أمثلة التعامل مع مستندات الوورد هو إما إنشاء مستند جديد أو فتح مستتند محفوظ .. ومن ثم إدارج مجموعة من الأعمال المراد عملها في المستند من نصوص أو جداول أو بحث .. ألخ. السؤال : كيف أتعامل مع مستند وورد نشط ( أي مفتوح من قبل ) ؟ حتى أتمكن من إدراج نص أو صورة .. أو .. ألخ الفكرة : # هل برنامج معالجة النصوص ( الوورد ) نشط ؟ لا .. إذاً نقوم بتشغيل الوورد عن طريق مثلاً الكود طبعاً منقول من الأخ / محمد سامر Private axWord As Word.Application axWord = New Word.Application axWord.Visible = True # هل يوجد مستند نشط ؟ لا .. إذاً نقوم بعمل مستتند جديد .. -----------------------؟ نعم .. هنا أريد معرفة التعامل مع هذا المستند النشط معليش طولت السالفة وهي قصيرة !! المعذرة لإدارة المنتدى : حيث أنني كررت السؤال في منتدى مبرمجي Microsoft Visual C#.NET حتى أحصل على حلول متنوعة إن وجدت ..
  5. السلام عليكم ورحمة الله وبركاته .. وكل عام وأنتم بخير .. والمسلمين أجميعن ( جات متخأخرة ;) ) كما ذكرت سابقاً في وصف الموضوع بأن جميع أمثلة التعامل مع مستندات الوورد هو إما إنشاء مستند جديد أو فتح مستتند محفوظ .. ومن ثم إدارج مجموعة من الأعمال المراد عملها في المستند من نصوص أو جداول أو بحث .. ألخ. السؤال : كيف أتعامل مع مستند وورد نشط ( أي مفتوح من قبل ) ؟ حتى أتمكن من إدراج نص أو صورة .. أو .. ألخ الفكرة : # هل برنامج معالجة النصوص ( الوورد ) نشط ؟ لا .. إذاً نقوم بتشغيل الوورد عن طريق مثلاً الكود طبعاً منقول من الأخ / محمد سامر بالفي بي Private axWord As Word.Application axWord = New Word.Application axWord.Visible = True # هل يوجد مستند نشط ؟ لا .. إذاً نقوم بعمل مستتند جديد .. -----------------------؟ نعم .. هنا أريد معرفة التعامل مع هذا المستند النشط معليش طولت السالفة وهي قصيرة !!
  6. شكر للأخ .. MostafaAlpha على طرح الفكرة . ------------------------------------------------ هناك مرجع .. وهو كتاب ( برمجة إطار عمل .NET باستخدام Visual Basic .NET ) للمبرمج تركي العسيري الجزء الثالث - الفصل الخامس عشر + GDI صفحة 561 المحاذاة الكلية Justify حيث قال : " تعتمد حروف لغتنا الجميلة على الكشيدة الكلية Justify للفقرة ، حاولت البحث في مكتبة MSDN على أي وسيلة أو قيمة تمكننا من تطبيق الكشيدة للمحاذاة الكلية للفقرة ، ولكن محاولتي مع الأسف لم تجد إلا دعم لهذه المحاذاة مع أدوات Web Form والخصة بصفحات HTML فقط . لذلك كان على تطوير الفئة ArJustify التي تستخدم لمحاذاة النص . " أنتهى.. وبالفعل قام بعمل رائع في هذا المجال ، ولكن .. كانت مجرد فكرة وليس حل نهائي كما أورد ذلك في نهاية كلامه في موضوع المحاذاة .. وفيما نصه : " ملاحظة : كان غرضي من الفئة ArJustify توضيح فكرة تطبيق المحاذاة الكلية فقط ، فلا تعتمدها في مشاريعك لأني لم أجري أي أختبارات إضافية عليها ولم أصل إلى الدقة المطلوبة التي توفرها معظم برامج معالجة النصوص " أنتهى .. والفئة مرفقة هنا _______________.rar أتمنى تطوير الفكرة على شكل فئة أو أداة ..
  7. للمثال : في الأوفيس للمحاذاة هناك أربعة خيارات 1 - محاذاة إلى اليسار 2 - محاذاة إلى اليمين ...................... وهنا نستخدم في الفيجوال بيسيك StringFormatFlags.DirectionRightToLeft 3 - توسيط 4 - ضبط ... ( أي اليمين واليسار معاً ) وأنا أرغب في ضبط المحاذاة للنص من الجهتين اليمنى واليسرى معاً . ___.bmp
  8. أولاً : شكراً لك أخي Max bayne على الرد السريع .. ثانياً : الخاصية RightToLeft أعتقد بأنها تغير أتجاه النص .. إما لليمين أو لا . وأنا أرغب في محاذاة كلا الطرفين الأيمن والأيسر معاً .. مثل برنامج تحرير النصوص " الوورد "
  9. السلام عليكم عندي مشكلة وبحثت عنها في المنتدى ولم أجد حلها حسب القوانين المتبعة.. :D وهي مسألة "" محاذاة النص "" للطرفين الأيمن والأيسر لأنني أقوم بعمل برنامج تحرير نصوص بسيط ، أو حتى تطويره إن كان ترخيصه متاح للجميع ( مجاني ) يتطلب محاذاة النص العربي من كلا الطرفين وشكراً
  10. إذا كانت المراقبة غير مرئية .. راجع Windows Services خدمات ويندوز -waf
  11. أنا ما عندي إلا الرد على هذه الفقرة .. ويا ليت أقدر اساعدك أكثر هذه هي الدالة الخاصة بفحص الإتصال بالإنترنت هل هو متصل أم لا.. وحقيقة لا أتذكر مصدرها .. Private Function chLongWeb() As Boolean        Dim blnIntStat As Boolean        If Not blnIntStat = InternetGetConnectedState(0&, 0&) Then            chLongWeb = True        Else            chLongWeb = False            MessageBox.Show("حالة الإتصال بالإنترنت هي =  " & blnIntStat.ToString() & Chr(13) & "فضلاً قم بوصل الإنترنت")        End If    End Function
  12. شكراً للجميع .. ولكن الإستفسار الثاني : ماهي النتيجة عند الوصول 100% ؟ .. هل هو ( الطرد من المنتدى مثلاً ) أم هناك خطوات تتبع في هذه الحالة .. الإستفسار الرابع : ما هو الفرق بين العضو والمشترك ؟؟ .. مع العلم أنا قرأت بأنه ( ليس هناك ما يسمى بمشترك .. وسوف يتم تحويل المشتركين إلى أعضاء ) هل هذا صحيح !! وإذا كان صحيح .. مازال يظهر لي تحت الإسم ( مشترك ) .
  13. إنذار: (0%) _ _ _ _ _ عدة إستفسارات للإدارة أمل منهم المساعدة .. 1 - فضلاً أمل توضيح معنى الإنذار في المنتدى .. 2 - وماهي نتيجته عندما يصل إلى 100% 3 - وكيفية السبيل للخلاص من علامة الإنذار أو إنهاء هذا الحرج منه خاصة أن الجميع يرون ذلك 4 - وما هو الفرق بين العضو والمشترك
  14. الحمد لله وجدت الحل .. بعد جهد جهيد .. وصبر مرير .. طبعاً من قوة اللغة الإنجليزية لدي ( مصيبة ) ومن باب الأمانة بعد ما توصلت للحل قمت أراجع كتاب ( احتراف Visual Basic .Net ) من إعداد الأستاذ / محمد حمدي غانم اقتبست جزئية من الحل اللي هو وضعه في مثل هذه الحالة .. ووضعت عليه اللون الأحمر ..    Private Sub richTextBox1_MouseDown(ByVal sender As Object, ByVal e As _    System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseMove        '   أجراء لتنقية الكلمة أو سلسلة الأرقام التي يتحرك مؤشر الفأرة فوقه        Dim positionToSearch, i, StartWord, EndWord, LengthWord As Integer       '   تحديد موضع الرمز الذي عليه مؤشر الفأرة        positionToSearch = RichTextBox1.GetCharIndexFromPosition(New Point(e.X, e.Y))        '   إذا كان الرمز الحالي  يمثل رقم من 0 إلى 9 إكمل الإجراء        '   يمكن حذف هذا الشرط في حالة تحديد أي كلمة        If Asc(RichTextBox1.Text.Chars(positionToSearch)) > 48 _        And Asc(RichTextBox1.Text.Chars(positionToSearch)) < 57 Then            '   تحديد موضع أول الكلمة            For i = positionToSearch To 0 Step -1                If Me.RichTextBox1.Text.Chars(i) = Chr(32) _                Or RichTextBox1.Text.Chars(i) = [COLOR=red]Chr(13)[/COLOR] _                Or Me.RichTextBox1.Text.Chars(i) = [COLOR=red]Chr(10)[/COLOR] Then                    StartWord = i + 1                    Exit For                End If            Next            '   تحديد موضع نهاية الكلمة            For i = positionToSearch To (RichTextBox1.TextLength - 1)                If RichTextBox1.Text.Chars(i) = Chr(32) _                Or RichTextBox1.Text.Chars(i) = [COLOR=red]Chr(13)[/COLOR] _                Or RichTextBox1.Text.Chars(i) = [COLOR=red]Chr(10)[/COLOR] Then                    EndWord = i                    Exit For                End If            Next            '   حدد طول الكلمة الحالية            LengthWord = EndWord - StartWord            '   أطبع هذه الكلمة في أداة العنوان            Label9.Text = RichTextBox1.Text.Substring(StartWord, LengthWord)        End If    End Sub
  15. وضعت أداة Rich text Box على Form جديد السؤال أرغب في معرفة الطريقة التي تمكني من أن أجعل مؤشر الفأرة عند الوقوف على إحدى الجمل أو كلمة معينة يقرأ هذه الجملة أو الكلمة .. أي يخزنها في متغير أو ما شابه .. ليتسنى لي معالجة هذه الكلمة فيما بعد .. حاولت البحث في هذا المنتدى عن هذه الطريقة ولم إجدها حتى حاولت في المنتديات الأجنبية ولكن هناك قصور في اللغة الإنجليزية لدي أمل من أعضاء المنتدى مساعدتي . لأن المشروع متعطل على هذه المرحلة فقط ............ وشكراً :rolleyes: