vb6.0 IE 浏览器源码
基于IE内核的浏览器(美化版) Private Type tagInitCommonControlsEx lngSize As Long lngICC As Long End Type Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _ (iccex As tagInitCommonControlsEx) As Boolean Private Const ICC_USEREX_CLASSES = &H200 Public Function InitCommonControlsVB() As Boolean On Error Resume Next Dim iccex As tagInitCommonControlsEx ' Ensure CC available: With iccex .lngSize = LenB(iccex) .lngICC = ICC_USEREX_CLASSES End With InitCommonControlsEx iccex InitCommonControlsVB = (Err.Number = 0) On Error GoTo 0 End Function Sub Main() InitCommonControlsVB mainFrm.Show End Sub InitCommonControlsVB = (Err.Number = 0) On Error GoTo 0 End Function Sub Main() InitCommonControlsVB mainFrm.Show End Sub
用户评论
multipledreams 2018-12-28 13:02:51
下载下来用来学习代码的。虽然有bug但是为初学编程的人提供了编写浏览器的思路。赞一个。
qq_33436 2018-12-28 13:02:51
BUG非常多。还免强可用
maple_leaf_sunior 2018-12-28 13:02:51
这个真的没什么用
exemplary_49215 2018-12-28 13:02:51
运行的很慢啊,地址栏不同步
qq_50498 2018-12-28 13:02:51
界面 不错,功能 不是很齐全。小错误需要自己修改。
shipment_80262 2018-12-28 13:02:51
还可以,有些小错误,改改就好用
mashu86601 2018-12-28 13:02:51
好看是好看,出错的地方太多
u44847 2018-12-28 13:02:51
能有收藏夹栏就更好了
sanzhuxianghuo 2018-12-28 13:02:51
还可以,VB里面算不错了
weixin_24300939 2018-12-28 13:02:51
非常好,很漂亮!