本人编了个VB小程序,想让Word文件的内容显示在文本框或标签中,各位大虾有什么妙招(本人刚开始学VB,请不吝示教)... 本人编了个VB小程序,想让Word文件的内容显示在文本框或标签中,各位大虾有什么妙招 (本人刚开始学VB,请不吝示教) 展开 我来答
可以用定时器Timer控件啊,设置循环时间间隔,比如300毫秒,定义一个字符串变量存储要输出的内容,然后,当开始执行定时器时候,每次用substring取字符串变量的前N位,N=1、2、3、4、5、6,N依次递增,知道N等于字符串变量长度的时候停止定时器,就好了。
dim Str as string Open "D:\a.txt" For Input As #1 Do Until EOF(1)Line Input #1,Str '读出一整行 if left(Str,1)="2" then msgbox "找到一行啦,其结果是=" & Str '判断左边是否是2,是就显示 Loop Close #1 更详细的还可以参考我的以下回答《关于如何读取TXT文件》:http...
1) As Byte Get #1, , btes Close Text1.Text = StrConv(btes, vbUnicode)End Sub'2.每次读取一行Private Sub Command1_Click() Dim Lines As String Text1.Text = "" Open "c:\boot.ini" For Input As #1 Do While Not EOF(1) ' 循环至文件尾。 Line...
在文本中写入Text1的内容,然后关闭文本: 代码(插入刚才的省略号的地方): Print #1, Text1.Text Close #1 效果如图:升级版 为了避免有些用户不想用123.txt这个文件名,而想随时改文件名,小编教大家进阶版的创建txt的方法。在Form里多加一个TextBox,名称为Text2,这个TextBox里填的就是文件名...
Private Sub Command1_Click()Dim s() As StringOpen "txt文件名" For Binary As #1s = Split(Input(LOF(1), #1), vbCrLf)Close #1Text1.Text = s(Int(Rnd * (UBound(s) + 1)))End Sub
Text3.SelStart = TargetPosition - 1 '选中找到的字符串 Text3.SelLength = Len(target)Text3.SetFocus Else '没有找到匹配的字符串 MsgBox "没找到匹配的字符串!"Text1.SetFocus End If End Sub Private Sub command1_Click()'从第一个字符开始查找 FindText 1 End Sub Private Sub command...
应用change事件,例如,你第二次输入的文本框为Text2的话,你可以这样写:Private Sub Text2_Change()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub
str5(0) = 255 '字串的前两个Byte存该字串的最大长度 str5(0) = 255 i = SendMessage(Text1.hwnd, EM_GETLINE, ntx, str5(0))If i = 0 Then GetaLine = ""Else str6 = StrConv(str5, vbUnicode)GetaLine = Left(str6, InStr(1, str6, Chr(0)) - 1)End If End ...
读文件内容到TextBox :Try Using sr As StreamReader = New StreamReader("C:\\TestFile.txt")textbox1.Text = sr.ReadToEnd()End Using Catch E As Exception Console.WriteLine(E.Message)End Try 修改完成后,保存到文件:Using sw As StreamWriter = New StreamWriter("C:\\TestFile.txt")s...