'OutDataToText '将MsFlexGrid控件中显示的内容输出到文本文件 Public Sub OutDataToText(Flex As MSFlexGrid) Dim s As String Dim i As Integer Dim j As Integer Dim k As Integer Dim strTemp As String On Error GoTo Ert Me.MousePointer = 11 On Error Resume Next DoEvents Dim FileNum As Integer FileNum = FreeFile Open "d:\aa.txt" For Output As #FileNum With Flex k = .Rows For i = 0 To k - 1 strTemp = "" For j = 0 To .Cols - 1 DoEvents strTemp = strTemp & .TextMatrix(i, j) & "," Next j Print #FileNum, Left(strTemp, Len(strTemp) - 1) Next i End With Close #FileNum Me.MousePointer = 0 MsgBox "导出成功" Ert: MsgBox Err.Description Me.MousePointer = 0 End Sub
'将MsFlexGrid控件中显示的内容输出到文本文件
Public Sub OutDataToText(Flex As MSFlexGrid)
Dim s As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim strTemp As String
On Error GoTo Ert
Me.MousePointer = 11
On Error Resume Next
DoEvents
Dim FileNum As Integer
FileNum = FreeFile
Open "d:\aa.txt" For Output As #FileNum
With Flex
k = .Rows
For i = 0 To k - 1
strTemp = ""
For j = 0 To .Cols - 1
DoEvents
strTemp = strTemp & .TextMatrix(i, j) & ","
Next j
Print #FileNum, Left(strTemp, Len(strTemp) - 1)
Next i
End With
Close #FileNum
Me.MousePointer = 0
MsgBox "导出成功"
Ert:
MsgBox Err.Description
Me.MousePointer = 0
End Sub
我要的不是自己程序中的MsFlexGrid控件的内容.
我是想得到其它程序中的MsFlexGrid控件的内容,我只知道这个MsFlexGrid控件的句柄,有点像黑客软件的功能.
用什么无所谓可以不用sendmessage。因为我用sendmessage可以得到其它程序中文本框中的文本信息,所以我以为只要发送合适的消息就能读到MsFlexGrid控件的内容,但我不知发什么来问问。如果用别的办法也可达到相同目的当然也行。
是啊,我就是不知道发什么消息,有没有这方面的书籍啊?
我听说sendmessage很强,也感觉到了。到网上介绍sendmessage的文章基本就那么几种,想得到更多的消息怎么办??