锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net自动保存 vba自动保存

IT技术保存

vb.net 调试 保存 刚从vb6.0转战到vb.net 发现.net运行调试后 ， 代码就自动保存了 。能否取消自动保存？准备VB6.0源代码
1
打开visual basic 6.0编程工具vb.net自动保存 ， 制作一个简单的小程序 。在界面中增加一个按钮vb.net自动保存；一个文本框vb.net自动保存 ， 在点击按钮后 ， 会弹出对话框 。
2
生成运行程序进行测试 。
3
点击按钮，可以看到弹出的对话框和文本框中显示的字符串 。
4
将测试程序保存到桌面的一个测试文件夹 。
END
将VB6.0源代码转换为VB.NET
打开Microsoft visual studio 2008 。
打开刚才保存的vb6.0项目 。
会弹出升级向导，按照默认选项进行升级 。
等待几十秒后，升级成功 。
可以在vs编程工具中看到转换为vb.net的源代码.
在刚才的VB6.0源代码文件夹中会看到新增一个[project1.net]的文件夹 。
文件夹中就是转换为vb.net的源代码文件，已经成功将VB6.0转换为VB.net 。
求VB.NET写的自动保存txt文档的代码直接给你保存和读取TXT的VB.NET的函数代码，你只要在触发事件中调用就可以了，注意换行，有的是显示不下去才显示两行的，还有strFilePath代表文件路径，TempENG代表文件编码格式如：UTF-8或者GB2312，strText 代表内容字符串 。
#Region "读取TXT"
Public Function ReadTxt(ByVal strFilePath As String, ByVal TempENG As String) As String
Dim mySr As System.IO.StreamReader
Dim strS As String
Dim n%
strS = ""
mySr = New System.IO.StreamReader(strFilePath, System.Text.Encoding.GetEncoding(TempENG))
Do
Dim line$ = mySr.ReadLine()
strS = strSlinevbCrLf
n = n + 1
Loop Until mySr.EndOfStream = True
mySr.Close()
Return strS
End Function
#End Region
#Region "保存TXT"
Public Function SaveTxt(ByVal strFilePath As String, ByVal strText As String, ByVal TempENG As String) As Boolean
Try
If Dir(strFilePath)"" Then File.Delete(strFilePath)
Dim mySw As System.IO.StreamWriter
Dim strLine() As String
mySw = New System.IO.StreamWriter(strFilePath, True, System.Text.Encoding.GetEncoding(TempENG))
strLine = Split(strText, vbCrLf)
For i As Integer = 0 To UBound(strLine)
mySw.WriteLine(strLine(i))
Next
mySw.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
#End Region
vb.net webbrowser 自动保存文件到指定文件夹老实说不一定要webBrowser，这是Windows下载文件界面啊，不是VB.Net画出来的 。
真的是做下载文件，WebClient.DownloadFile方法就足够了，调用方法后会自动弹出Windows下载任务窗口 。
在VS.NET里也提供了一个com接口，可以直接调用迅雷的dll，下载文件可以让你自由选择是用迅雷下载还是通过Windows下载任务来执行下载 。
webBroser下载文件
FileInfo file = new System.IO.FileInfo(Server.MapPath(path));
if (File.Exists(Server.MapPath(path)))
{
string name = Path.GetFileName(Server.MapPath(path));
//存在文件
Response.Clear();
Response.Buffer = false;
//通知浏览器下载文件而不是打开
Response.ContentType = "application/octet-stream";
//下载的文件名
Response.AppendHeader("content-disposition", "attachment;filename=" + name);
//文件的大小
Response.AppendHeader("Content-Length",file.Length.ToString());
Response.WriteFile(path);
}
介绍一个更简单的方法给你，从webbrowser获取点击的超连接，然后自由选择下载，先在引用里引用com组件
然后在点击事件中加代码
string url = webBrowser1.Document.Links[1].GetAttribute("href");

推荐阅读


上一篇：sap表增强，sap增强

下一篇：中国区块链未来在哪里，2020中国区块链