易截截图软件、单文件、免安装、纯绿色、仅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使用手形的图标

Option Explicit
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle ......

VB使用ActiveX控件实例和步聚

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

如何使用VB制作OCX控件

 如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程操作。同时OCX控件还有利于主程序的简单化、功能的重用、隐藏程序实现细节、便于升级、传播方便等优点。现在我们可以利用VB 5.0方便地制作出自己的OCX控件供我们在编程中使用,同时还可以把它送给你周围喜欢编程的朋友!下面列出制 ......

C#中调用VB中Inputbox功能

  C#自己没有Inputbox这个类,但是Inputbox也蛮好用的,所以有两种方法可以使用
   一:.间接调用vb中的Inputbox功能
      1。在项目中添加对Microsoft.VisualBasic引用
      2。在项目中添加命名空间Using Microsoft.VisualBasic;
  &n ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号