本文由 sallydyw 修改于 2005.12.19

1.      调用Word
2.      调用Excel
3.      调用Matlab
4.      调用DLL的入口点
5.      VB6中使用滚轮
6.      VB中调用ANSYS
7.      vb中位运算的运算符是什么
8.      vb调用公式编辑器(MATHTYPE)
9.      vb有自运算符吗

1.      调用Word
添加对Microsoft Word的引用
VB菜单-工程-引用-选择对应的Microsoft Word对象
声明
dim wd as new word.application
具体的使用帮助参见vbawdXX.chm(在Office的安装目录里面)
隐藏word界面
wd.visible = false
关闭
wd.quit
set wd=nothing

2.      调用Excel
添加对Microsoft Excel的引用
VB菜单-工程-引用-选择对应的Microsoft Excel对象
声明
dim ex as new Excel.application
具体的使用帮助参见vbaxlXX.chm(在Office的安装目录里面)
隐藏excel界面
ex.visible = false
关闭
ex.quit
set ex = nothing

3.      调用Matlab
COM组件编程,参阅 g-290
MatrixVB只能实现MatLab的极少数功能

4.      调用DLL的入口点
用VS6自
带的一个工具Dependency Walker可以看到DLL里边定义的函数入口，
在VB里声明DLL函数时写成完全一样的名字就可以解决问题了。

比如，在Charles Petzold那本Programmnig Windows的第21章里，讲到了
在VC里写DLL的方法，其中一个例子生成一个EdrLib.dll，在VC里边定义了
两个函数EdrCenterTextA，EdrCenterTextW。用Dependency Walker打开
EdrLib.dll后看到的两个入口点成了 _EdrCenterTextA@12, _EdrCenterTextW@12。
在VB的窗体里声明这两个函数就应该是这样：

Private Declare Function EdrCenterText Lib "EdrLib.dll" Alias _
"_EdrCenterTextA@12" (ByVal hdc As Long, ByRef prc As RECT, _
ByVal pString As String) As Boolean

PS:对于编译后找不到.DLL文件的错误，可以是将你的工程文件编译成exe一次，
以后在IDE里边运行程序时就不会有类似的错误信息了。
P2.S:凡是DLL里写成_开头的函数，在vb.net以下版本中使用必须带alias关键字，
在vb2005以上版本中则不一定

5.      VB6中使用滚轮
http://soft.xaonline.com/SoftWareView.asp?SoftWareID=46994
(此链接已经失效，待更新)

6.      VB中调用ANSYS

"C:\PROGRAM FILES\ANSYS INC\ANSYS61\BIN\INTEL\ANSYS61.EXE"  -b -i e:\0.TXT -o e:\room1\output.TXT
SHELL运行就可以了

7.      vb中位运算的运算符是什么
vb6以下版本
and
or
xor
\2
*2
vb7:
bitand
bitor
bitxor
bitnot
\2
*2
vb8:
and
or
xor
not
<<
>>


8.      vb中调用公式编辑器
参见本版1181篇

9.      vb有自运算符吗
vb7以上提供了自运算符:
a += b  ' a = a + b
a -= b  ' a = a - b
a *= b  ' a = a * b
a /= b  ' a = a / b
a \= b  ' a = a \ b
a &= b  ' a = a & b
a ^= b  ' a = a ^ b
--
修改:sallydyw FROM 59.66.96.*
FROM 59.66.96.*