锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net不规则界面 vb窗体显示不全( 二 )

IT技术控件


'根据磁盘符号的变更，显示根目录里的文件
ListBox1.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(ComboBox1.Text)
ListBox1.Items.Add(MyFile)
Next
'根据磁盘符号的变更 ， 重新显示目录树
Dim DiscSymbol As String
DiscSymbol = Microsoft.VisualBasic.Left(ComboBox1.Text, Len(ComboBox1.Text) - 1)
Call AddRootDirectory(DiscSymbol)
End Sub
'递归过程根据子目录寻找上级目录名--从而构成完整的目录路径
Private Sub AllPath(ByVal ThisNode As TreeNode, ByRef MyPathName As String)
If ThisNode.Level1 Then
'该节点层数大于1，其父节点不是磁盘根目录
MyPathName = ThisNode.Parent.Text"\"MyPathName
Dim MyNode As TreeNode = ThisNode.Parent
Call AllPath(MyNode, MyPathName)
Else
'该节点层数等于1，其父节点就是磁盘根目录
MyPathName = ComboBox1.TextMyPathName
End If
End Sub
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
'为vb.net不规则界面了搜索选中的节点对应目录的文件，需要组成全路径
Dim MyAllPathName As String = TreeView1.SelectedNode.Text
Dim MyNode As TreeNode = TreeView1.SelectedNode
If TreeView1.SelectedNode.Level = 0 Then
'如果选中的是根节点
MyAllPathName = ComboBox1.Text
Else
'如果选中的是非根节点，调用递归过程组成全路径
Call AllPath(MyNode, MyAllPathName)
MyAllPathName = MyAllPathName"\"
End If
'根据路径，搜索文件名并显示
ListBox1.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyAllPathName)
ListBox1.Items.Add(MyFile)
Next
End Sub
End Class
vb界面能美化吗？感觉新出来的vb.net的界面明显比vb美观，但是vb.net语法还不熟 ， 现在想把vb变得好看一些 。不难的，vb.net的语言比vb的完整些而已 。而且一样可以利用英文的理解方法理解vb.net的代码，相对来说，vb.net更容易 。语法来看 ， vb多数是用缩写的，而vb.net是用完整的单词，更便于理解，而且API也简化了很多 。
所以，vb转vb.net是很容易上手的 。
VB.NET 2005 如何做部分窗体透明简单的部分透明比较难做vb.net不规则界面，不过可以换个方式考虑一下 。
把本问题转换成在VB.NET 2005环境下创建不规则窗体（＝普通窗体 － 透明部分）问题，解决方法就很多vb.net不规则界面了，网上也有许多例子 。如 章立民 的书里就详细讲过 。
大致思路如下：
1 。将backgroundimage设成一个位图（点阵图）
2.将Transparaencykey设成位图的背景颜色（位图最取背景单纯 ， 单纯部分将成为透明部分）
3.如需要可以将formborderstyle设为none，会移除标题栏 ， 并需要手动编写窗体移动、关闭等动作代码，
vb.net不规则界面的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb窗体显示不全、vb.net不规则界面的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：postgre查询所有字段类型的简单介绍

下一篇：早餐店该如何运转营销，早餐店该如何运转营销呢