منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[طلب] ممكن حد يساعدني في هذه الاكواد؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [طلب] ممكن حد يساعدني في هذه الاكواد؟ (/showthread.php?tid=10165)

[طلب] ممكن حد يساعدني في هذه الاكواد؟ - المهندس علي - 21-08-13

السلام عليكم ورحمة الله وبركاته
..............................................................
عندي صندوقين نص (TextBox) في كل منهما نص معين اريد الاكواد الاتيه وجزاكم الله خيرا.
1 - كود يطبع النص في الصندوق الاول والثاني (يعني يطبع النص في الصندوق الاول وتحته النص في الصندوق الثاني)
2 - كود لحفظ النص في الصندوق الاول الى ملف نصي.
3-كود للبحث عن كلمة في صندوق النص الاول.


ارجو من الاخوان المساعدة ولكم جزيل الشكر....

[طلب] ممكن حد يساعدني في هذه الاكواد؟ - 3booody - 21-08-13

لطباعة النصين

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim PrintDoc As New PrintDocument
            AddHandler PrintDoc.PrintPage, AddressOf Print_Doc
            PrintDoc.Print()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Print_Doc(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
        ev.Graphics.DrawString(TextBox1.Text & vbNewLine & TextBox2.Text, New Font("Arial", _
        11, FontStyle.Regular), Brushes.Black, 120, 120)

        ev.HasMorePages = False
    End Sub

للحفظ مافي صندوق النص الاول

كود :
If Not TextBox1.Text = "" Then
            Using W As IO.StreamWriter = IO.File.CreateText("مسار النص")
                W.Write(TextBox1.Text)
                W.Close()
            End Using
        End If

للبحث في صندوق النص الاول

كود :
If TextBox1.Text.Contains("3booody") Then
            MsgBox("الكلمة موجوده")
        End If


[طلب] ممكن حد يساعدني في هذه الاكواد؟ - المهندس علي - 21-08-13

[SIZE=6]شكرا للك اخي 3booody انت فعلا رائع ومبدع بكل ما تعنيه الكلمة [/SIZE]

[طلب] ممكن حد يساعدني في هذه الاكواد؟ - 3booody - 21-08-13

المهندس علي كتب :[SIZE=6]شكرا للك اخي 3booody انت فعلا رائع ومبدع بكل ما تعنيه الكلمة [/SIZE]

عفوآآ اخي العزيز واجبي شكرآ لك

[طلب] ممكن حد يساعدني في هذه الاكواد؟ - hoob computer - 21-08-13

أعضاء رائعين Smile

جزاكم الله خيراً ...


السلام عليكم

[طلب] ممكن حد يساعدني في هذه الاكواد؟ - 3booody - 21-08-13

hoob computer كتب :أعضاء رائعين Smile

جزاكم الله خيراً ...


السلام عليكم

عليكم السلام وجودك الاروع وجزاك بالمثل