炫意html5
最早CSS3和HTML5移动技术网站之一

VB.Net – 高级表格

在本章中,让我们研究以下概念 :

  • 在应用程序中添加菜单和子菜单

  • 在表单中添加剪切,复制和粘贴功能

  • 锚定和对接控件表格

  • 模态表格

添加菜单和子菜单应用程序中的菜单

传统上,菜单 MainMenu ContextMenu MenuItem 类用于在Windows应用程序中添加菜单,子菜单和上下文菜单.

现在, MenuStrip ToolStripMenuItem ToolStripDropDown ToolStripDropDownMenu 控件替换和添加以前版本的菜单相关控件的功能.但是,保留旧的控件类以便向后兼容和将来使用.

让我们首先使用旧版本控件创建一个典型的Windows主菜单栏和子菜单,因为这些控件仍然是在旧应用程序中使用很多.

以下是一个示例,它显示了我们如何使用菜单项创建菜单栏:文件,编辑,视图和项目.文件菜单有子菜单新建,打开和保存.

让我们双击表格并将以下代码放在打开的窗口中.

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      'defining the main menu bar
      Dim mnuBar As New MainMenu()
      'defining the menu items for the main menu bar
      Dim myMenuItemFile As New MenuItem("&File")
      Dim myMenuItemEdit As New MenuItem("&Edit")
      Dim myMenuItemView As New MenuItem("&View")
      Dim myMenuItemProject As New MenuItem("&Project")
      'adding the menu items to the main menu bar
      mnuBar.MenuItems.Add(myMenuItemFile)
      mnuBar.MenuItems.Add(myMenuItemEdit)
      mnuBar.MenuItems.Add(myMenuItemView)
      mnuBar.MenuItems.Add(myMenuItemProject)
     ' defining some sub menus
      Dim myMenuItemNew As New MenuItem("&New")
      Dim myMenuItemOpen As New MenuItem("&Open")
      Dim myMenuItemSave As New MenuItem("&Save")
      'add sub menus to the File menu
      myMenuItemFile.MenuItems.Add(myMenuItemNew)
      myMenuItemFile.MenuItems.Add(myMenuItemOpen)
      myMenuItemFile.MenuItems.Add(myMenuItemSave)
      'add the main menu to the form
      Me.Menu = mnuBar
     
      ' Set the caption bar text of the form.  
      Me.Text = "IT屋.com"
   End Sub
End Class

执行上述代码时并使用Microsoft Visual Studio工具栏上的”开始”按钮运行,它将显示以下窗口 :

VB.Net菜单示例

Windows窗体包含一组丰富的类,用于创建具有现代外观,外观和感觉的自定义菜单. MenuStrip ToolStripMenuItem ContextMenuStrip 控件用于有效地创建菜单栏和上下文菜单.

点击以下链接查看他们的详细信息 :

Sr.No. Control&说明
1

MenuStrip

它为表单提供了一个菜单系统.

2

ToolStripMenuItem

它表示 MenuStrip上显示的可选选项 ContextMenuStrip . ToolStripMenuItem控件替换和添加以前版本的MenuItem控件的功能.

3

ContextMenuStrip

它代表一个快捷菜单.

添加剪切,复制和粘贴表单中的功能

ClipBoard 类公开的方法用于在应用程序中添加剪切,复制和粘贴功能. ClipBoard类提供了在系统剪贴板上放置数据和从中检索数据的方法.

它有以下常用方法 :

Sr.No. 方法名称&说明
1

Clear

从剪贴板中删除所有数据.

2

ContainsData

表示是否有剪贴板上指定格式的数据,或者可以转换为该格式.

3

ContainsImage

表示是否有数据在剪贴板上的Bitmap格式或可以转换为该格式.

4

ContainsText

表示是否有数据Text或UnicodeText格式的剪贴板,具体取决于操作系统.

5

GetData

从指定的剪贴板中检索数据格式.

6

GetDataObject

检索系统剪贴板上当前的数据.

7

GetImage

从剪贴板中检索图像.

8

GetText

从文本中的剪贴板中检索文本数据或UnicodeText格式,取决于操作系统.

9

GetText(TextDataFormat)

以指示的格式从剪贴板中检索文本数据指定的TextDataFormat值.

10

SetData

清除剪贴板,然后以指定的格式添加数据.

11

SetText(String)

清除剪贴板,然后以Text或UnicodeText格式添加文本数据,具体取决于操作系统.

以下是一个示例,显示我们如何剪切,复制并使用Clipboard类的方法粘贴数据.请执行以下步骤 :

  • 在表单上添加一个富文本框控件和三个按钮控件.

  • 分别将按钮的文本属性更改为剪切,复制和粘贴.

  • 双击在按钮上添加以下代码在代码编辑器中 :

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) _ 
    Handles MyBase.Load
      ' Set the caption bar text of the form.  
      Me.Text = "IT屋.com"
   End Sub
   
   Private Sub Button1_Click(sender As Object, e As EventArgs) _ 
      Handles Button1.Click
      Clipboard.SetDataObject(RichTextBox1.SelectedText)
      RichTextBox1.SelectedText = ""
   End Sub
   
   Private Sub Button2_Click(sender As Object, e As EventArgs) _
       Handles Button2.Click
      Clipboard.SetDataObject(RichTextBox1.SelectedText)
   End Sub
   
   Private Sub Button3_Click(sender As Object, e As EventArgs) _
    Handles Button3.Click
      Dim iData As IDataObject
      iData = Clipboard.GetDataObject()
      If (iData.GetDataPresent(DataFormats.Text)) Then
         RichTextBox1.SelectedText = iData.GetData(DataFormats.Text)
      Else
         RichTextBox1.SelectedText = " "
      End If
   End Sub
End Class

执行上述代码并使用开始按钮avai运行在Microsoft Visual Studio工具栏中,它将显示以下窗口 :

VB .Net剪切,粘贴,复制示例

输入一些文本并检查按钮的工作方式.

在表单中锚定和停靠控件

锚定允许您将控件的锚位置设置为其容器控件的边缘,例如表单. Control类的 Anchor 属性允许您设置此属性的值. Anchor属性获取或设置控件绑定到的容器的边缘,并确定如何使用其父控件调整控件的大小.

将控件锚定到窗体时,控件在调整窗体大小时,它会保持与窗体边缘及其固定位置的距离.

您可以从”属性”窗口中设置控件的Anchor属性值 :

VB.Net控制锚点

例如,让我们在窗体上添加一个Button控件,并将其anchor属性设置为Bottom,Right.运行此表单以查看Button控件相对于表单的原始位置.

 VB.Net锚定示例

现在,当您拉伸表单时,Button与表单右下角之间的距离保持不变.

VB.Net锚定示例

控件的停靠意味着停靠它到其容器的一个边缘.在对接中,控件完全填充容器的某个区域.

Control类的 Dock 属性执行此操作. Dock属性获取或设置哪些控件边框停靠在其父控件上,并确定如何使用其父控件调整控件的大小.

您可以从Properties设置控件的Dock属性值window :

VB.Net控件对接

例如,让我们在窗体上添加一个Button控件,并将其Dock属性设置为Bottom.运行此表单以查看Button控件相对于表单的原始位置.

 VB.Net停靠示例

现在,当您拉伸表单时,Button会使用表单调整自身大小.

VB.Net停靠示例

模态表格

模态表格是那些需要关闭或隐藏的表单,然后才能继续使用应用程序的其余部分.所有对话框都是模态形式. MessageBox也是一种模态形式.

您可以通过两种方式调用模态形式 :

  • 调用 ShowDialog 方法

  • 调用显示方法

让我们举一个例子,我们将创建一个模态表单,一个对话框.请执行以下步骤 :

  • 将表单Form1添加到应用程序中,并添加两个标签和一个按钮控件Form1

  • 分别将第一个标签和按钮的文本属性更改为”欢迎使用教程点”和”输入您的姓名”.将第二个标签的文本属性保留为空白.

    VB.Net模态表单示例

  • 添加新的Windows窗体,Form2,并添加两个按钮,一个标签,以及Form2的文本框.

  • 分别将按钮的文本属性更改为”确定”和”取消”.将标签的文本属性更改为”输入您的姓名:”.

  • 将Form2的 FormBorderStyle 属性设置为 FixedDialog ,用于给它一个对话框边框.

  • 将Form2的 ControlBox 属性设置为False.

  • 将Form2的 ShowInTaskbar 属性设置为False.

  • 将OK按钮的 DialogResult 属性设置为OK,将Cancel按钮设置为Cancel.

VB.Net模态表单示例

在Form2的Form2_Load方法中添加以下代码片段&减号;

 
 Private Sub Form2_Load(sender As Object,e As EventArgs)_ 
 Handles MyBase.Load 
 AcceptButton = Button1 
 CancelButton = Button2 
 End Sub

在Form1的Button1_Click方法中添加以下代码片段 :

Private Sub Form2_Load(sender As Object, e As EventArgs) _
   Handles MyBase.Load
   AcceptButton = Button1
   CancelButton = Button2
End Sub

当使用Microsoft Visual Studio工具栏上的开始按钮执行并运行上述代码时,它将显示以下窗口 :

VB.Net Modal Form Example

点击”输入您的姓名”按钮显示第二种形式 :

VB.Net模态形式示例

单击”确定”按钮将控件和信息从模态窗体返回到上一个窗体 :

VB.Net Modal Form Example

炫意HTML5 » VB.Net – 高级表格

CSS3教程HTML5教程