189 8069 5689
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()
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'判断结束
实现代码如下：
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.保存时的一个问题：我们必须先建一个对象，用于存缩放图像。
多个路由器设置方法：
方法一、设置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。