处理COM控件的浏览器按键消息

易语言 2020-08-04 19:11:52

处理COM控件的浏览器按键消息

.如果真 (窗口风格 = 0)
_Style = #WS_CHILDWINDOW + #WS_CLIPSIBLINGS + #WS_CLIPCHILDREN + #WS_VISIBLE ' 默认
.如果真结束
AtlAxWinInit ()
_hwnd = CreateWindowEx (扩展风格, “AtlAxWin”, “Shell.Explorer.1”, _Style, 左边位置, 顶边位置, 窗口宽度, 窗口高度, 父窗口句柄, 0, 0, 0)
AtlAxGetControl (_hwnd, _IE)
返回句柄 = _hwnd
_IE.写属性 (“Silent”, 真)
.如果 (删全部空 (url) = “”)
_IE.数值方法 (“Navigate”, “about:blank”) ' 跳转
.否则
_IE.数值方法 (“Navigate”, url) ' 跳转