[VB6 ] 加入檔案選取問題？？
Option Strict Off
Option Explicit On
Friend Class PathDialog
Inherits System.Windows.Forms.Form
Public returnCode As Boolean
Private Sub CancelButton_Renamed_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CancelButton_Renamed.Click
returnCode = False
Me.Hide()
End Sub
Private Sub dir_Renamed_Change(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles dir_Renamed.Change
file.Path = dir_Renamed.Path
End Sub
Private Sub drive_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles drive.SelectedIndexChanged
dir_Renamed.Path = drive.Drive
End Sub
Private Sub file_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles file.SelectedIndexChanged
txtPath.Text = file.Path & "\" & file.FileName
End Sub
Private Sub PathDialog_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
returnCode = True
End Sub
Private Sub OKButton_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles OKButton.Click
returnCode = True
Me.Hide()
End Sub
End Class
程式如上，
請問我要如何將該程式修改程可以選擇多檔的程式？
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.121.208.30
推
01/30 21:24, , 1F
01/30 21:24, 1F