Question

VB问题，如何将文本文件的内容提取到Labl中？

也就是将文本文件的内容显示在Labl的Caption。

Answer 1

Private Declare Function icePub_readFileToText Lib "icePubDll.dll" (ByVal strFilename As String,ByVal strText As String,ByVal maxLen As Integer) As Integer

Dim a2 As Integer
Dim strText As String

strText=Space(1024+1)

a2 = icePub_readFileToText("D:\a.txt",strText,1024)

Label1.Caption = strText

追问

strText=Space(1024+1)这是啥意思？

追答

给strText分配足够空间，让icePub_readFileToText函数往里写数据

原型：
int WINAPI icePub_readFileToText(char *strFilename,char *strText,int maxLen)
输入：strFilename 待读取数据文件名
strText 待写入文本串
maxLen strText最大长度
输出：

追问

这段代码写在什么地方？
你这是VB而不是VBA吧？

追答

vb的

Private Declare Function icePub_readFileToText Lib "icePubDll.dll" (ByVal strFilename As String,ByVal strText As String,ByVal maxLen As Integer) As Integer
声明写在最外边

剩下的写在比如按钮事件里即可

Answer 2

open "c:\1.txt" for input as #1
do while not eof(1)
line input #1,s
label1.caption=label1.caption & s & vbnewline
loop
close #1

Answer 3

lab1.caption=text1.text

追问

text1似乎不能写很多数据，数据有比较大的限制。

追答

在text1属性里面有些设置: MultiLine（多行）属性：
本属性决定了文本框是否可以显示或输入多行文本，当值为 True ，文本框可以容纳多行文本；当值为 False ，文本框则只能容纳单行文本。
本属性只能在界面设置时指定，程序运行时不能加以改变。

追问

TEXT1最多能存多少字符呢？

追答

应该很多吧，没数过