VB如何將程序的數(shù)據(jù)保存？

VB6.0

10年積累的網(wǎng)站制作、做網(wǎng)站經(jīng)驗(yàn)，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識你，你也不認(rèn)識我。但先做網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程，更有縉云免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

寫入：

Open "D:\123.txt" For Output As #1 '打開XXX路徑的XXX文件（雙引號里表示文件位置和文件名）

Print #1, Text1.Text '寫入Text1的Text內(nèi)容

Close #1 '關(guān)閉

讀取：

Open "D:\123.txt" For Input As #1 '打開打開XXX路徑的XXX文件（雙引號里表示文件位置和文件名）

Do While Not EOF(1)

Line Input #1, s

Text1.Text = s

Loop 'Do...Loop表示循環(huán)讀取文件的內(nèi)容，并讓Text1.Text=內(nèi)容

Close #1 '關(guān)閉

VB.net中讀寫文件主要使用System.IO命名空間。

① 使用?File.ReadAllText 讀取

Dim s As String = System.IO.File.ReadAllText("C:\a.txt")

② 使用 StreamReader 讀取，注意編碼格式和寫入的編碼保持一致。

Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)

Dim s As String = sr.ReadToEnd()

sr.Close()

VB中怎樣保存數(shù)據(jù)（保存在VB數(shù)據(jù)庫里）？

1.使用文件來記錄,下次運(yùn)行時(shí)讀取 .2.使用數(shù)據(jù)庫,可以考慮單機(jī)數(shù)據(jù)庫或網(wǎng)絡(luò)數(shù)據(jù)庫 3.如果數(shù)據(jù)量小,使用注冊表.

或者可以通過程序來保存：

set fs=createobject("scripting.filesystemobject")'創(chuàng)建文件操作對象

if fs.fileexists("C:\a.txt") then'如果C盤A.txt存在，那么讀取其內(nèi)容

set txt=fs.opentextfile("C:\a.txt",forreading,true)

set txtn=txt.readall

else'

set txtf=fs.createtextfile("c:\a.txt",true)'創(chuàng)建C盤下的a.txt

do'無限循環(huán)

wscript.sleep 1000'延時(shí)一秒

txtf.write a.text'寫入文本框中內(nèi)容

loop'循環(huán)結(jié)束

end if'判斷結(jié)束

在VB.NET下面如何顯示和保存縮放圖像

實(shí)現(xiàn)代碼如下：

Dim img As Image = Image.FromFile("D:\Image\tstImage.jpg") 'tstImage是原先的圖片

Dim grfx As Graphics = Me.CreateGraphics

grfx.DrawImage(img, 0, 0, img.Width * 3, img.Height * 3) '在Form里顯示

Dim imgnew As New System.Drawing.Bitmap(img, img.Height * 3, img.Width * 3) '新建一個(gè)放大的圖片

imgnew.Save("D:\Image\tstNewImage.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) '保存放大后圖片

你可以建一個(gè)Form，然后在Form里拖進(jìn)一個(gè)Button，把上面的代碼放在Button_Click事件里面，執(zhí)行就行了。

對上面代碼的解釋：

1.要獲取Graphics對象只能從某一事件的參數(shù)中獲取或者使用窗體和控件對象的CreateGraphics方法來獲取-----上面代碼使用Me.CreateGraphics來引用這個(gè)對象。

2.加載一個(gè)圖片用Image類的FromFile或者FromStream方法

3.用DrawImage來顯示一個(gè)圖片,該方法有30多個(gè)重載方法，可以查MSDN了解細(xì)節(jié)。

4.保存時(shí)的一個(gè)問題：我們必須先建一個(gè)對象，用于存縮放圖像。

VB.Net中如何將程序中生成的Bitmap對象在電腦中保存成一張圖片?

多個(gè)路由器設(shè)置方法：

方法一、設(shè)置2級路由。

一、兩臺路由器連接方法

1、有電信貓:電信貓----路由器1wan口；路由器1lan口----路由器2wan口；路由器2lan口----電腦。

2、沒有電信貓:網(wǎng)線----路由器1wan口；路由器1lan口----路由器2wan口；路由器2lan口----電腦。

二、設(shè)置方法

設(shè)置前,請斷開這臺路由器2wan口網(wǎng)線，等設(shè)置完成后在插上。

1、設(shè)置第2臺路由器ip段。

①、lan口設(shè)置,如果你有多個(gè)路由器，而且是第二臺路由器，為了避免沖突（路由器1lan口IP:192.168.1.1），可以將此IP改為其它。比如修改為:192.168.2.1

在重啟路由器,進(jìn)入路由器的地址是:192.168.2.1了。

2、設(shè)置第二臺路由器上網(wǎng)方法。

①、查看第1臺路由器下連接的電腦的ip詳細(xì)信息。（win+r--輸入,cmd--輸入:ipconfig /all [記住:ip，掩碼，網(wǎng)關(guān)，dns]）

②、在第2臺路由器上設(shè)置,在【設(shè)置向?qū)А窟x擇【靜態(tài)ip】。輸入第1臺路由器不用的ip，其他的：掩碼，網(wǎng)關(guān)，dns設(shè)置一樣。

③、設(shè)置好后重啟路由器。

方法二、路由器b做交換機(jī)使用。

1、路由器a正常設(shè)置。

2、路由器b設(shè)置方法：

①、首先要空出wan口，所有的接線都接在lan口上。

②、關(guān)閉路由b的dhcp服務(wù)。

③、修改路由b的lan口ip地址（不要與路由器a的網(wǎng)段相同即可），修改IP為192.168.2.1。