vb.net高档界面 vb界面介绍

在vb.net 2003上美化界面

现在越来越多的软件都有了很Cool的2D造型，什么×××× XP啦，×××× 2002之类的，看来争夺软件霸权的地位，2D界面是必不可少的，有很多人认为Visual Basic语言的先天不足导致它不能够很灵活的改变界面，让俺们来看看究竟吧。

成都创新互联专注于网站建设|网站建设维护|优化|托管以及网络推广，积累了大量的网站设计与制作经验，为许多企业提供了网站定制设计服务，案例作品覆盖混凝土泵车等行业。能根据企业所处的行业与销售的产品，结合品牌形象的塑造，量身定制品质网站。

如果大家用过《Windows优化大师》，肯定会被它的界面所倾倒，其实利用ActiveSkin 就可以办到,甚至更爽,但是如果要做的共享软件只是一个文件,在加上几个OCX累赘,似乎很是不爽,看看VB是怎么利用别的东东来实现的吧。

首先新建一个EXE工程，再在窗体上拖几个Label控件，看看Label 的强大功能吧，原理就是利用Label来模拟一个按钮，但是首先要将Label控件的属性要调一下，

Name： LblBtn，

BorderStyle: 1，

Appearance: 0，

Alignment: 2，

这样一个按钮的雏形就已经出来了，如果工程量很大，可以将多个Label控件的Name属性设为一样的，对于按钮的识别就要靠识别Index属性了，为了方便起见，在进入到代码编辑窗口，输入以下代码：

Private Const LBL_BACK_COLOR ＝ HE0E0E0 ’正常时Label控件的背景色

Private Const LBL_WHEN_MOUSE_MOVE ＝ HC0C0C0 ’鼠标移动时Label的背景色

Private Const LBL_WHEN_MOUSE_DOWN ＝ H808080 ’鼠标按下时Label的背景色

再在Form的Load事件中输入以下内容

Private Sub Form_Load（）

Dim Count As Integer

For Count ＝ 0 To 3 ’请将此出的3换成你的LblBtn数量的个数－1

LblBtn（Count）.BackColor＝LBL_BACK_COLOR ’初始化LblBtn的背景

Next Count

End Sub

然后再在LblBtn的MouseMove和MouseDown事件中来搞定剩余部分：

Private Sub LblBtn_MouseDown（Index As Integer， Button As Integer， Shift As Integer， X As Single， Y As Single） ’当鼠标按在LblBtn上时

LblBtn（Index）.BackColor ＝ LBL_WHEN_MOUSE_DOWN ’临时改变LblBtn背景颜色

End Sub

Private Sub LblBtn_MouseMove（Index As Integer， Button As Integer， Shift As Integer， X As Single， Y As Single） ’鼠标在LblBtn上面移动时触发该事件

Dim Count As Integer

DoEvents ’暂时将系统控制权教给系统

If Button Then Exit Sub ’如果按钮被按下就退出该过程

For Count ＝ 0 To 3

If Count Index Then ’如果按下的不是其它按钮

LblBtn（Index）.BackColor ＝ LBL_BACK_COLOR ’将背景设为正常

Else

LblBtn（Index）.BackColor ＝ LBL_WHEN_MOUSE_MOVE ’将背景设为鼠标移动的背景

End If

Next Count

End Sub

Private Sub Form_MouseMove（Button As Integer， Shift As Integer， X As Single， Y As Single）

Dim Count As Integer

DoEvents

For Count＝0 To 3

LblBtn（Count）.BackColor＝LBL_BACKCOLOR ’恢复背景

Next Count

End

本来利用Windows的消息系统来完成这一“艰巨”的任务最简单，可问题就来了，Label控件没有窗口句柄怎么办？可是此问题与题无关，写了会有骗稿费之：）

OK，Label控件就讲到这里，在来说说TextBox控件，

各位看关恐怕看惯了白颜色的背景，那么就换换颜色以养养俺们那和绵羊一样的眼睛（为什么说绵羊？俺也不知道），可是VB提供的RGB函数弄出来的颜色不是怎么好看，这里俺来教大家一个小Tip，RGB函数的Red，Green，Blue这三个参数若一样，则产生的颜色是灰度，当然越接近白颜色越好，但也不能让各位看不出来，俺建议TextBox的背景为RGB（235，235，235），各位还是实战一下，将一个TextBox拖到窗体上，属性设置如下

Appearance 0

BorderStyle 1

MutilLine True

千万不要设置ScrollBars属性，否则会影响效果

在Form的Load事件中初始化TextBox

Dim bkColor As Long

Private Sub Form_Load（）

bkColor＝RGB（235，235，235）

Text1.BackColor＝bkColor

End Sub

在Form和Text1的MouseMove事件中:

Private Sub Form_MouseMove（Button As Integer， Shift As Integer， X As Single， Y As Single）

Text1.BorderStyle ＝ 0

End Sub

Private Sub Text1_MouseMove（Button As Integer， Shift As Integer， X As Single， Y As Single）

DoEvents

Text1.BorderStyle ＝ 1

End Sub

在按下F5试试是不是很Cool?

可能各位看关玩过石器时代，一定会对里面的TextBox的效果感到很爽，VB还不是可以做到，有焦点的控件可以使用SetFocus方法来为其设置焦点，可是一个窗体上如果控件太多了，一个一个的用SetFocus是不是太傻了?这一节的主角就是－－－－－－－－API函数，

首先声明:

Private Type POINTAPI

x As Long

y As Long

End Type

Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" （lpPoint As POINTAPI） As Long

Private Declare Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" （ByVal xPoint As Long， ByVal yPoint As Long） As Long

Private Declare Function SetFocus Lib "user32" Alias "SetFocus" （ByVal hwnd As Long） As Long

但是这里的SetFocus会和控件的SetFocus会搞混淆，改改吧，

Private Declare Function nSetFocus Lib "user32" Alias "SetFocus" （ByVal hwnd As Long） As Long

只要Alias指向的接口是对的前面的函数名称简直就是摆设，

在建立一个过程:

Public Function sSetFocus（） As Long

Dim CPos As POINTAPI，Successfull As Boolean，hWnd As Long

DoEvents

Successfull ＝GetCursorPos（CPos）

If Not Successfull Then Exit Sub ’如果未成功则退出该过程

hWnd＝WindowFromPoint（CPos.x，CPos.y）

sSetFocus=nSetFocus(hWnd)

End Sub

在窗体上放一个Timer控件，Interval 属性设为100，就是0.1秒，在Timer1控件的Timer事件中填入sSetFocus，在运行一下看看，效果怎么样?

可是有的先生小姐要问了，TextBox难道就不能用ScrollBar吗?非也非也，选 工程－部件－Microsoft Windows Common Controls－2 6.0 （SP3）就是你的答案，至于卷动TextBox就去研究SendMessage函数吧，否则又有骗稿费之嫌，如果想作绿色软件，不想用控件，可以用俺前面讲到的Label控件，利用字体 Webdings 来模拟ScrollBar，需要注意的是，如果模拟ScrollBar，上下左右箭头分别是5，6，3，4，别忘了把字体设为Webdings

再来讲讲窗体的美化，其实将BorderStyle属性设为0就是很好的2D美化;）可是，这样一来，问题又来了，怎么办?凡事都要请API来帮忙，这里需要两个API，一下是该API的声明:

Public Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" （） As Long '这个API是用来解下鼠标的追踪器，关于他的过多用法以及详细介绍可以写信向俺咨询，

还有

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" （ByVal hwnd As Long， ByVal wMsg As Long， ByVal wParam As Long， lParam As Any） As Long’这个该不要俺多介绍了吧

Public Const HTCAPTION ＝ 2 ’代表窗体的标题区

Public Const WM_NCLBUTTONDOWN ＝ HA1 ’表示非工作区左键按下

原理很简单，卸下鼠标追踪器后向Form发送一个移动窗体的消息，其实做到这一点的方法很多，但俺个人认为这一种最简单，添加一个过程:

Public Sub MoveForm（hWnd As Long）

DoEvents

ReleaseCapture

SendMessage hWnd， WM_NCLBUTTONDOWN， HTCAPTION， 0

End Sub

在Form的MouseMove事件中:

Private Sub Form_MouseMove（Button As Integer， Shift As Integer， X As Single， Y As Single）

If Button＝vbLeftButton Then MoveForm hWnd’如果按下鼠标左键就移动窗体

End Sub

台下的这位小姐又纳闷了，可是光秃秃的窗体没有了标题栏也不好看，俺要向这为小姐推荐俺的东东－ActiveX控件，ToolSign，需要的人可以写信给俺联系，

该控件需要在代码编辑区域内添加一下代码:

’一下声明是用在ToolSign的 AutoQuit属性的

Public Const EXIT_FORCE ＝ 2 ’注意，在VB中运行的时候如果选用此退出方式，VB也会退出

Public Const EXIT_MESSAGE ＝ 1 ’由操作系统发送关闭消息

Public Const EXIT_CUSTOM ＝ Not （EXIT_FORCE Or EXIT_MESSAGE） ’自定义

将其注册后在部件栏中把e－Dogkid Studio Tools Sign打钩，添加到工具箱中，双击加入到窗体中，

在Form的Load事件中添加一下初始化代码:

Private Sub Form_Load（）

With Sign1

.AutoQuit ＝ EXIT_CUSTOM

.ParentsHWND ＝ hWnd ’填了此属性可以直接用ToolSign来移动窗体而不需要前面的代码

End With

End Sub

Sign1的Click事件

Private Sub Sign1_Click（）

End ’关闭程序

End Sub

在Form的Resize事件中添加一下代码:

Private Sub Form_Resize（）

Sign1.Width ＝ Width

End Sub

如果想让窗体可以改变大小，可以修改一下属性

Caption ""

BorderStyle 2或5

ControlBox False

实际情况如图

不知道各位看关见过爆炸试的窗体没有?，没有见过可以从俺要另外一个俺自己的ActiveX DLL，我的那个东东其实是给我的Software作运行库的，各位若不嫌弃，可以用用，注册后在工程－引用－e－Dogkid Runtime Library

然后在窗体Load事件中输入:

Private Sub Form_Load(）

Dim System As e_Dogkid_Runtime_Library.System

Set System ＝ New e_Dogkid_Runtime_Library.System

Show

System.BoomIt hDC， 60， Width， Height， Left， Top

Set System ＝ Nothing

End Sub

关于vb.net界面美化

学习GDI+的知识，不使用系统默认的控件样式，自己写代码绘制外观

用VB.NET设计各种形状的窗体界面二

结合上一节介绍的方法 通过Visual Basic Net的菜单设计器 按照图 和图 所示的菜单结构设计菜单 　 图 【MDI编程】项目的菜单结构之一 　 图 【MDI编程】项目的菜单结构之二 在利用菜单设计器设计完菜单后 分别在窗体中双击 新建 退出 层叠显示 横行平铺 纵向平铺 和 排列图标 菜单项 这样Visual Basic Net会在Form vb文件中分别产生这些菜单项的Click事件对应的处理代码 设定Form 的 IsMdiContainer 属性值为 True 这把Form 窗体定义为MDI窗体容器 这一步设置是后面编程的基础 当设置此属性值后 Form 的窗体也发生了改变 图 是设置此属性后的窗体模样 　 图 把Form 窗体设置为MDI窗体容器后的模样 选中图 中的 窗口 菜单项 并设置此菜单项的 MdiList 属性值为 True 其作用是当程序运行后 如果新建了一个MDI窗体 就会在 窗口 菜单项后 自动加入一个以新建MDI窗体名称命名的菜单项 如果新建了多个MDI窗体 则会在 窗口 菜单项后 会加入以这些MDI窗体名称命名的菜单项 当MDI窗体被关闭 那些以此MDI窗体命名的菜单项也会自动删除 具体可图 所示 把Visua Basic Net的当前窗口切换到Form vb的代码编辑窗口 并在定义Form 中组件的代码区加入下列代码 下列代码是定义一个变量 此变量用以统计程序中新建MDI窗体的数量 Private iFormCount As Integer = 用下列代码替换Form vb中的MenuItem 的Click事件对应的处理代码 MenuItem 即为图 中的 新建 菜单项 下列代码的作用是在新建一个MDI窗体 Private Sub MenuItem _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles MenuItem ClickDim frmTemp As Form = New Form ( ) 新建一个窗体frmTemp MdiParent = Me 为当前创建的窗体设置MDI父窗体frmTemp Text = MDI窗体 + iFormCount ToString ( )iFormCount = iFormCount + frmTemp Show ( ) 把此MDI窗体显示出来End Sub 用下列代码替换Form vb中的MenuItem 的Click事件对应的处理代码 MenuItem 即为图 中的 退出 菜单项 下列代码的作用是退出应用程序 Private Sub MenuItem _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles MenuItem ClickApplication Exit ( ) 退出应用程序End Sub 用下列代码替换Form vb中的MenuItem 的Click事件对应的处理代码 MenuItem 即为图 中的 层叠显示 菜单项 下列代码的作用是层叠排列窗体中的所有MDI窗体 Private Sub MenuItem _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles MenuItem ClickMe LayoutMdi ( MdiLayout Cascade ) 层叠排列窗体中的所有MDI窗体End Sub 用下列代码替换Form vb中的MenuItem 的Click事件对应的处理代码 MenuItem 即为图 中的 水平平铺 菜单项 下列代码的作用是水平平铺窗体中的所有MDI窗体 Private Sub MenuItem _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles MenuItem ClickMe LayoutMdi ( MdiLayout TileHorizontal ) 水平平铺窗体中的所有MDI窗体End Sub 用下列代码替换Form vb中的MenuItem 的Click事件对应的处理代码 MenuItem 即为图 中的 垂直平铺 菜单项 下列代码的作用是垂直平铺窗体中的所有MDI窗体 Private Sub MenuItem _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles MenuItem ClickMe LayoutMdi ( MdiLayout TileVertical ) 垂直平铺窗体中的所有MDI窗体End Sub 用下列代码替换Form vb中的MenuItem 的Click事件对应的处理代码 MenuItem 即为图 中的 排列图标 菜单项 下列代码的作用是窗体中的所有MDI窗体排列图标 Private Sub MenuItem _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles MenuItem ClickMe LayoutMdi ( MdiLayout ArrangeIcons ) 窗体中的所有MDI窗体排列图标End Sub至此【MDI编程】项目的全部工作就完成了 图 图 和图 是程序运行后的界面 　 图 【MDI编程】运行界面之一 　 图 【MDI编程】运行界面之二 图 【MDI编程】运行界面之三 此时我们注意到图 所示的 窗口 菜单中增加许多子菜单 而在程序设计时 并没有处理这些功能的代码 这是由于第十一步中设置 窗口 菜单项的 MdiList 属性值为 True 造成的 可见正确的设置组件的属性值有时的确能够代替烦杂的代码编写工作 五 总结 本文主要内容有二个 其一是介绍的在Visual Basic Net定制不规则窗体的实现方法 在Visual Basic Net中创建不规则窗体主要使用的是Region类和GraphicsPath类 GraphicsPath主要是绘制窗体的形状 Region主要是以GraphicsPath来构建窗体 结合本文的实现思路和具体方法 我想对于其他形状的窗体 在掌握GraphicsPath类提供的使用方法的前提下 加上对所要创建不规则窗体的规划设计 用Visual Basic Net实现起来应该不算很困难 本文的另外一个主要内容就是介绍在Visual Basic Net编写MDI应用程序的基本过程 技巧和注意事项 通过本文的介绍可见Visual Basic Net的MDI编程并没有什么复杂的地方 只需了解一些对MDI窗体处理的方法及其调用方式 当然更重要的是要了解并掌握某些组件的针对MDI的属性及其设置方式 lishixinzhi/Article/program/net/201311/11698

vb.net界面设计

可以先把外层的目录新建出来，代码如下：

Dim path As String

path = "c:\text\text\txt\text1.txt"

System.IO.Directory.CreateDirectory(path.Substring(0, InStrRev(path, "\"))) '建立path这个路径的所有所需目录

System.IO.File.WriteAllText(path, "牛年快乐", System.Text.Encoding.Default)

vb界面能美化吗？感觉新出来的vb.net的界面明显比vb美观，但是vb.net语法还不熟，现在想把vb变得好看一些。

不难的，vb.net的语言比vb的完整些而已。而且一样可以利用英文的理解方法理解vb.net的代码，相对来说，vb.net更容易。语法来看，vb多数是用缩写的，而vb.net是用完整的单词，更便于理解，而且API也简化了很多。

所以，vb转vb.net是很容易上手的。