VB中如何嵌入其他应用程序

UINT WinExec:

WinExec("C:\\Windows\\Notepad.exe",SW_SHOW)

WinExec("C:\\Windows\\Notepad.exe C:\\aa.txt",SW_SHOW)

WinExec("C:\\...\\IExplorer.exe www.microsoft.com",SW_SHOW)

HINSTANCE ShellExecute:

ShellExecute (NULL,"Open","Some.txt",NULL,NULL)

ShellExecute (NULL,"Open","庆搜www.microsoft.com",NULL,NULL)

BOOL CreateProcess 比较麻尘晌烦,但是它的功能最强.可以给程序传值,

控制程序的据柄,制定继承状态等等.在桌面上双誉兄历击图标打开应用，程序就是用它实现的.在MSDN中有详细介绍.

以上三种函数由简而繁,按实际情况调用.

新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

SQL查询语言主要结构为：

Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]

查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。

SQL查询语言如有错程序运行时告诉你出错，作相应改动罩咐即可。本人一般先按上尘闷睁述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮控件将前述需复制的连接字符串和SQL查询派岁语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1控件，再添加ADODC1控件再添其他内容。

楼主森袭这个程序不完整，另对J压根没有交待，这里应该是个双循环。另外，如果数组里值要有0的话，这个程序会运行long long time，所以随机数我选取了1—17，VB6环境下测试成功

Private Sub Form_click()

Dim i As Integer, j As Integer,x as integer, f As Boolean,

Dim a(16) As Integer

Randomize‘初始化随机数种子

For i = 0 To 16

x = Int(Rnd * 17) + 1 '首先让X这个临时变量随机得到1~17中的一个差春裂数值

f = False '判断前初始判断标志f为false

For j = 0 To i－1'这个for循环让x与数组中已经存在的数值进行逐一比对

If x = a(j) Then ‘如果x的值已经在数组中存在虚闭，那么就跳出for循环，并置f的值为true

f = True

Exit For

End If

Next j

---