【分享】一周一贴：VB控制面板命令大全
转帖，请勿鄙视！
与你有用者Mark之，与你无用者请一笑而过。
-------------------------------------------
VB启动控制面板大全
模块： control.exe
命令： rundll32.exe shell32.dll,Control_RunDLL
结果： 显示控制面板窗口。
例子：
Dim x
x = Shell("rundll32.exe shell32.dll,Control_RunDLL")
辅助选项
模块： access.cpl
命令： rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5
结果： 显示辅助选项/常规。
命令： rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1
结果： 显示辅助选项/键盘。
命令： rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2
结果： 显示辅助选项/声音。
命令： rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3
结果： 显示辅助选项/显示。
命令： rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4
结果： 显示辅助选项/鼠标。
添加新硬件
模块： sysdm.cpl
命令：rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1
增加新的打印机
模块：shell32.dll
命令：rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter
添加/删除程序
模块：appwiz.cpl
命令：rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1
结果：显示安装/卸载。
命令：rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1
�
相关问答：
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
