# 怎样张text1.text中的文字传送到模组去?

Posted by kkcheung on May 16, 1999 at 21:36:42:

下面一段在模组的程式,是按下热键后执行notepad,请问可以由text1.text输入,而改变要执行的程式吗?
注:下面的程式只是一部份,全部份可到下面网址看看,谢谢大家!
http://sunh.hosp.ncku.edu.tw/~cww/htmapi90.htm

Public Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_HOTKEY Then
If wParam = idHotKey Then
Dim lp As taLong, i2 As t2Int
lp.ll = lParam
LSet i2 = lp
If (i2.lWord = Modifiers) And i2.hword = uVirtKey Then
Debug.Print "HotKey Shift-Alt-G Pressed "
Shell "notepad", vbNormalFocus
End If
End If
End If
'将之送往原来的Window Procedure
wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End Function

Follow Ups:

- Re: 怎样张text1.text中的文字传送到模组去? 纪文和 03:26:58 5/17/99 (0)