由于现在在VB6.0中的WebBrowser控件只能支持IE5.0吧,很多的脚本语言在上面运行会出现错误?
请高手指点一下。
请高手指点一下。
解决方案 »
- 请教 如何得到聚合函数返回值,在textbox上显示
- [求助]程序自动启动的问题,请高手帮忙!
- 问下关于SQL的可读性
- vb如何插入字符串
- sql server 远程连接数据库,这样写对吗?
- 再问一下mshflexgrid 显示记录超不过2048条,怎样解决?
- 请问到哪可以找到OFFICE风格的工具条?谢谢。
- 如何自动改变textbox中字体的大小,来适用textbox的长度
- vb 链接access数据库,并将text内容输入access表
- 谁能告诉我internet control 6.0的用法!
- 继续问窗体刷新问题
- 问两个关于datagrid上的问题啊?不知道有哪位大侠知道啊?先谢谢大家了
在Webbrowser中,网页中的按钮是win98下的外观,而不是Xp下面的外观。
Private m_hMod2 As Long
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean
Private Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type
Private Const ICC_USEREX_CLASSES = &H200Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Sub Form_Initialize()
On Error Resume Next Dim iccex As tagInitCommonControlsEx
iccex.lngSize = LenB(iccex)
iccex.lngICC = ICC_USEREX_CLASSES
InitCommonControlsEx iccex m_hMod = LoadLibrary("shell32.dll")
m_hMod2 = LoadLibrary("explorer.exe")
End Sub
Private Sub Form_Terminate()
On Error Resume Next If m_hMod Then FreeLibrary m_hMod
If m_hMod2 Then FreeLibrary m_hMod2
End Sub