想自己定义一个系统可以认出的文件类型吗？很简单，只要在注册表中申请一下就可以。以下示例为创建一个扩展名为"test"，默认为记事本打开的文件。
将以下内容放入记事本，保存为"xxx.reg"。注意红色标记部分，应该改成你想要的图标路径！
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\.test]
@="测试文件"
[HKEY_CLASSES_ROOT\.test\DefaultIcon]
@="c:\\test.ico"
[HKEY_CLASSES_ROOT\.test\OpenWithList]
[HKEY_CLASSES_ROOT\.test\OpenWithList\notepad.exe]
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.test]
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.test\OpenWithList]
"a"="notepad.exe"
"MRUList"="a"
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.test\OpenWithProgids]
"test_auto_file"=hex(0):
这是我网上找的。还有：
Imports System
Imports System.IO
Public Class Form1
Sub main1() '检测传进来的参数
Dim cmds As String()
cmds = System.Environment.GetCommandLineArgs
If cmds.Length > 0 Then
Dim i As Integer
For i = 0 To cmds.Length - 1
If cmds(i).ToString Like "*.gulyar" Then '其中abc为你自定义文件的扩展名
cmd = cmds(i).ToString
iscaseurl = True
End If
Next
End If
End Sub
Dim strFileName As String
Dim cmd As String = "" '用来保存传入的参数
Dim iscaseurl As Boolean = False '判断是否是你需要的参数
Dim i As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strFileName As String
Dim SaveFileDialog1 As New SaveFileDialog
strFileName = TextBox1.Text
With SaveFileDialog1
.DefaultExt = "byt "
.FileName = strFileName
.Filter = " Textfiles ( *.gulyar )|*.gulyar"
.FilterIndex = 1
.InitialDirectory = "f:\\"
.OverwritePrompt = True
.Title = "文件保存对话框"
End With
'以下是把文本框中的文字另保存为文本文件
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
strFileName = SaveFileDialog1.FileName
'Create(strFileName)
Dim objWriter As IO.StreamWriter = New IO.StreamWriter(strFileName, False, System.Text.Encoding.Default)
objWriter.Write(TextBox1.Text & Chr(13) & TextBox2.Text & Chr(13) & TextBox3.Text & Chr(13) & RichTextBox1.Text)
objWriter.Close()
objWriter = Nothing
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim strFileName As String
Dim openfiledialog1 As New OpenFileDialog
' 设定打开文件对话框的属性
With openfiledialog1
.Filter = "psy( *.gulyar )|*.gulyar"
.InitialDirectory = "f:\\"
.Title = "打开文件对话框"
End With
'以下是打开文本文件，并通过文本框显示出来
If openfiledialog1.ShowDialog() = DialogResult.OK Then
strFileName = openfiledialog1.FileName
Dim objReader As IO.StreamReader = New IO.StreamReader(strFileName, System.Text.Encoding.Default)
TextBox1.Text = objReader.ReadLine
TextBox2.Text = objReader.ReadLine
TextBox3.Text = objReader.ReadLine
RichTextBox1.Text = objReader.ReadToEnd
objReader.Close()
objReader = Nothing
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call main1()
' reader(cmd)
Dim objReader As IO.StreamReader = New IO.StreamReader(cmd, System.Text.Encoding.Default)
TextBox1.Text = objReader.ReadLine
TextBox2.Text = objReader.ReadLine
TextBox3.Text = objReader.ReadLine
RichTextBox1.Text = objReader.ReadToEnd
objReader.Close()
objReader = Nothing
End Sub
Public Shared Sub Create(ByVal FILE_NAME As String)
' Create the new, empty data file.
If File.Exists(FILE_NAME) Then
' Console.WriteLine("{0} already exists!", FILE_NAME)
MsgBox(FILE_NAME + "已经退出！", , "错误")
Return
End If
Dim fs As New FileStream(FILE_NAME, FileMode.CreateNew)
' Create the writer for data.
Dim w As New BinaryWriter(fs)
' Write data to Test.data.
Dim i As Integer
For i = 0 To 10
w.Write(CInt(i))
Next i
w.Close()
fs.Close()
End Sub
Public Shared Sub reader(ByVal FILE_NAME As String)
' Create the reader for data.
Dim fs As New FileStream(FILE_NAME, FileMode.CreateNew)
fs = New FileStream(FILE_NAME, FileMode.Open, FileAccess.Read)
Dim r As New BinaryReader(fs)
' Read data from Test.data.
Dim i As Integer
For i = 0 To 10
Console.WriteLine(r.ReadInt32())
Next i
r.Close()
fs.Close()
End Sub
End Class
这是我找的。但都是关于文字的东西，没有图片声音之类的。呵呵。。。。。还差一点了。大家帮个忙。谢谢
