当前位置: 源码素材网 » VB教程 » 详情页

以拖放方式打开文件的VB示例 附代码

  •   时间:2019-05-15
  • 概述:拖放文件 路径

Vb以拖放文件的方式打开文件,这里的代码是拖放文件至窗口中,并显示出该文件的路径信息,这是拖放打开文件的第一步,以下为具体代码:

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "拖放文件,将文件名添加至列表框"
   ClientHeight    =   3195
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.ListBox List1 
      Height          =   2760
      Left            =   240
      OLEDropMode     =   1  'Manual
      TabIndex        =   0
      Top             =   120
      Width           =   4215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'www.srcfans.com
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim ThisFile As Variant
  
    For Each ThisFile In Data.Files
        List1.AddItem ThisFile
    Next
End Sub

例子详见本源码:VB 6 拖放文件,将文件名添加至列表框

    相关内容:

    相关声明:

      若“以拖放方式打开文件的VB示例 附代码”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。