编程开发论坛 - Powered by Discuz! Board

标题: [基础] 我想实现当在目录窗口或资源管理器中选中文件时,得到此文件的文件名.和路径名 [打印本页]

作者: dljdlj70000 时间: 2006-11-17 16:23 标题: 我想实现当在目录窗口或资源管理器中选中文件时,得到此文件的文件名.和路径名

我想实现当在目录窗口或资源管理器中选中文件时,得到此文件的文件名.和路径名请各位大虾帮忙

作者: dljdlj70000 时间: 2006-11-17 16:51

就是我在资源管理器上双击某个文件（已和我要编的程序建立关联关系）时被我要编的程序关联打开我这个程序如何获得这个文件的名称和路径

作者: dljdlj70000 时间: 2006-11-17 16:55

老大，我不需要时时刻刻监控他只要双击和我关联的程序的文件时获得文件名和路径

作者: Nothing 时间: 2006-11-17 16:58

很简单，在这个程序中调用 Command 函数就可以了

Command

说明

当从命令行装入 Visual Basic 时，/cmd 之后的命令行的任何部分作为命令行的参数传递给程序。下面的示例中，cmdlineargs 代表 Command 函数返回的参数信息。

VB /cmd cmdlineargs

对于使用 Visual Basic 开发并编译为 .exe 文件的应用程序，Command 返回出现在命令行中应用程序名之后的任何参数。例如：

MyApp cmdlineargs

想知道如何在正在使用的应用程序的用户界面中改变命令行参数，请搜寻关于“命令行参数”的帮助。

本示例在某个函数中用 Command 函数获得命令行参数，并将命令行参数以 Variant 类型之数组返回。<

作者: dljdlj70000 时间: 2006-11-17 23:56

MDIForm.Picture1.LinkExecute "asd"
将这个发送要打开的文件名就可以了，一般是Commend函数，例如
MDIForm.Picture1.LinkExecute Commend

老大，上面是你昨天写的，你把Command写成Commend
第二天上午我花了100分在cdsn上求助
才知道用Command 和你现在说的Command函数大致一样呵呵你们都是高手啊
不过直接MDIForm.Picture1.LinkExecute Command就行了

richtextbox.loadfile Command 就可以打开点击的文件了

非常谢谢落花老大

作者: dljdlj70000 时间: 2006-11-18 00:25

Private Sub MDIForm_Load()
If App.PrevInstance Then
      frmMDI.LinkTopic = ""    ' 这两行用于清除新运行的程序的DDE服务器属性，
      frmMDI.LinkMode = 0
      frmMDI.Picture1.LinkMode = 0             '--
      frmMDI.Picture1.LinkTopic = "DDE|frmMDI"  '  |______连接DDE程序并发送数据/参数
      frmMDI.Picture1.LinkMode = 2             '  |    “|”为管道符，是“退格键”旁边的竖线，

      frmMDI.Picture1.LinkExecute Command
      End                            '  结束新程序的运行
End If

================================

Private Sub MDIForm_LinkExecute(CmdStr As String, Cancel As Integer)

frmMDI.Picture1.Tag = Command
Me.WindowState = 2
Me.SetFocus
Dim fso
Set fso = CreateObject("scripting.filesystemobject")
Dim dirx As String
dirx = Right(Command, Len(Command) - 1)
dirx = Left(dirx, Len(dirx) - 1)
If fso.FileExists(dirx) Then
CreateNewDocument
      frmMDI.ActiveForm.rtfText.LoadFile dirx
      frmMDI.ActiveForm.Caption = dirx
   Else: MsgBox "不存在"
End If
Cancel = False ' '如果为TRUE 则客户端要出错
End Sub

最终终于成功  最后再次谢谢落花老大

作者: Nothing 时间: 2006-11-18 13:51

你可能没有安装MSDN，其他装了MSDN，一查里面的函数就可以了。
不好意思我将函数名称输入错了。

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)