发新话题
打印

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

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

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

TOP

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

TOP

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

TOP

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

Command

说明

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

VB /cmd cmdlineargs

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

MyApp cmdlineargs

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

本示例在某个函数中用 Command 函数获得命令行参数,并将命令行参数以 Variant 类型之数组返回。
复制内容到剪贴板
代码:
换个头像,看见广告就眼红,直接封ID。

TOP

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


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

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

非常谢谢落花老大

TOP

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

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

TOP

你可能没有安装MSDN,其他装了MSDN,一查里面的函数就可以了。
不好意思我将函数名称输入错了。
换个头像,看见广告就眼红,直接封ID。

TOP

发新话题