为您找到"
vb,怎样在加载窗体时把另一文件内容显示在文本框中
"相关结果约100,000,000个
'这里别忘在属性栏里设置Text1.MultiLine = True Text1.Text = ""Dim a As String Open "h:\test.txt" For Input As #1 Do Until EOF(1)Line Input #1, a Text1.Text = Text1.Text & a & vbCrLf Loop Close #1 End Sub 我试过了··可以的··...
1、添加必要的组件(文本框、按钮)2、设置属性:3、编写按钮的响应代码:代码如下:Private Sub Command1_Click() Dim a$ Text1.Text = "" Open "d:\test.txt" For Input As #1 Do Input #1, a Text1.Text = Text1.Text & a & vbCrLf Loop Until EOF(1) C...
VB提供了实现这1功能的关键字,对文件的操作:逐行顺序取用或保存,随机文件去用保存机制,比如:我首先设定记事本的地址在txtFile.Text,也就是默许txtFile.Text=file.Path+file.FileName文本框的默许Name属性为txtFileText.Text,则写入记事本内容部份程序用为:,、。,、。,Dim note As String,on...
引用Word、然后通过Word的Application在后台读取Range.text 然后显示在Text控件中。Text控件中的文本在Exe关闭前通过Word的Application对象写入Word文档。
虽然可以通过API函数把另一个窗体放到本窗体中,但你所说的这个例子明显不是这样的,只要用个选项卡控件就可搞定,甚至你用多个PictureBox控件作为容器,把不同页面的内容分别放到这些容器中,然后通过按钮来控制哪个容器显示(其它容器则隐藏),也可实现你的目的。
在部件里添加一个CommonDialog控件,然后加到窗体上 Private Sub Command1_Click()CommonDialog1.Filter = "Text (*.txt)|*.txt"CommonDialog1.ShowOpen Text1.Text = CommonDialog1.FileName End Sub
将text1的multiline属性置为true,scrollbar置为both添加以下代码:dim s as stringText1.Text = ""Open "文本.txt" For Input As #1while not eof(1)line input #1,s Text1.Text = text1 & s & vbcrlfwend Close #1
wend close #1 如果这样输 就能在窗体上显示 dim a as string open "D:\aaa.txt" for input as #1 while not eof(1)line input #1,a'每次读取一行数据 text.text=a'赋值的是最后一行数据 上次的记录被覆盖了 wend close #1 调用方法错误 应该使用input #1,text1.text 1) Input #文件...
VB中只需在另一窗体的文本框控件名前加上该窗体名做前缀后给与赋值。Option ExplicitPrivate Sub Command1_Click() Form2.Text1 = Me.Text1End SubPrivate Sub Command2_Click() Form2.ShowEnd SubPrivate Sub Form_Load() Text1 = "VB中只需在另一窗体的文本框控件名前加上该窗体名...
dim s as strings = w.text '把指定的文本框赋值给变量s,所以w应该是你自己的文本框的名字MsgBox(s) '弹窗并显示变量s的文本如上代码比如加入一个按钮的点击事件之中,修改w为你自己的文本框的名字即可。