#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$Form1_1 = GUICreate("如何才能做到内嵌IE的控件不显示边框", 1006, 633, 176, 136)
$SongPayerI = _IECreateEmbedded()
GUICtrlCreateObj($SongPayerI, 648, 25, 325, 90)
_IENavigate ($SongPayerI, "about:blank", 0)
$Str = _
'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">' & @CRLF & _
'<TD align="left"><HTML>' & @CRLF & _
'<HEAD>' & @CRLF & _
'<META content="text/html; charset=unicode" http-equiv=Content-Type>' & @CRLF & _
'<META name=GENERATOR content="MSHTML 11.00.9600.18163"></HEAD>' & @CRLF & _
'<BODY>' & @CRLF & _
'<body style="margin:0;padding:0">' & @CRLF & _;
'<META name=GENERATOR content="MSHTML 11.00.9600.18163">' & @CRLF & _
'</TD></BODY>' & @CRLF & _
'</HTML>' & @CRLF & _
''
_IEDocWriteHTML($SongPayerI, $Str)
$SongPayerI.document.execCommand("Refresh");
_IEBodyWriteHTML($SongPayerI, '<iframe frameborder="no" border="0" marginwidth="0" marginheight="0" width=300 height=80 src="http://music.163.com/outchain/player?type=2&id=60274&auto=0&height=66"></iframe>')
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
目前现状:
期望结果:
有劳各位坛友帮帮忙了,Thanks~~~ |