老鸟来看这个问题 1。我想在VB中打开任意一个程序,能做到吗?比如我想在VB中打开Excel表格,可以吗?2。如果我想在VB中做一个表单应该用什么控件呢?VB中有表格控件吗?如果有是哪一个? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 打开excelPrivate Sub PrintToExcel() Dim ExApp As Excel.Application Dim ExWorkBook As Excel.Workbook Dim ExWorkSheet As Excel.Worksheet On Error GoTo Cancel Screen.MousePointer = 11 Set ExApp = CreateObject("Excel.application") Set ExWorkBook = ExApp.Workbooks.Add Set ExWorkSheet = ExWorkBook.Sheets(1) strSQL = "SELECT * FROM " & mstrTableName(3) & strWhere(3) ‘’处理 ExApp.Visible = True Screen.MousePointer = 0 Exit Sub Cancel: Screen.MousePointer = 0 ExApp.Quit Set ExApp = Nothing Set ExWorkBook = Nothing Set ExWorkSheet = Nothing End Sub作个表格,更简单,用datagrid或者是msflexgrid,over 用shell可以吧我是菜鸟随便说说 一:可以,方法很多,最简单的是用SHELL,可以打开所有的可执行程序,如果是其他类型的文件,可以使用SHELL配合RUNDLL32来做到二:VB的表格控件还是比较多的,右键点击控件工具栏,点“部件”到里面找,凡是有“GRID”四个字的都是表格控件。 1. 关键要看你用什么方式打开了, 在VB编译环境外部打开最简单,直接用shell调用; 要想在VB编译环境内部打开使用OLE控件是相对简单的方法了。2.VB的表格控件多得很,DBGrid,Grid,Cell组件等等... 各位大侠别笑我,我刚学再问个简单的问题SHELL是什么?不明白,还有怎么使用? guxizhw(失落的彩虹) :你那段代码是什么意思能给我讲讲吗?我没装MSDN,不好意思啦还有,各位老鸟,打开所有程序的过程都一样吗?能否把步骤给我写出来?谢谢 第一个用shell函数或shellexcute,在vb里一写自动会有提示的 还是不明白,不会用shell函数,怎么用啊,举个例子行吗? shell 你的程序的位置名称, 打开方式就ok了 那shell打开别的程序有什么意义吗?如果我想把别的电脑上的程序引进来可以吗? 一个朋友给我举个例子如下Dim ID As IntegerID = Shell("c:\windows\system32\notepad.exe", ("c:\windows\system32\notepad.exe", )("c:\windows\system32\notepad.exe", )这个是目录名,那这个呢?("c:\windows\system32\notepad.exe", )能给我讲讲吗?谢谢 在NET中SHELL函数中能看见这些,这些分别是什么意思?谢谢AppWinStyle.Hide AppWinStyle.NormalFocus AppWinStyle.MinimizedFocus AppWinStyle.MaximizedFocus AppWinStyle.NormalNoFocus AppWinStyle.MinimizedNoFocus AppWinStyle这是什么东西? 不是全部的,就是VB的帮助,10多MB而已~~` ifix里面的一段vb代码报错,请大家帮忙看看 请问MiDocView控件该如何使用? 有什么软件可以一次统计一个工程总共有多少行代码? 我想把窗体内的控件按照窗口大小比例变化,如何? 关于进、销、存中的一个小问题!!!!!++++100分!!在线等!!! 用什么办法可以得到数据文件中的表的名字 如何将dbf导入sql? 请问如何触发母窗体的事件? 哪位能给我提供DES加密算法的源程序,最好是VB写的,谢谢!(在线等待) 谁有酒店管理的类似程序代码,课程设计用,谢谢啊~ 问:如何隐藏一个进程的窗体 发送16进制问题..
Dim ExApp As Excel.Application
Dim ExWorkBook As Excel.Workbook
Dim ExWorkSheet As Excel.Worksheet
On Error GoTo Cancel
Screen.MousePointer = 11
Set ExApp = CreateObject("Excel.application")
Set ExWorkBook = ExApp.Workbooks.Add
Set ExWorkSheet = ExWorkBook.Sheets(1)
strSQL = "SELECT * FROM " & mstrTableName(3) & strWhere(3)
‘’处理
ExApp.Visible = True
Screen.MousePointer = 0
Exit Sub
Cancel:
Screen.MousePointer = 0
ExApp.Quit
Set ExApp = Nothing
Set ExWorkBook = Nothing
Set ExWorkSheet = Nothing
End Sub
作个表格,更简单,用datagrid或者是msflexgrid,over
我是菜鸟
随便说说
二:VB的表格控件还是比较多的,右键点击控件工具栏,点“部件”到里面找,凡是有“GRID”四个字的都是表格控件。
在VB编译环境外部打开最简单,直接用shell调用;
要想在VB编译环境内部打开使用OLE控件是相对简单的方法了。2.VB的表格控件多得很,DBGrid,Grid,Cell组件等等...
guxizhw(失落的彩虹) :你那段代码是什么意思能给我讲讲吗?我没装MSDN,不好意思啦
还有,各位老鸟,打开所有程序的过程都一样吗?能否把步骤给我写出来?谢谢
就ok了
Dim ID As Integer
ID = Shell("c:\windows\system32\notepad.exe", ("c:\windows\system32\notepad.exe", )("c:\windows\system32\notepad.exe", )这个是目录名,那这个呢?("c:\windows\system32\notepad.exe", )能给我讲讲吗?谢谢
AppWinStyle.Hide
AppWinStyle.NormalFocus
AppWinStyle.MinimizedFocus
AppWinStyle.MaximizedFocus
AppWinStyle.NormalNoFocus
AppWinStyle.MinimizedNoFocus
AppWinStyle这是什么东西?