扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
System.Windows.Forms.OpenFileDialog
创新互联建站为客户提供专业的成都网站建设、网站设计、程序、域名、空间一条龙服务,提供基于WEB的系统开发. 服务项目涵盖了网页设计、网站程序开发、WEB系统开发、微信二次开发、手机网站开发等网站方面业务。
System.Windows.Forms.SaveFileDialog
System.Windows.Forms.FolderBrowserDialog
以上三个类均能够很好的解决楼主的需求。
具体的请lz自己查msdn
我不知道我的理解是否正确,不过你先看看吧
以图片为例,我的桌面有一个 例图.jpg 的文件,我自己写的程序 图片浏览器.exe
将图片的启动程序修改成 图片浏览器.exe
图片浏览器.exe 打开 例图.jpg 文件
解决方案如下,利用了 System.Environment.GetCommandLineArgs()函数
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim MyFile As String = "" '用以保存所打开的文件路径
Dim Parameters() As String '用以保存数组参数
Dim i As Integer
Parameters= System.Environment.GetCommandLineArgs()
i = Parameters.GetUpperBound(0)
If i 0 Then
MyFileName = Parameters(1)
PictureBox1.ImageLocation = MyFileName
End If
End Sub
参考文件:MSDN
原创程序哦
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Process.Start("C:\1.txt")
End Sub
import System.IO
用文件流读
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim open As New OpenFileDialog
open.Filter = "テキスト ファイル (*.txt)|*.txt" _
"|すべてのファイル (*.*)|*.*"
If open.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = open.FileName
Dim file As New FileStream(open.FileName, FileMode.Open, FileAccess.Read)
Dim encoding As Encoding = encoding.GetEncoding(Util.ToString(Me.ComboBox1.SelectedItem))
Dim stream As New StreamReader(file, encoding)
Dim strB As New StringBuilder
While (Not stream.EndOfStream)
strB.AppendLine(stream.ReadLine)
End While
Me.RichTextBox1.Text = strB.ToString
stream.Close()
End If
End Sub
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流