to scum:
我先给你20分,能不能告诉我第一个怎么调用?
我先给你20分,能不能告诉我第一个怎么调用?
解决方案 »
- 奇怪的VBA语法 Sheets.Add.Name = “SHEET1” 这句话中出现了两个点号(即.Add.Name ),如何理解这种用法
- 第一个If语句能执行成功,为什么后两个不执行?(点击按钮时,选择哪个节点就显示相应内容)
- 关于提升Byte数组和String字符串之间赋值效率的问题
- 有关于将CSV文件中的数据读取到数组中的问题,敬请高人不吝赐教
- 数据库查询的问题
- 各位高手,如何消除用Binary方式读取文本多出来的由很多空格组成的段落?
- VB读取久其报表数据
- 进者有分啦
- 2维数据显示问题
- 请问:如何解决VB6在WIN2K中读写Windows注册表时出现丢失字符的现象!!!
- 利用AniCur.ocx可轻轻松松在VB/VFP中实现动画(不是把光标变成动画光标)
- 一个我无法理解的现象
其实很简单呀,你不是想显示internet选项吗?
你会用shell语句吗?会用就行了,还记得internet选项是控制面板里的一项吗?
你只要用shell("rundll32.exe inetcpl.cpl")(对不起呀,我知道肯定行,但可能我这句写错了,你去查查就可以了).
记得给我分呀:))
IShellDispatch disp;
HRESULT sc;
sc = ::CoInitialize(NULL);
if (FAILED (sc))
{
CString str;
str.Format(_T("Failed to Initialize."));
TRACE( str) ;
return;
}sc = ::CoCreateInstance( CLSID_Shell, NULL, CLSCTX_SERVER,
IID_IDispatch, (void**)&disp ) ;
if (FAILED (sc))
{
CString str;
str.Format(_T("Failed to create Instance :-( "));
TRACE( str) ;
return;
}disp.ControlPanelItem("inetcpl.cpl"); 来源:CODEGURU。给分罢
o o
-
Public Declare Function FindWindowEx Lib "User32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long '此函数用来找到Windows标准编辑框的句柄Public Declare Function SHAutoComplete Lib "Shlwapi.dll" (ByVal hWndEdit As Long, ByVal dwFlags As Long) As Long '此函数由IE5提供Public Const SHACF_DEFAULT As Long = &H0 '还有一系列常数表示其他功能,可惜我忘了'具体实现函数
Public Function DoAutocomplete(ObjX As Object) As Long
On Error Resume Next
Dim hWndEdit As Long
If TypeOf ObjX Is TextBox Then '如果ObjX类型是TextBox
hWndEdit = ObjX.hwnd
ElseIf TypeOf ObjX Is ComboBox Then '如果ObjX类型是ComboBox
hWndEdit = FindWindowEx(ObjX.hwnd, 0, "EDIT", vbNullString)
Else
Exit Function
End If
DoAutocomplete = SHAutoComplete(hWndEdit, SHACF_DEFAULT)
End Function希望对你有所帮助.