VB调用画图程序源码，可以是打开空的画图程序，也可以打开指定的一个图片文件。

VB调用画图程序源码，可以是打开空的画图程序，也可以打开指定的一个图片文件。

用VB调用系统自带的画图程序，可以API函数ShellExecute来实现，很简单，只要一行代码。

必须先在窗体模块声明API函数：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

代码1,直接调用画图程序，没有内容的，以下代码写在一个按钮点击事件中。
Private Sub Command1_Click()
    ShellExecute Me.hWnd, "open", "mspaint.exe", "", 1, 5
End Sub

也可以用另外的一行代码代替上面的：

Shell "mspaint.exe" 

---------------------------------------
代码2,用画图打开一个文件。如打开C盘有一个名叫abc.png的图片文件。
Private Sub Command1_Click()
    ShellExecute Me.hWnd, "open", "mspaint.exe", "c:\abc.png", 1, 5
End Sub

代码2也可以用另一行代码代替：

Shell "mspaint.exe " & "c:\abc.png" ’要注意，exe后面有一个空格

来自 五笔打字通

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/164.html