ادارة شرق المنصورة التعليمية

ليس لفكرك قيمة مالم يعرفه الاخرين- نشرف بكم شاهدوا موقعنا خذوا منه واعطوا له لنرفع مجد مصرنا
مدير الموقع


انضم إلى المنتدى ، فالأمر سريع وسهل

ادارة شرق المنصورة التعليمية

ليس لفكرك قيمة مالم يعرفه الاخرين- نشرف بكم شاهدوا موقعنا خذوا منه واعطوا له لنرفع مجد مصرنا
مدير الموقع

ادارة شرق المنصورة التعليمية

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

موقع للكمبيوتر التعليمى - ادارة شرق المنصورة التعليمية

عيد سعيد على كل من يحمى مصر ويدافع عنها ويقف مع مصر فى عثرتها

    برامج بالفيجول دوت نت

    sayed
    sayed
    dr
    dr


    عدد المساهمات : 170
    تاريخ التسجيل : 10/11/2009
    العمر : 68

    برامج بالفيجول دوت نت Empty برامج بالفيجول دوت نت

    مُساهمة من طرف sayed الثلاثاء نوفمبر 17, 2009 6:04 am

    برنامج لتنزيل الملفات من الانترنت
    [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

    الة حاسبة
    [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

    مثال للبحث عن النصوص و تلوينها
    [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

    متصفح انس الاسلامي
    [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


    متصفح ملفات
    [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

    مسابقات
    [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

    مستعرض صور
    [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

    برنامج مفتوح الباحث عن كلمة
    بخصوص البرنامج الباحث عن الكلمة وملووونها جدآ سهلة

    أفتح مشروع جديد.

    على الفووورم

    أضف Button
    أضف Text box
    أضف Rich text box


    دووبل كليك على الفورم

    والصق هذا الكود
    Imports System.Text
    Imports System.Text.RegularExpressions
    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim MatchCollectionX As MatchCollection
    MatchCollectionX = Regex.Matches(RichTextBox1.Text, TextBox1.Text)
    Dim S As Match
    Dim v As New ListBox
    For Each S In MatchCollectionX
    RichTextBox1.Select(S.Index, TextBox1.Text.Length)
    RichTextBox1.SelectionColor = Color.Red
    v.Items.Add(S.Value)

    Next
    If S.Success Then
    MsgBox("تم العثور على " & " " & v.Items.Count & " " & " نتيجة تطابق")
    End If
    End Sub
    End Class
    مثال للبحث عن النصوص و تلوينها

    [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

      مواضيع مماثلة

      -

      الوقت/التاريخ الآن هو الجمعة مارس 29, 2024 8:05 am