textinput_keypress.vb

来自「matlab实用教程」· VB 代码 · 共 24 行

Sub TextInput_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn then
     ’ 初始化MATLAB与TextInput控件的对话
	TextInput.LinkMode = vbLinkNone
	TextInput.LinkTopic = "MATLAB|Engine"
	TextInput.LinkItem = "EngEvalString"
	TextInput.LinkMode = vbLinkManual
’ 获取edit控件字符串，作为MATLAB命令， 
szCommand = TextInput.Text
’ 发送给MATLAB执行
	TextInput.LinkExecute szCommand
TextInput.LinkMode = vbLinkNone
’ 初始化MATLAB与TextOutput控件的对话
	TextOutput.LinkMode = vbLinkNone
	TextOutput.LinkTopic = "MATLAB|Engine"
TextOutput.LinkItem = "EngStringResult"
	TextOutput.LinkMode = vbLinkManual
’请求上一个EngEvalString命令的执行结果
	TextOutput.LinkRequest
	TextOutput.LinkMode = vbLinkNone

End If
End Sub