[VB.NET]创建停靠工具栏
来源:互联网 发布:通州淘宝城关了吗 编辑:程序博客网 时间:2024/05/21 06:59
实例说明
在本实例中,我们将创建一个具有停靠功能的应用程序,程序运行后,可以选择停靠位置如左、右、填充等。程序运行结果如图73-1所示。
图73-1 运行结果
技术要点
l Panel控件
<script type="text/javascript"><!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>l Dock属性
实现过程
■ 新建项目
打开Visual Studio.NET,选择"新建项目",在项目类型窗口中选择"Visual Basic项目",在模板窗口中选择"Windows应用程序",在名称域中输入"DockMan",然后选择保存路径。单击"确认"。
■ 添加控件
向窗体上添加一个Panel控件,然后向Panel控件上放置一个Button控件,添加一个GroupBox控件,在GroupBox控件上放置六个RadioButton控件。注意放置顺序。先放Panel,GroupBox控件,然后再放置别的控件。
■ 设置属性
切换到属性栏,对窗体上的控件设置属性,我们在表73-1中仅列出主要的属性,详细的属性设置请见光盘。
表73-1 窗体/控件的属性值
窗体/控件 属性 值
Form1 Text 停靠工具栏示例
RadioButton1 Name RdbNone
Text 无
■ 添加代码
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms
Namespace Microsoft.Samples.WinForms.VB.DockMan
Public Class DockMan
Inherits System.Windows.Forms.Form
Private rdbSet As System.Windows.Forms.RadioButton
Public Sub New()
MyBase.New()
DockMan = Me
'This call is required by the Windows Forms Designer.
InitializeComponent()
'TODO: Add any initialization after the InitializeComponent() call
rdbSet = rdbNone
ApplyChanges()
End Sub
Public Overloads Overrides Sub Dispose()
MyBase.Dispose()
components.Dispose()
End Sub
<STAThread()> Shared Sub Main()
System.Windows.Forms.Application.Run(New DockMan())
End Sub
Private Sub ApplyChanges()
'应用更改
If rdbSet Is rdbNone Then
btnDemo.Dock = System.Windows.Forms.DockStyle.None
ElseIf rdbSet Is rdbTop Then
btnDemo.Dock = System.Windows.Forms.DockStyle.Top
ElseIf rdbSet Is rdbLeft Then
btnDemo.Dock = System.Windows.Forms.DockStyle.Left
ElseIf rdbSet Is rdbBottom Then
btnDemo.Dock = System.Windows.Forms.DockStyle.Bottom
ElseIf rdbSet Is rdbRight Then
btnDemo.Dock = System.Windows.Forms.DockStyle.Right
Else ' The default is: if (rdbSet is rbFill)
btnDemo.Dock = System.Windows.Forms.DockStyle.Fill
End If
End Sub
Private components As System.ComponentModel.IContainer
Private Sub checkbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
ApplyChanges()
End Sub
Private Sub radiobutton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles rdbBottom.Click, rdbFill.Click, rdbLeft.Click, rdbRight.Click, rdbTop.Click, rdbNone.Click
rdbSet = CType(sender, RadioButton)
ApplyChanges()
End Sub
End Class
End Namespace
■ 运行程序
单击菜单"调试|启动"或单击 图标运行程序。
小结
本实例主要使用了Dock属性来确定停靠工具栏的位置,我们还可以使用鼠标拖动来进行操作,就像拖动任务栏一样。这些程序由读者自行开发。
- [VB.NET]创建停靠工具栏
- 工具栏的创建和停靠
- vb.net 停靠窗口学习笔记(转)
- VC多工具栏停靠
- 工具栏停靠控制详述
- 停靠窗口和工具栏
- MFC--停靠工具栏
- VS2010/MFC编程入门之三十七(工具栏:工具栏的创建、停靠与使用)
- [VB.NET源码]20_工具栏控件
- [VB.NET]VS2005控件工具栏消失了
- 一个工具栏紧随另一个工具栏停靠
- 控制工具栏停靠的位置。
- 鸡啄米vc++2010系列36(工具栏的创建、停靠与使用)
- vb.net创建多线程
- [VB.NET]vb2005中工具栏按钮设计问题
- vb.net生成Wince下的图片文字混编工具栏
- 在mfc的sdi/mdi程序任意视图view内创建可停靠及浮动的工具栏方法
- qt可停靠控件和工具栏
- java运行速度慢的原因
- [VB.NET]使用数据集
- MonoRail 学习系列(1)- 简介
- 李彦宏在北大本科生毕业典礼上的讲话
- 优秀网站源码、编程源码下载网站大集中
- [VB.NET]创建停靠工具栏
- 守护线程(Daemon)
- [VB.NET]旋转月亮
- Javarebel的使用
- [VB.NET]轻松控制Word
- libpqxx 3.0 tutorial 第1,2章英汉对照
- [VB.NET]轻松控制Excel
- [VB.NET]简单动画
- 10个Javascript/JS图片特效