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

خطأ في كود File كتبته آتمنى أحد يسآعدني ..

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

السلام عليكم ورحمه الله وبركآته ..

آتمنـى آحد يعدل على آلكود مو رآضي يشتغل .. !!

و يوضح لي وين الخطأ .؟

و الله يجزآكم كل خير ..

هذآ الكود ..

Imports System.IO

Public ClassForm1
	Dim File_Menu As String = "d:\v.base\menu.txt"
	Dim File_Price As String = "d:\v.base\Price.txt"
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Dim W_menu As StreamWriter = New StreamWriter(File_Menu, True)
		Dim W_Price As StreamWriter = New StreamWriter(File_Price, True)
	End Sub
	Private Sub Buttonm1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

		Try
			W_menu.WriteLine(TextBox1)
			W_Price.WriteLine(TextBox2)
			W_menu.Close()
			W_Price.Close()
			ListBox1.Items.Add(TextBox1.Text)
			ListBox2.Items.Add(TextBox2.Text)
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try
	End Sub
End Class

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

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

#2

عدلت بآلكود .. و آلحمد لله ظبط :) 

Imports System.IO
Public Class owener
	Dim File_Menu As String = Directory.GetCurrentDirectory & "\menu.txt"
	Dim File_Price As String = Directory.GetCurrentDirectory & "\Price.txt"
	Dim W_menu As New StreamWriter(File_Menu, True)
	Dim W_Price As New StreamWriter(File_Price, True)
	Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ADD.Click
		Try
			TextBox1.Focus()
			W_menu.WriteLine(TextBox1)
			W_Price.WriteLine(TextBox2)
			TextBox1.Clear()
			TextBox2.Clear()
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try
	End Sub
	Private Sub Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click, Close.Click
		W_menu.Close()
		W_Price.Close()
		Me.Hide()
		Form1.Show()
	End Sub
End Class

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

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

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