| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 414 人关注过本帖
标题:[求助]这个什么意思?
只看楼主 加入收藏
人人
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2006-9-10
收藏
 问题点数:0 回复次数:5 
[求助]这个什么意思?
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
2006-09-13 22:21
人人
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2006-9-10
收藏
得分:0 
还有个问题~
If Text1.Text = Empty Then
Empty是什么意思?

http://www. 修豪网络
2006-09-13 22:22
google
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:3419
专家分:23
注 册:2005-11-1
收藏
得分:0 
以下是引用人人在2006-9-13 22:22:10的发言:
还有个问题~
If Text1.Text = Empty Then
Empty是什么意思?

如果文本框的文本为空


祝天下所有母亲幸福安康!~
2006-09-13 22:37
google
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:3419
专家分:23
注 册:2005-11-1
收藏
得分:0 
上面的是一个API,具体是哪方面的我还要查询一下

祝天下所有母亲幸福安康!~
2006-09-13 22:41
google
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:3419
专家分:23
注 册:2005-11-1
收藏
得分:0 

要以与文件后缀名关联的程序打开文档,在Windows 9X和Windows NT下可以用ShellExcute函数方便地实现。这则小技巧展示了会有多方便—你只需要一个声明和一行代码!
  开始一个新项目。在Form上放一个Command button,然后加入以下代码:
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

Private Const SW_NORMAL=1 '(这些API常量可以用VB常量代替,比如vbNormalFocus)
Private Const SW_MAXIMIZE=3
Private Const SW_MINIMIZE=6
Private Const SW_SHOW = 5

Private Sub Command1_Click()
 Dim lR As Long
 Dim sFile As String
 Dim iFile As Integer

 ' 创建一个测试用的文本文件
 sFile = App.Path & "\SHELLTST.TXT"
 On Error Resume Next
 Kill sFile
 On Error GoTo 0
 iFile = FreeFile
 Open sFile For Binary Access Write As #iFile
 Put #iFile, , "这是一个测试文件,演示ShellExecute API函数。"
 Close #iFile

 ' 依照文件名打开这个文本。Windows将会检查哪个可执行程序与.TXT关联
 ' (默认一般是Notepad),并运行程序打开文档
 lR = ShellExecute(Me.hWnd, "Open", sFile, "", "", vbNormalFocus)
 If (lR < 0) Or (lR > 32) Then
   ' 成功
 Else
  MsgBox "无法打开 '" & sFile & "'", vbInformation
 End If
End Sub

  当你点击command button,将会在项目所在目录创建一个文本文件,并用默认程序打开(一般是Notepad)。


祝天下所有母亲幸福安康!~
2006-09-13 22:45
zmetero11
Rank: 1
等 级:新手上路
帖 子:123
专家分:0
注 册:2006-2-5
收藏
得分:0 
回答完全正确

黑色的羽翼笼罩与夜月中,守护...不变<-\^/
2006-09-15 21:55
快速回复:[求助]这个什么意思?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025571 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved