إعتزار

بسم الله الرحمن الرحيم

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

أولاً أنا آسف إذا كان الأسلوب خطأ ونلتمس منكم العذر وخاصة الأخ محمد المهدي وأنا كان قصدي من الطريقة أعرف إذا كان الموضوع يستاهل إنو الواحد يكتب فيه أم الموضوع ما يستاهل آسف للمرة الثانية والمرة المليون؟؟؟؟؟؟

وهذا هو الكود

Imports System.IO

Public fileSt As FileStream = New_ FileStream("C:\Data.dat",FileMode.Create,FileAccess.write,FileShare.write")

Write

Public crlf As String = chr (13) & chr(10)

Private sub Button1_click

Try

File St.Lock(0,100)

Textbox2.Text = "Locked"

Catch Ex As Exception

Textbox1.AppendText(Ex.Message &crlf)

End Try

EndSub

Private sub Button2_click

Try

File St. UnLock(0,100)

Textbox2.Text = "UnLocked"

Catch Ex As Exception

Textbox1.AppendText(Ex.Message &crlf)

End Try

EndSub

Private sub Button3_click

Dim Values As Byte

Values =New Byte(){1,2,3,4,5}

Try

FileSt.Seek(0,Seekorigin.Begin)

FileSt.write(values,0,5)

Textbox1.AppendText("Successfully update file"&crlf)

Catch Ex As Exception

Textbox1.AppendText(Ex.Message &crlf)

End Try

EndSub

شكراً جزيلاً لكم