[سعود الشامان]

كود :

Imports System.IO

Public Class Form1
   Dim s As String = 10.2
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

       SaveFileDialog1.Filter = "ملف (*.plist*)|*.plist" ' صيغة الملف
       SaveFileDialog1.FileName = "SystemVersion" ' اسم الملف عند الحفظ
       If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK _
    Then
           My.Computer.FileSystem.WriteAllText _
           (SaveFileDialog1.FileName, TextBox1.Text, True) 'حفظ التيكست بوكس1
           Button2.Enabled = False
       End If
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If ComboBox1.Text = Nothing Then
           MsgBox("اختر رقم الإصدار")
       Else
           s = 10.2
           TextBox1.Text = TextBox1.Text.Replace(s, ComboBox1.Text)
           Button1.Enabled = False
           Button2.Enabled = True
       End If

   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       TextBox1.Text = My.Resources.SystemVersion ' التيكست بوكس1 = ملف الريسورس
   
   End Sub
End Class

المثال في المرفقات

---

غير هذا السطر

كود :

       SaveFileDialog1.Filter = "ملف (*.plist*)|*.plist" ' صيغة الملف

إلى هذا السطر

كود :

SaveFileDialog1.Filter = "ملف (*.txt*)|*.txt" ' صيغة الملف عند الحفظ

وأيضا قم بتغيير الملف الموجود في Resources الى ملف نصي