24-08-13, 04:51 PM
24-08-13, 06:31 PM
السلام عليكم ورحمة الله وبركاته
أخي الكريم سؤالك غير كامل
فأنت لم توضح أين يوجد النص
إذا كان النص موجود داخل textbox فما عليك إلا وضع الكود التالي
بالتوفيق
أخي الكريم سؤالك غير كامل
فأنت لم توضح أين يوجد النص
إذا كان النص موجود داخل textbox فما عليك إلا وضع الكود التالي
كود :
[color=#0000FF]Public Class [/color][COLOR="#2B91AF"]Form1
[/COLOR][color=#0000FF]Private Sub [/color][color=#000000]Button1_Click([/color][color=#0000FF]ByVal [/color][color=#000000]sender [/color][color=#0000FF]As [/color][color=#000000]System.[/color][color=#2B91AF]Object[/color][color=#000000], [/color][color=#0000FF]ByVal [/color][color=#000000]e [/color][color=#0000FF]As [/color][color=#000000]System.[/color][color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles [/color][COLOR="#000000"]Button1.Click
[/COLOR][color=#0000FF]For Each [/color][color=#000000]Line [/color][color=#0000FF]As String In [/color][COLOR="#000000"]TextBox1.Lines
MsgBox(Line)
[/COLOR][COLOR="#0000FF"]Next
End Sub
End Class
[/COLOR]بالتوفيق
24-08-13, 06:36 PM
كود :
MsgBox("عفواً" & vbNewLine & "الجواب خطأ" & vbNewLine & "حاول مرة أخرى" & vbNewLine & "وشكراً")24-08-13, 11:29 PM
بارك الله فيكم جميعا ... أفدتوني كثيرا
مشكورون
مشكورون
24-08-13, 11:30 PM
:o:p ............................................