VB如何将程序的数据保存？

VB6.0

10年积累的网站制作、做网站经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先做网站设计后付款的网站建设流程，更有缙云免费网站建设让你可以放心的选择与我们合作。

写入：

Open "D:\123.txt" For Output As #1 '打开XXX路径的XXX文件（双引号里表示文件位置和文件名）

Print #1, Text1.Text '写入Text1的Text内容

Close #1 '关闭

读取：

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表示循环读取文件的内容，并让Text1.Text=内容

Close #1 '关闭

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中怎样保存数据（保存在VB数据库里）？

1.使用文件来记录,下次运行时读取 .2.使用数据库,可以考虑单机数据库或网络数据库 3.如果数据量小,使用注册表.

或者可以通过程序来保存：

set fs=createobject("scripting.filesystemobject")'创建文件操作对象

if fs.fileexists("C:\a.txt") then'如果C盘A.txt存在，那么读取其内容

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

set txtn=txt.readall

else'

set txtf=fs.createtextfile("c:\a.txt",true)'创建C盘下的a.txt

do'无限循环

wscript.sleep 1000'延时一秒

txtf.write a.text'写入文本框中内容

loop'循环结束

end if'判断结束

在VB.NET下面如何显示和保存缩放图像

实现代码如下：

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) '新建一个放大的图片

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

你可以建一个Form，然后在Form里拖进一个Button，把上面的代码放在Button_Click事件里面，执行就行了。

对上面代码的解释：

1.要获取Graphics对象只能从某一事件的参数中获取或者使用窗体和控件对象的CreateGraphics方法来获取-----上面代码使用Me.CreateGraphics来引用这个对象。

2.加载一个图片用Image类的FromFile或者FromStream方法

3.用DrawImage来显示一个图片,该方法有30多个重载方法，可以查MSDN了解细节。

4.保存时的一个问题：我们必须先建一个对象，用于存缩放图像。

VB.Net中如何将程序中生成的Bitmap对象在电脑中保存成一张图片?

多个路由器设置方法：

方法一、设置2级路由。

一、两台路由器连接方法

1、有电信猫:电信猫----路由器1wan口；路由器1lan口----路由器2wan口；路由器2lan口----电脑。

2、没有电信猫:网线----路由器1wan口；路由器1lan口----路由器2wan口；路由器2lan口----电脑。

二、设置方法

设置前,请断开这台路由器2wan口网线，等设置完成后在插上。

1、设置第2台路由器ip段。

①、lan口设置,如果你有多个路由器，而且是第二台路由器，为了避免冲突（路由器1lan口IP:192.168.1.1），可以将此IP改为其它。比如修改为:192.168.2.1

在重启路由器,进入路由器的地址是:192.168.2.1了。

2、设置第二台路由器上网方法。

①、查看第1台路由器下连接的电脑的ip详细信息。（win+r--输入,cmd--输入:ipconfig /all [记住:ip，掩码，网关，dns]）

②、在第2台路由器上设置,在【设置向导】选择【静态ip】。输入第1台路由器不用的ip，其他的：掩码，网关，dns设置一样。

③、设置好后重启路由器。

方法二、路由器b做交换机使用。

1、路由器a正常设置。

2、路由器b设置方法：

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

②、关闭路由b的dhcp服务。

③、修改路由b的lan口ip地址（不要与路由器a的网段相同即可），修改IP为192.168.2.1。

分享名称：vb.net对象怎么保存 vbnet doevent
文章来源：http://kswjz.com/article/dohjejd.html