各位大侠，请教一个VB问题

来源：百度知道 编辑：UC知道 时间：2024/05/29 11:10:29
各位大侠，请教一个问题，就是我用VB编了一个程序，功能是用鼠标点图片上任意一点，就获得一个鼠标值，每点一次就有一个值的记录，前边功能已经实现，请问如何能把这些动态的鼠标值记录生成报表输出！请不吝赐教！感激不尽！谢谢!有分送！

建一个文本框，属性 MultiLine 设置为 True， 属性 ScrollBars 设置为 2
代码如下：

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)'在关闭窗体时在当前软件目录下生成的报表“baobiao.txt”，或者你可以根据自己需要，在按钮事件中添加以下代码
Dim bbpath As String
bbpath = IIf(Len(App.Path) > 3, App.Path + "\", App.Path)
Open bbpath + "baobiao.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static i As Integer
i = i + 1
Text1.Text = Text1.Text & "第" & i & "点坐标是：" & "x=" & X & " y=" & Y & Chr(13) & Chr(10)
End Sub

'将鼠标点击的点在文本框中记录下来
'在窗体放置一个按钮和文本框
'在属性窗口将文本框的属性 MultiLine 设置为 True， 属性 ScrollBars 设置为 2
Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As S