关于VB的代码自动转换

来源：百度知道 编辑：UC知道 时间：2024/06/20 04:28:55
生成了一个程序
在下次打开这个程序时
代码某部分的内容随这指定的记事本的内容变化而变化
比如
代码ni="****"
记事本里的内容123
下次打开的时候代码自动更换成ni="123"

希望有人看得懂..
能不能不用通过按钮来自动实施呢··

建立一个窗体和一个按钮 按钮名为Command1

记事本放在C盘 名字为1.txt
粘贴
Private Sub Command1_Click()
Dim ni As String
Dim Book As String
Open "C:\1.txt" For Input As #1 '此处的路径可以改成你的记事本路径
Line Input #1, Book
Close #1

ni = Book
MsgBox ni

End Sub