سؤال: عمل امتداد خاص ببرنامجك

وعليكم السلام

Private Sub ValueCommand()
	On Error Resume Next
	Dim x As Microsoft.Win32.RegistryKey
	x = Microsoft.Win32.Registry.ClassesRoot
	x = x.OpenSubKey(".Laeth\Shell\Open\Command", True)
	' x.SetValue("", "c:\windows\system32\ExtensionFile.exe")
	'CommandLineArgs اضافة %1 لمسار البرنامج حتي يتعرف علي 
	x.SetValue("", """c:\windows\system32\ExtensionFile.exe""" + """%1""")
	x.Close()
End Sub

'RichTextBox1.LoadFile(S)
RichTextBox1.LoadFile(s, RichTextBoxStreamType.PlainText)

تنقيح الكود

						
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		dim exe as String = "c:\windows\system32\ExtensionFile.exe"
		dim ico as String = "c:\windows\system32\ExtensionIcon.ico"

		If Not IsRegister(".Laeth") Then
				if Register(".Laeth", "For Laeth File", ico, """" + exe + """") then
						FileCopy(Application.ExecutablePath, exe)
						FileCopy("ExtensionIcon.ico", ico)
				End If
		End If

		If (My.Application.CommandLineArgs.Count > 0) Then
				Dim s As String = My.Application.CommandLineArgs(0)
				If IO.File.Exists(s) Then
						RichTextBox1.LoadFile(s, RichTextBoxStreamType.PlainText)
				End If
		End If

End Sub

' التحقق من تسجيل نوع الملف
function  IsRegister(ext as string) as Boolean
	if Registry.ClassesRoot.OpenSubKey(ext) is Nothing Then Return False
		return true
End Function

' تسجيل نوع الملف
Function Register(ByVal ext As String, comment as string, icon as string, cmd as string) As Boolean
		If Not IsRegister(ext) Then
				'انشاء الامتداد واضافة تعليق لنوع الملف
				Registry.ClassesRoot.CreateSubKey(ext).SetValue(Nothing, comment)
				' تخصيص ايقونة لنوع الملف
				Registry.ClassesRoot.CreateSubKey(ext + "\DefaultIcon").SetValue(Nothing, icon)
				' اضافة فتح الملف بواسطة مسار البرنامج
				Registry.ClassesRoot.CreateSubKey(ext + "\Shell\Open\Command").SetValue(Nothing, cmd + " " + """%1""")
				Return True
		End If
		Return False
End Function

' إلغاء تسجيل نوع الملف
Function UnRegister(ByVal ext As String) As Boolean
		If IsRegister(ext) Then
				Registry.ClassesRoot.DeleteSubKey(ext)
				Return True
		End If
		Return False
End Function

يمكنك كذلك حفظ وفتح نفس البيات التي في الملف وذلك عن طريق التسلسل serialize وذلك عند فتح الملف