我使用一个command按纽为读取数据,通过代码读取text数据到textbox中,总共有十九个textbox控件,分布在两个窗体内,第一个窗体从text1(0)到text1(9),第二个窗体从text1(0)到text1(8),怎么样编代码呀,谢谢各位帮我解答一下
按照你所说的不对哦,我没有学过VB,麻烦能不能说详细一点
我需要从text文本文件里读取数据,这两个代码都实现不了哦
还是没明白我的意思,我的意思是,我有一个读取数据按纽,我点击它之后,会弹出一个打开文件的对话框,选择一个text文本文件,该文件里的数据就按行填充在十九个textbox控件框中
VB如何读取text数据到textbox
答案:4 悬赏:40 手机版
解决时间 2021-12-20 17:29
- 提问者网友:骑士
- 2021-12-20 00:53
最佳答案
- 五星知识达人网友:洒脱疯子
- 2021-12-20 01:48
private sub command1_click()
dim a as string
commondialog1.filename=""
commondialog1.filter="*.txt|*.txt"
commondialog1.showopen
a=commondialog1.filename
open a as input #1
do while eof(#1)
tezt1.text=line input #1
text2.text=line input #1
......
loop
end sub
dim a as string
commondialog1.filename=""
commondialog1.filter="*.txt|*.txt"
commondialog1.showopen
a=commondialog1.filename
open a as input #1
do while eof(#1)
tezt1.text=line input #1
text2.text=line input #1
......
loop
end sub
全部回答
- 1楼网友:不想翻身的咸鱼
- 2021-12-20 05:31
Private Sub Command1_Click()
for i = 0 to 8
Text1.Text = Form2.Text1(i).Text
Text1.Text = Form3.Text1(i).Text
next
End Sub
举个例子而已!
- 2楼网友:行雁书
- 2021-12-20 04:17
private sub commandbutton4_click()
'设置text1.multiline属性为true
open app.path & "\command set\ftp命令详解.txt" for input as #1
dim tmpstr() as string, i as integer, j as integer
do while not eof(1)
redim preserve tmpstr(i)
line input #1, tmpstr(i)
for j = 0 to ubound(tmpstr) - 1
if tmpstr(j) = tmpstr(ubound(tmpstr)) then
redim preserve tmpstr(i - 1)
i = i - 1
exit for
end if
next j
i = i + 1
loop
close '加个关闭文件就行了.
text1.text = join(tmpstr, vbnewline)
end sub
- 3楼网友:三千妖杀
- 2021-12-20 03:09
要用全局public定义两个窗体的变量,在form1里面添加如下定义
public a,b,c..... as single'定义十个变量
private sub command1_click()
a=text1(0).text
b=text1(1).text
.
.
'将十个变量赋值
end sub
在form2里面添加如下定义
public aa,bb,cc..... as single'定义十个变量
private sub command1_click()
a=text1(0).text
b=text1(1).text
.
.
'将十个变量赋值
end sub
两个窗体内的变量不能相同。
此时就可以随意调用变量了
不过调用时要加上form1.
比如在form1里调用form2的数就用
aa=form2.aa
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯