如何用VB6.0获取一个txt文件的所有文本,并显示在text1,文本框里

Line Input #1, Wenti Line Input #1, oDaA Line Input #1, oDaB Line Input #1, oDaC Line Input #1, oDaD 改为 Do Line Input #1, Wenti Loop While Wenti = ""Do Line Input #1, oDaA Loop While oDaA = ""Do Line Input #1, oDaB Loop While oDaB = ""Do Line Input #1,...

跟你text1.text设置的语言有关系，你文本中保存的阿拉伯语，那么text1.text设置的语言也要是阿拉伯语

二．将字符串变量，保存到新的文本文件里 答案：1．读文本文件：窗体上添加1个文本框（设置它的多行显示的属性），1个按钮：代码如下：Private Sub Command2_Click()Dim FStr As String'存放读取的全部内容 Dim MyString As String'读取一行内容 FStr = ""Open App.Path & "\in.txt" For ...

strFileName = CommonDialog1.FileName '读取用户在“保存”对话框中输入的文件名 intFileNum = FreeFile() '取得下一个可用文件号 Open strFileName For Output As #intFileNum '以Output模式打开用户指定的文件以便进行写入 Print #intFileNum, Text1.Text '将文本框中的内容写入指定...

output as #1 print #1,"这是是文本框里的数据"close #1 '--- 如:open "c:\Test.txt" for output as #1 print #1,text1.text '这里可以是数据本身也可以是目标控件的属性 close #1 '关闭打开的文件 '--end--- 执行上面的代码后 text1中的内容就会被写到c盘的test.txt文件里 ...

EndSub。PrivateSubText1_Change()。Text2.Text=Text1.Text。EndSub。操作要点：1、设置程序界面，包括标签，文本框，命令按钮。2、再按照题目要求，设置对象的属性。3、编写程序的代码。先定义变量。4、使用For-Next循环结构语句，编写的代码。5、在For-Next循环结构语句中，还要再嵌套一个If语句。6...

可以用这种方法 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)具体是单击还是获得光标你自己在事件中调试

菜单栏中 工程--部件--添加一个microsoft common dialog control 6.0 控件 Private Sub Command1_Click()CommonDialog1.Filter = "*.txt|*.txt"‘设置在对话框的类型列表框中所显示的过滤器 CommonDialog1.ShowSave ’打开保存文件对话框 If CommonDialog1.FileName <> "" Then '如果文件名不为...

Private Sub Command1_Click()Text3.Text = Text3.Text & "压强" & Text1.Text & "Pa 抽速" & Text2.Text & "L/S" & vbCrLfEnd Sub以上代码假定“加载”按钮为Command1，“压强”文本框为Text1，“抽速”文本框为Text2，输出文本框为Text3 ...

Private Const WM_CLOSE = &H10 Private Const WM_SETTEXT = &HC Private Sub Command1_Click()Dim WindowHandle As Long, ChildWindowHandle As Long WindowHandle = FindWindow(vbNullString, "无标题 - 记事本")If WindowHandle Then '如果获取句柄成功 ChildWindowHandle = FindWindowEx(Window...