积极答复者
记事本程序如何实现双击打开文件?

问题
答案
全部回复
-
问题解决了,谢谢老师,在这把代码贴出来(Form1为记事本的主界面窗口)。
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'接受双击打开
Dim MyFileName As String = "" '接受文件的地址
Dim CMD() As String '定义数组接受来自系统信息
Dim i As Integer
CMD = System.Environment.GetCommandLineArgs() '接受信息
i = CMD.GetUpperBound(0) '判断CMD内一维的子集个数
MsgBox("文件信息数组个数为:" & i+1) '调试完毕时可以注释掉
If i > 0 Then '若多于2个,则第二个是文件地址
MyFileName = CMD(1)
MsgBox(MyFileName) '调试完毕时可以注释掉
End If
Try
'保存该文件路径和名称
strFileName = MyFileName
Dim fileContents As String
fileContents = My.Computer.FileSystem.ReadAllText(strFileName, System.Text.Encoding.Default)
'显示文本框中的内容,System.Text.Encoding.Default获取操作系统的当前 ANSI 代码页的编码。
RichTextBox1.Text = fileContents
Catch ex As Exception
MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
End TryEnd Sub
其他程序要实现这个功能就可以参考这个例程了!- 已编辑 心随 2009年12月8日 6:04 写错