سلام عليكم و رحمة لله و بركاته..
منتقل حديثاً من ال PHP الى VB فرق :D
لازلت مبتدئ لكن واجتهتني مشكلة.. لا أعرف كيف أحله.. أريد من اليوزر أن يدخل أسمه و من ثم يقوم البرنامج تخزين الأسم في Txt فايل .. البرنامج نجح لهذه للحظة لكن المشكلة عندما يقوم بتخزين الأسم يقوم بكتبه فوق الأسم سابق أي الأسم السابق يختفي و يأتي مكانه الأسم الجديد ، أريد أن يحتفظ بالأسماء جميعها.. أي نتزل من سطر الى سطر /n لكنه ليست موجدة و بعد البحث وجدت في في بي أيتبعون vbnewline أستخدمه لكن لم جدي نفعاً
Imports System.Text
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Languge As String
Dim Name As String
Languge = ComboBox1.Text
If TextBox1.Text = "" Then
MsgBox("Text Nothing Entered")
Else
Name = TextBox1.Text + vbNewLine
If Name = "Abbas" Then
'MsgBox("Abbas good person")
Dim objStreamWriter As StreamWriter
'Pass the file path and the file name to the StreamWriter constructor.
objStreamWriter = New StreamWriter("C:\demo.txt")
'Write a line of text.
objStreamWriter.Write(Name)
'Close the file.
objStreamWriter.Close()
Else
' MsgBox("He's bad person")
If TextBox1.Text.Length > 0 Then
Dim objStreamWriter As StreamWriter
objStreamWriter = New StreamWriter("C:\demo.txt")
'Dim nas As Char
'nas =
'Pass the file path and the file name to the StreamWriter constructor.
'Write a line of text.
objStreamWriter.WriteLine(Name+vbCrLf)
'Close the file.
objStreamWriter.Close()
End If
End If
End If
If Languge = "" Then
'MsgBox("Nothing Entered")
ElseIf Languge = "VB" Then
' MsgBox("VB is good language wish the best in developing")
ElseIf Languge = "PHP" Then
'MsgBox("i was happay to use PHP ")
Else
'MsgBox("java still one of most important language")
End If
End Sub
End Classأعرف المشكلة سخيفة لكني لازلت مبتدئ