برنامج لتنزيل الملفات من الانترنت
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الة حاسبة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
مثال للبحث عن النصوص و تلوينها
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
متصفح انس الاسلامي
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
متصفح ملفات
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
مسابقات
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
مستعرض صور
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
برنامج مفتوح الباحث عن كلمة
بخصوص البرنامج الباحث عن الكلمة وملووونها جدآ سهلة
أفتح مشروع جديد.
على الفووورم
أضف Button
أضف Text box
أضف Rich text box
دووبل كليك على الفورم
والصق هذا الكود
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الة حاسبة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
مثال للبحث عن النصوص و تلوينها
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
متصفح انس الاسلامي
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
متصفح ملفات
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
مسابقات
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
مستعرض صور
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
برنامج مفتوح الباحث عن كلمة
بخصوص البرنامج الباحث عن الكلمة وملووونها جدآ سهلة
أفتح مشروع جديد.
على الفووورم
أضف 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
مثال للبحث عن النصوص و تلوينها
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
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
مثال للبحث عن النصوص و تلوينها
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]