Open App.path& "\文本文件名.txt" For APPEND As #1 ' 创建文件名。 Print #1, text1.text ' 输出文本至文件中。 Close #1 ' 关闭文件。
Open App.path& "\文本文件名.txt" For Input As #1 ' 已存在文件名。 Do While Not EOF(1) ' 循环至文件尾。 Input #1, str ' 将数据读入两个变量。 combo1.additem str '读入文件内容 loop Close #1 ' 关闭文件。
另外我也想问一个问题,就是编程实现改变其他程序中控件的内容,如文本框的内容.
Open App.path& "\文本文件名.txt" For APPEND As #1 ' 创建文件名。
Print #1, text1.text ' 输出文本至文件中。
Close #1 ' 关闭文件。
Open App.path& "\文本文件名.txt" For Input As #1 ' 已存在文件名。
Do While Not EOF(1) ' 循环至文件尾。 Input #1, str ' 将数据读入两个变量。
combo1.additem str '读入文件内容
loop
Close #1 ' 关闭文件。
再用SendMessage发送WM_GetText得到文字
SetFocusAPI 将输入焦点设到指定的窗口。如有必要,会激活窗口 这个可以吗?
把输入焦点定到另外一个程序的文本框中,然后变成输入