VB.NET中OPEN语句如何使用

这篇文章将为大家详细讲解有关VB.NET中 OPEN语句如何使用，文章内容质量较高，因此小编分享给大家做个参考，希望大家阅读完这篇文章后对相关知识有一定的了解。

成都创新互联专注于果洛州网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供果洛州营销型网站建设，果洛州网站制作、果洛州网页设计、果洛州网站官网定制、小程序开发服务，打造果洛州网络公司原创品牌,更为您提供果洛州网站排名全网营销落地服务。

VB.NET OPEN语句方法一:

用定长的String变量获取文本内容。由于定长String变量支持的下界为65400,所以在打开超过32K字节的文件时超出部分的字节将无法获取:

Private Sub Command1_Cliack()  Dim sA As String * 65400 '声明定长String变量   Open "F:\d.txt" For Binary As #1 '用二进制打开文件  Get #1, , sA '用Get语句从文件中获取字节  Text1 = sA '显示打开的文件  Close #1 '关闭文件  End Sub

VB.NET OPEN语句方法二:

先声明一字符串变量，然后用空格填充字符串，使变量大小与文件大小一致，再通过Get语句将文件全部数据存储到变量中，从而达到获取整个文件字节数的目的。此法可以打开大于32K的文件，但应该注意的是，装载文件的容器必须能装载大于32K的文件，下例用RichTextBox控件显示打开的文件：

Private Sub Command1_Click()   Dim sA As String  Open "f:\d.txt" For Binary As #1  sA = Space(LOF(1)) '用空格填充sA变量  Get #1, , sA '用Get语句获取文件全部内容  RichTextBox1.Text = sA Close #1  End Sub

VB.NET OPEN语句方法三：

用StrConv函数将文件的控制字符串数据和Unicode码之间进行转换，从而达到打开文件的目的。可打开任意大小文件。此法笔者曾有一篇文章谈及，这里再给一个简单例子：

Private Sub Command1_Click()  Open "f:\d.txt" For Input As #1  RichTextBox1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)  Close #1  End Sub

VB.NET OPEN语句方法四：

用Shell语句直接调出Windows的记事本，给个文件名即可轻而易举地打开文本文件。此法适合于打开程序的Readme文件(注意：在可执行文件和要打开的文本文件之间要有空格)：

Shell "NotePad.EXE f:\d.txt",vbNormalFucus

VB.NET OPEN语句方法五：

用RichTextBox控件自身的LoadFile属性打开文件：  RichTextBox1.LoadFile "f:\d.txt", rtfText

关于VB.NET中 OPEN语句如何使用就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。