VB显示text自动切换显示txt下一列

原创 小姚  2020-11-12 16:43  阅读 54 次

VB显示text自动切换显示txt下一列源代码如下,之前小姚写过一款切换复制软件,有需要的话中可以点击按顺序切换复制文字工具把主要代码分享出来,以便以后使用时更方便。

VB显示text自动切换显示txt下一列-小姚工作室

Dim fileNumber As Integer
Const Filename = "c:\a.txt" '文件名及地址自己改一下
 
Private Sub form_load()
fileNumber = FreeFile
Open Filename For Input As #fileNumber
End Sub
Private Sub Command1_Click()
If EOF(fileNumber) Then
MsgBox "已到文件尾"
Else
Dim strLine As String
Line Input #fileNumber, strLine
Text1.Text = strLine
End If
End Sub

 

本文地址:https://www.xiaoyaogzs.com/3498.html
关注我们:请关注一下我们的微信公众号:扫描二维码小姚工作室的公众号,公众号:小姚户外
版权声明:本文为原创文章,版权归 小姚 所有,欢迎分享本文,转载请保留出处!
NEXT:已经是最新一篇了
 相关文章  关键词:

发表评论


表情