VB 中如何逐行读取文本框的内容？

来源：百度知道编辑：UC知道时间：2024/05/12 00:39:17

我上网搜了一些程序代码，是要用API函数的，但是调试时API函数声明却出现编译错误：“常数，固定长度字符串，数组，用户定义类型及Declare语句不允许作为对象模块的Public成员”。请问该如何解决？或者谁能提供更好的代码供参考？

open "test.txt" for input as #1
do while not eof(1)
line input #1,s '逐行读取文本框的内容并存入变量S里
str = str & s
loop
close #1

把你的API声明Declare前的Public改成Private,如果Declare前没有就加上Private,API声明放在窗体模块不可使用Public,如果要定义公有的API函数,请放到标准模块的通用声明处