VB简易备忘录代码怎么写~跪求!

发布网友发布时间：2022-05-14 04:09

共2个回答

热心网友时间：2024-02-23 19:08

Private Sub Command1_Click()
Open "d:\1.txt" For Output As #1
Print #1, Text1.Text & "///" & Text2.Text & "///" & Text3.Text & "///" & Text4.Text & "///" & Text5.Text
Close #1
End Sub

Private Sub Command2_Click()
Open "d:\1.txt" For Input As #1
Input #1, a
t = Split(a, "///")
For i = 0 To UBound(t)
Text1.Text = t(0)
Text2.Text = t(1)
Text3.Text = t(2)
Text4.Text = t(3)
Text5.Text = t(4)
Next i
Close #1
End Sub
搞了半天对split函数不熟。。。。

热心网友时间：2024-02-23 19:09

我就问句你是海大的不QAQ
表示我也非常崩溃。。。。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com