下载exe - 108 KB下载source code - 527 KB
介绍
我写这篇文章是为了那些要求通用对话模式的人。如果你是新手,你也可以在这个站点找到树视图对话框。
我们的问题是:微软将文件对话框定义为不可继承的,因此程序员只能使用“打开”和“保存”按钮。我们将改变这一点。
这是一个XP风格的通用对话框。你可以把你自己的图标在按钮,改变对话框的颜色和按钮的标题,并可能添加动画。
先决条件
基本的语言知识和listview控件是必需的。在开始使用之前,请阅读下面的警告。
使用的代码
在项目中导入您喜欢的对话框的所有代码文件,并在“Import”按钮的代码中处理文件,而不是显示消息框。我不会在这里解释所有的事情,但只是标题。
当您加载表单时,程序将使用目录。获取计算机中的所有驱动器,并将它们添加到combobox控件中。这里需要一个图像列表来设置所选驱动器的图标“以及以后所选文件夹”。初始路径是’c:’。当我们在组合中选择一个项目时,我们将在列表框中显示所选项目的内容。如果我们选择一个驱动器,我们将在列表中显示它的文件夹,如果我们选择一个文件夹,我们将在列表中显示它的内容。但是,我们如何选择文件夹呢?我们只有开车的套餐!
实际上,我们将向list的双击事件添加一些操作。selecteditem,所以我们将检查列表是否。选中的项目是一个文件夹,如果为true,我们将把它的路径添加到组合框中,并在组合框附近显示文件夹图标。然后,我们将组合中的选定项设置为该文件夹的路径,因此,列表将被更新以显示该文件夹的项(包括文件、folders_only top level)。这里需要两个图像列表,因为有两个视图(大图标和小图标),并且必须将它们绑定到list控件。主要流程如下:
隐藏,收缩,复制Code’this will handle combobox item selection
Private Sub ToolStripComboBox1_SelectedIndexChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles ToolStripComboBox1.SelectedIndexChanged
'this will display colomns names with respect
'to the case folders or my computer(drives)
SetUpListViewColumns()
'always display everything let user decide the extention after that
ComboBox2.Text = "*.*"
Dim dd As String
Dim flag As Byte
If ToolStripComboBox1.SelectedItem.ToString = Nothing Then Exit Sub
''err handler
dd = ToolStripComboBox1.SelectedItem.ToString
If ToolStripComboBox1.Text.ToLower = "my computer" Then
' the user pressed my computer button
'it will display drives instead of folders in the list
handle_mc()
' stack back is usful to go back,stors past pathes
back.Push("my computer")
If back.Count > 1 Then
''' i shouldn,t enable back button if i don,t have any back pathes
ToolStripButton2.Enabled = True
End If
Exit Sub
End If ''
'the next will display icon according to user selectioon
'''determine dd icon '' if it is folder
If Directory.Exists(dd) Then
ToolStripButton5.BackgroundImage = TreeNodeImageList.Images(15)
End If
'' if it is drive and what kind of drives is it ?
Dim i As Integer
Dim j() As String
j = Directory.GetLogicalDrives
For i = 0 To UBound(j)
Dim cdrive As System.IO.DriveInfo
cdrive = My.Computer.FileSystem.GetDriveInfo(j(i).ToString)
If cdrive.ToString = dd Then
Select Case cdrive.DriveType
Case DriveType.Fixed
ToolStripButton5.BackgroundImage = TreeNodeImageList.Images(3)
Case DriveType.CDRom
ToolStripButton5.BackgroundImage = TreeNodeImageList.Images(11)
Case DriveType.Network
ToolStripButton5.BackgroundImage = TreeNodeImageList.Images(5)
Case DriveType.Removable
ToolStripButton5.BackgroundImage = TreeNodeImageList.Images(12)
End Select 'MsgBox("")
GoTo outer
End If
Next
outer:
‘’’’’’’’’’’’’’’’’’’'now we did set the icon
'now it is time to display contents in listview
displayfiles_folders(dd)
folders_path = ToolStripComboBox1.Text 'global variable to hold the path
back.Push(folders_path) 'save the path in back stack
If back.Count > 1 Then
' remember to enable the back button if you have recent pathes
ToolStripButton2.Enabled = True
End If
Me.Text = folders_path 'display the path in the window text
End Sub
‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
'this sub will handle item double click in the list view
Private Sub ListView_DoubleClick(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles ListView.DoubleClick
Dim jj As String = Me.Text
If is_drive(jj) = True Then
'this happens when i click on a drive
save_adder(jj)
'add the path of it to combobox
'and refresh list box according to that
Else If Directory.Exists(jj) = False Then
' the only possibility for this if i click on file ..well nothing will happen
Exit Sub
End If ' now we are sure that it is a folder
save_adder(jj) 'make the refresh after we add and set selected item in the combo
End If
End Sub
的兴趣点
我不负责任何滥用此控制将导致任何损害您的系统。删除按钮将永久删除您选择的任何项目,在您确认删除后!如果你选择删除“我的文件”文件夹,你可能会损坏你的系统,所以不要尝试这样做。
当向“drives_folders”组合框添加项目时,使用已定义的过程(save_adder)而不是手动添加。它将防止重复的项目在组合框。我也可以使用树列表来显示驱动器和文件夹,而不是使用组合框。当然,每次用户单击“fake”组合框时,我都需要隐藏和取消隐藏该列表,但这将使我们能够在列表中显示驱动器和文件夹的图标。我认为完成一个小小的要求是一个漫长的过程。
历史
最后更新:5-5-2007。
本文转载于:http://www.diyabc.com/frontweb/news428.html