易截截图软件、单文件、免安装、纯绿色、仅160KB

VB中Shell和ShellExecute函数的使用方法和区别

 写了一个vb的程序,用来把原来写的几个vb和vc的程序整合起来。就是使用Shell函数。结果发现,vc的程序可以很好的显示,但vb写的却一运行就最小化了。仔细查看了一下以下文章,才发现原来shell函数的默认显示模式是windowstyle是等于vbMinimizedFocus。然后就是直接加上一个vbNormalFocus。一切ok!  
vb的shell函数用法: 
功能:执行一个可执行文件,返回一个 Variant (Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。 
语法:Shell(pathname[,windowstyle]) 
Shell 函数的语法含有下面这些命名参数: 
pathname 必要参数。Variant (String),要执行的程序名,以及任何必需的参数或命令行变量,可能还包括目录或文件夹,以及驱动器。 
Windowstyle 可选参数。Variant (Integer),表示在程序运行时窗口的样式。如果 windowstyle 省略,则程序是以具有焦点的最小化窗口来执行的。 
shellExecute函数: 
     其用法较为复杂,但是功能更加强大。
     HINSTANCE ShellExecute(
      HWND hwnd,           '父窗口句柄
      LPCTSTR lpOperation,   '操作或打开方式 "edit","explore","open","find","print","NULL"
      LPCTSTR lpFile,         '文件名,前面可加路径
      LPCTSTR lpParameters,   '参数
      LPCTSTR lpDirectory,    '默认文件夹
      INT nShowCmd          '显示方式
);
ShellExecute的功能是运行一个外部程序 
(或者是打开一个已注册的文件、打开一个目录、打印一个文件等等), 
并对外部程序有一定的控制。shell函数在这个方面先相对较弱, 
在大多数情况下ShellExecute是更多的被使用的,
 
 lR = ShellExecute(Me.hWnd, "Open", sFile, "", "", vbNormalFocus)
 If (lR < 0) Or (lR > 32) Then
   ' 成功
 Else
  MsgBox "无


相关文档:

VB使用ActiveX控件实例和步聚

目的掌握一个简单的VB程序的建立、编辑、调试、运行和保存的方法。
操作步骤 ⑴进入VB环境,新建工程。方法是:如果出现“新建工程”对话框,则选择“标准.EXE”并点击[打开]按纽;或者直接点击菜单[文件]-[新建工程]。都会出现一个名为“Form1”的新窗体。
⑵从标准控件工具栏中向窗体加 ......

VB与JAVA交互


Private Sub Command1_Click()
Dim dso As New XMLDSOControl
Dim doc As IXMLDOMDocument
  Set doc = dso.XMLDocument
Dim rel  As IXMLDOMNodeList
Set x = CreateObject("Microsoft.XMLHTTP")
  x.Open "GET", "http://127.0.0.1:8080/emrb/Mrbmodel?action=dis&u ......

VB 发送模拟按键

Dim ReturnValue, I
ReturnValue = Shell("Calc.EXE", 1) ' 运行计算器。
AppActivate ReturnValue ' 激活计算器。
For I = 1 To 100 ' 设置计数循环。
SendKeys I & "{+}", True ' 按下按键给计算器
Next I ' 将所有 I 值相加。
SendKeys "=", True ' 取得总合。
SendKeys "%{F4}", True ' 按 ALT+F4 关 ......

C#中调用VB中Inputbox功能

  C#自己没有Inputbox这个类,但是Inputbox也蛮好用的,所以有两种方法可以使用
   一:.间接调用vb中的Inputbox功能
      1。在项目中添加对Microsoft.VisualBasic引用
      2。在项目中添加命名空间Using Microsoft.VisualBasic;
  &n ......

VB.NET压缩ACCESS数据库

'创建数据库
  Private Sub Create(ByVal mdbPath As String)
        If File.Exists(mdbPath) Then
            Throw New Exception("目标数据库已经存在,无法创建")
        ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号