Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
Any) As Long
Dim pFun() As String '函数数组
Dim pExp() As String '解释数组
Dim pSpl() As String '查询函数分类
Private Sub Command1_Click()
Dim str1 As String
Dim Ex As String
Dim p() As String
Dim i As Long
Dim k As Long
str1 = Trim(Rtxt.Text)
If str1 = "" Then Exit Sub '如果空则退出
p = Split(str1, vbCrLf) '分段
For i = 0 To UBound(p) '总行
If Trim(p(i)) <> "" Then Ex = Ex & Trim(p(i)) & " ＇" & GetExplain(p(i))
& vbCrLf
Next
Txt_Explain.Text = " " & Ex
End Sub
Private Sub Form_Load()
Dim str1 As String
Dim BytTxt() As Byte
Command1.Default = True '响应回车
BytTxt = LoadResData(101, "text") '加载函数资料
str1 = StrConv(BytTxt, vbUnicode)
pFun = Split(str1, "{-0-0-}") '函数数组
pExp = Filter(Split(str1, vbCrLf), ">Exp:", , vbTextCompare) '解释函数
End Sub
Function GetExplain(CodeStr As String) As String '获取源码解释
Dim i As Long
Dim i2 As Long
Dim i3 As Long
Dim pStr() As String '字符分段
Dim pDen() As String '等号分段
Dim pLKH() As String '左括号分段
