vb.net自動(dòng)保存 vb保存數(shù)據(jù)到指定的excel

vb.net 調(diào)試 保存 剛從vb6.0轉(zhuǎn)戰(zhàn)到vb.net 發(fā)現(xiàn).net運(yùn)行調(diào)試后，代碼就自動(dòng)保存了。能否取消自動(dòng)保存？

準(zhǔn)備VB6.0源代碼

創(chuàng)新互聯(lián)公司為您提適合企業(yè)的網(wǎng)站設(shè)計(jì)?讓您的網(wǎng)站在搜索引擎具有高度排名，讓您的網(wǎng)站具備超強(qiáng)的網(wǎng)絡(luò)競(jìng)爭(zhēng)力！結(jié)合企業(yè)自身，進(jìn)行網(wǎng)站設(shè)計(jì)及把握，最后結(jié)合企業(yè)文化和具體宗旨等，才能創(chuàng)作出一份性化解決方案。從網(wǎng)站策劃到網(wǎng)站設(shè)計(jì)、網(wǎng)站制作， 我們的網(wǎng)頁(yè)設(shè)計(jì)師為您提供的解決方案。

1

打開(kāi)visual basic 6.0編程工具，制作一個(gè)簡(jiǎn)單的小程序。在界面中增加一個(gè)按鈕；一個(gè)文本框，在點(diǎn)擊按鈕后，會(huì)彈出對(duì)話框。

2

生成運(yùn)行程序進(jìn)行測(cè)試。

3

點(diǎn)擊按鈕，可以看到彈出的對(duì)話框和文本框中顯示的字符串。

4

將測(cè)試程序保存到桌面的一個(gè)測(cè)試文件夾。

END

將VB6.0源代碼轉(zhuǎn)換為VB.NET

打開(kāi)Microsoft visual studio 2008。

打開(kāi)剛才保存的vb6.0項(xiàng)目。

會(huì)彈出升級(jí)向?qū)?，按照默認(rèn)選項(xiàng)進(jìn)行升級(jí)。

等待幾十秒后，升級(jí)成功。

可以在vs編程工具中看到轉(zhuǎn)換為vb.net的源代碼.

在剛才的VB6.0源代碼文件夾中會(huì)看到新增一個(gè)[project1.net]的文件夾。

文件夾中就是轉(zhuǎn)換為vb.net的源代碼文件，已經(jīng)成功將VB6.0轉(zhuǎn)換為VB.net。

求VB.NET寫(xiě)的自動(dòng)保存txt文檔的代碼

直接給你保存和讀取TXT的VB.NET的函數(shù)代碼，你只要在觸發(fā)事件中調(diào)用就可以了，注意換行，有的是顯示不下去才顯示兩行的，還有strFilePath代表文件路徑，TempENG代表文件編碼格式如：UTF-8或者GB2312，strText 代表內(nèi)容字符串。

#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 = strS line vbCrLf

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 自動(dòng)保存文件到指定文件夾

老實(shí)說(shuō)不一定要webBrowser，這是Windows下載文件界面啊，不是VB.Net畫(huà)出來(lái)的。

真的是做下載文件，WebClient.DownloadFile方法就足夠了，調(diào)用方法后會(huì)自動(dòng)彈出Windows下載任務(wù)窗口。

在VS.NET里也提供了一個(gè)com接口，可以直接調(diào)用迅雷的dll，下載文件可以讓你自由選擇是用迅雷下載還是通過(guò)Windows下載任務(wù)來(lái)執(zhí)行下載。

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;

//通知瀏覽器下載文件而不是打開(kāi)?

Response.ContentType?=?"application/octet-stream";

//下載的文件名

Response.AppendHeader("content-disposition",?"attachment;filename="?+?name);

//文件的大小

Response.AppendHeader("Content-Length",???file.Length.ToString());

Response.WriteFile(path);

}

介紹一個(gè)更簡(jiǎn)單的方法給你，從webbrowser獲取點(diǎn)擊的超連接，然后自由選擇下載，先在引用里引用com組件

然后在點(diǎn)擊事件中加代碼

string?url?=?webBrowser1.Document.Links[1].GetAttribute("href");

ThunderAgentLib.AgentClass?agent?=?new??ThunderAgentLib.AgentClass();//創(chuàng)建對(duì)象?

agent.AddTask(url,?"默認(rèn)保存文件名",?"C:\\默認(rèn)路徑",?"",?"",?1,?0,?5);

agent.CommitTasks2(1);//提交

我用的是C#代碼，VB.NET大同小異

當(dāng)前題目：vb.net自動(dòng)保存 vb保存數(shù)據(jù)到指定的excel
本文路徑：http://muchs.cn/article0/dospoio.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供建站公司、搜索引擎優(yōu)化、微信小程序、虛擬主機(jī)、靜態(tài)網(wǎng)站、外貿(mào)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)