*****求助vb程序的编写

izmm 发布于 2013/08/29 13:03
阅读 99
收藏 0

需求:已知有一个数据文件data.dat,所需程序需要有一个label和两个commandbutton(一个是点击,一个是复制),要求用户点“点击”按键时label显示出data.dat中的第一行,再点击则出现第二行。。。。点”复制“时将label中的内容复制下来

说明:逻辑应该不难,但我以前没接触过vb ,所以总是出错,希望高手指点

在线等

以下是问题补充:

@izmm:难道真的没人用vb ~~?? (2013/08/29 13:54)
加载中
0
izmm
izmm

鼓捣了半天总是搞出来了。。很粗糙。。

Dim n As Integer
Dim str() As String
Public Sub command1_click()
Open "C:\data.dat" For Input As #1
ReDim str(100)
For i = 0 To 3
Line Input #1, str(i)
Next i
Close #1
End Sub

Public Sub command2_click()
Text1.text = str(n)
n = n + 1
Clipboard.Clear
Clipboard.SetText Text1.text
End Sub
一个文本框text1,两个commandbutton 

返回顶部
顶部