作者wwway (拉拉)
看板Visual_Basic
标题[VB6 ] 加入档案选取问题？？
时间Tue Jan 29 23:13:29 2008
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
1F：推 albb0920:建议用ListBox做... 01/30 21:24