الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال بسيط..للمبرمجين

بدأه تركي خالد في 6 مايو 2009 · 14 رد · 827 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه ،،

اريدطريقه كتابة كودالبحث

"search"

طريقة البرنامج:

يقوم المستخدم بادخال اسماء في قائمه

وعندالضغط على buttonالبحث

يدخل الاسم اللي يريدالبحث عنه

وعندوجود الاسم تظهرله رساله بموقع الاسم داخل القائمه

وعندعدم وجوده..تظهرله رسالة بعدم وجوده..

افيدوني جزيتم خيرا...

#2

هـذآ كود من أحد أعضاء هالمنتــدى .. 

Dim name = InputBox("رسآله لسؤآل المستخدم عن الأسم المرآد البحث عنه .")
		If Not name Is Nothing Then
			If Not ListBox1.Items.Contains(name) Then
				MsgBox("الأسم غير موجود ")
				Exit Sub
			End If
		End If

		ListBox1.SelectedIndex = ListBox1.FindString(name)

تم تعديل هذه المشاركة بواسطة إشراقــه فجــر في 6 مايو 2009 في 21:59

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#3

طيب...

كيف اطلع رسالة للمستخدم بموقع الاسم؟؟

مثلا..

القائمه فيها..

ali

ahmed

omar

عندما يدخل اسم ahmed

تظهر له رسالة..

ahmed found at location2

اتمنى سؤالي يكون واضح

#4 
FindString , FindStringExact
النتيجة هى رقم العنصر داخل الليست أو -1 إذا لم يتم العثور على هذا العنصر

FindString
تبحث عن أول عنصر يبدأ بالقيمة التى تبحث عنه

FindStringExact
تبحث عن أول عنصر يطابق القيمة التى تبحث عنها

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#5

تعديل على الكود السآبــق .. 

 Dim name = InputBox("رسآله لسؤآل المستخدم عن الأسم المرآد البحث عنه .")
		If Not name Is Nothing Then
			If Not ListBox1.Items.Contains(name) Then
				MsgBox("الأسم غير موجود ")
				Exit Sub
			End If
		End If
		ListBox1.SelectedIndex = ListBox1.FindString(name)
		Dim x As Integer
		x = (ListBox1.SelectedIndex + 1)
		MsgBox(name & " found at location" & x)

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#6

شكرا لكم اعزائي على تفاعلكم مع موضوعي المتواضع

لدي سؤال آخر((آسف على الاطاله ))

اريد كتابة كود للحفظ بنوعيه

save

saveas

لقد حاولت وكتبت كودالحفظ ولكن

اريد التحقق من صحة الكودالذي كتبته

جزيت خيرا.....اخوكم:تركي خالد

#7

للرفـــــــــــــــــــــــــــــــــــــع للأهمية.. :wub:

#8

أخى الكريم ,,

قم بفتح موضوع جديد وضع فيه سؤالك ليكون مرجعا للبحث للأعضاء الجدد

ثم

قلت

اقتباس
لقد حاولت وكتبت كودالحفظ ولكن

اريد التحقق من صحة الكودالذي كتبته

ضع الكود الذى كتبته فى الموضوع ونخبرك بالأخطاء الموجودة فيه -_-

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#9

مرحباً أخي الكريم,

بالنسبة لـ( Code ) الحفظ فهو ( Code ) يقوم أولاً بالتأكد من أن الملف المستخدم لم يتم حفظه أي أنه لم يتم فتحه من على القرص الصلب أو أي قرص تخزين أخر, إذا لم يكن موجود فيتم استدعاء ( Code ) الحفظ كـ, وإذا كان فيتم كتابة محتويات الملف الحالي عوضاً عن محتويات الملف الموجود,

أما بالنسبة لـ( Code )( الحفظ كـ ) والذي لا يقوم بالتأكد من وجود الملف أي يظهر مربع حوار الحفظ بشكل مباشر ليسأل المستخدم عن المكان والاسم التابعان للملف المراد حفظه .

نفهم أن العملية برمتها لها صلة وصل بجملة شرطية ..

وكما ذكر الأخ Ghost2010, أننا نحتاج لرؤية الـ( Code ) الذي قمت بصياغته لنساعدك في حل مشاكله إن وجدت, لأنه في الأول والأخير عليك فهم ما تقوم بصياغته وليس نسخه ولصقه :P .

بالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#10

باذن الله عندما اتحقق من صحته سوف اضعه في موضوع جديد كمرجع.......

الكوداللذي قمت بكتابته:

كودالsave as

SaveFileDialog1.DefaultExt = "rtf"

If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

richexample.SaveFile(SaveFileDialog1.FileName)

End If

Name = SaveFileDialog1.FileName

أما كودالsave

SaveFileDialog1.DefaultExt = "rtf"

If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

richexample.SaveFile(SaveFileDialog1.FileName)

End If

If Name = "" Then

saveas.PerformClick()

Else

richexample.SaveFile("name")

End If

لكن للاسف لم يطبق الsave :blink:

لا أدري مالسبب؟؟ :angry:

عزيزيbasharالمهم الفهم لا النسخ واللصق؟؟

شكرا لتفاعلك..

#11
اقتباس
أما كودالsave

SaveFileDialog1.DefaultExt = "rtf"

If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

richexample.SaveFile(SaveFileDialog1.FileName)

End If

If Name = "" Then

saveas.PerformClick()

Else

richexample.SaveFile("name")

End If

أولا لم هذا الكود فى الـ Save?؟؟؟؟

If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

richexample.SaveFile(SaveFileDialog1.FileName)

End If

ثانيا

فى هذا السطر

richexample.SaveFile("name")

name هذا متغير يحمل اسم الملف فلم وضعته بين علامتى تنصيص؟؟؟؟؟

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#12

شكراً لك اخي الكريم

لقدعلمت مالخطا لدي :P

وفهمت شرحك..وتم تطبيق البرنامج

((لكل جواد كبوة((

:happy:

سوف اضع هذا الكود في موضوع مستقل

دعواتي لك...

#13

مرحباً أخي الكريم,

إليك مثال بسيط عن فكرة الحفظ :

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

    [color= #000000; font-weight: bold;]Private CurrentFileName [color= #b1b100;]As Single [color= #339933;]= String[color= #339933;].[color= #990000;]Empty

    [color= #000000; font-weight: bold;]Private Sub SaveFile[color= #009900;]([color= #009900;])

        [color= #b1b100;]If CurrentFileName [color= #339933;]= String[color= #339933;].[color= #990000;]Empty Then

            SaveFileAs[color= #009900;]([color= #009900;])

        [color= #b1b100;]Else

            [color= #b1b100;]If Not IO[color= #339933;].[color= #990000;]File[color= #339933;].Exists[color= #009900;](CurrentFileName[color= #009900;]) Then

                SaveFileAs[color= #009900;]([color= #009900;])

            [color= #b1b100;]Else

                RichTextBox1[color= #339933;].SaveFile[color= #009900;](CurrentFileName[color= #339933;], RichTextBoxStreamType[color= #339933;].RichText[color= #009900;])

            [color= #990000;]End [color= #b1b100;]If

        [color= #990000;]End [color= #b1b100;]If

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Private Sub SaveFileAs[color= #009900;]([color= #009900;])

        Using SFD [color= #b1b100;]As [color= #000000; font-weight: bold;]New SaveFileDialog

            With SFD

                [color= #339933;].Filter [color= #339933;]= [color= #0000ff;]"RichText (*.rtf)|*.rtf"

                [color= #b1b100;]If [color= #339933;].ShowDialog [color= #339933;]= [color= #cc66cc;]1 Then

                    RichTextBox1[color= #339933;].SaveFile[color= #009900;]([color= #339933;].OpenFile[color= #339933;], RichTextBoxStreamType[color= #339933;].RichText[color= #009900;])

                [color= #990000;]End [color= #b1b100;]If

            [color= #990000;]End With

        [color= #990000;]End Using

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Private Sub BtnOpen_Click[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

    ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles BtnOpen[color= #339933;].Click

        Using OFD [color= #b1b100;]As [color= #000000; font-weight: bold;]New OpenFileDialog

            With OFD

                [color= #339933;].Filter[color= #339933;]= [color= #0000ff;]"RichText (*.rtf)|*.rtf"

                [color= #b1b100;]If [color= #339933;].ShowDialog [color= #339933;]= [color= #cc66cc;]1 Then

                    CurrentFileName [color= #339933;]= [color= #339933;].FileName

                    RichTextBox1[color= #339933;].LoadFile[color= #009900;](CurrentFileName[color= #009900;])

                [color= #990000;]End [color= #b1b100;]If

            [color= #990000;]End With

        [color= #990000;]End Using

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Private Sub BtnSave_Click[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

    ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles BtnSave[color= #339933;].Click

        SaveFile[color= #009900;]([color= #009900;])

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Private Sub BtnSaveAs_Click[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

    ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles BtnSaveAs[color= #339933;].Click

        SaveFileAs[color= #009900;]([color= #009900;])

    [color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

المشروع في المرفقات,

بالتوفيق

AlgorthimForSaveFileSaveFileAs.rar

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 13 مايو 2009 في 01:17

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#14

تسلم يمينك اخي Bashar

لاعدمنا تفاعلك.. :wub:

#15

مرحباً أخي الكريم,

اعتذر منك على خطأ قمت بكتابته بالخطأ :(.

الخطأ هو أنني استخدمت الخاصية FileName عوضاً عن الخاصية Filter ولم انتبه لذلك, قمت بتعديل الـ( Code ) المكتوب بالأعلى وأيضاً عدلت المشروع هنا, مرة أخرى اعتذر .

بالتوفيق .

AlgorthimForSaveFileSaveFileAs.rar

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

مواضيع مشابهة