开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
Form_Path.frm
资源名称：ERPSYS.zip　[点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：3k
源码类别：

企业管理

开发平台：

Visual Basic

Form_Path.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form Frm_Path 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "文件路径"
  5.    ClientHeight    =   3780
  6.    ClientLeft      =   3510
  7.    ClientTop       =   2070
  8.    ClientWidth     =   4845
  9.    Icon            =   "Form_Path.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3780
  15.    ScaleWidth      =   4845
  16.    StartUpPosition =   2  '屏幕中心
  17.    Begin VB.CommandButton Command1 
  18.       Caption         =   "取消&C"
  19.       Height          =   315
  20.       Index           =   1
  21.       Left            =   3630
  22.       TabIndex        =   5
  23.       Top             =   3390
  24.       Width           =   1155
  25.    End
  26.    Begin VB.CommandButton Command1 
  27.       Caption         =   "确定&D"
  28.       Height          =   315
  29.       Index           =   0
  30.       Left            =   2040
  31.       TabIndex        =   4
  32.       Top             =   3390
  33.       Width           =   1155
  34.    End
  35.    Begin VB.Frame Frame1 
  36.       Caption         =   "文件路径"
  37.       Height          =   3225
  38.       Left            =   60
  39.       TabIndex        =   0
  40.       Top             =   60
  41.       Width           =   4725
  42.       Begin VB.TextBox Text1 
  43.          Height          =   315
  44.          Left            =   90
  45.          Locked          =   -1  'True
  46.          TabIndex        =   3
  47.          Top             =   210
  48.          Width           =   4545
  49.       End
  50.       Begin VB.DriveListBox Drive1 
  51.          Appearance      =   0  'Flat
  52.          Height          =   300
  53.          Left            =   90
  54.          TabIndex        =   2
  55.          Top             =   570
  56.          Width           =   4545
  57.       End
  58.       Begin VB.DirListBox Dir1 
  59.          Height          =   2190
  60.          Left            =   90
  61.          TabIndex        =   1
  62.          Top             =   930
  63.          Width           =   4545
  64.       End
  65.    End
  66. End
  67. Attribute VB_Name = "Frm_Path"
  68. Attribute VB_GlobalNameSpace = False
  69. Attribute VB_Creatable = False
  70. Attribute VB_PredeclaredId = True
  71. Attribute VB_Exposed = False
  72. Private Sub Command1_Click(Index As Integer)
  73.     If Index = 1 Then Unload Me: Exit Sub
  74.     PathStr = Trim(Text1.Text)
  75.     Unload Me
  76. End Sub
  78.     Private Sub Dir1_Change()
  79. Text1.Text = Dir1.Path
  80. End Sub
  82. Private Sub Drive1_Change()
  83.     On Error Resume Next
  84.     Dir1.Path = Drive1.Drive
  85.     If Err <> 0 Then Drive1.Drive = Dir1.Path
  86. End Sub
  88. Private Sub Form_Load()
  89.     PathStr = ""
  90.     Dir1.Path = App.Path
  91.     Drive1.Drive = App.Path
  92.     Text1 = Dir1.Path
  93. End Sub