当前位置:K88软件开发文章中心编程语言.NET.NET02 → 文章内容

VB.Net - 高级表单

减小字体 增大字体 作者:佚名  来源:网上搜集  发布时间:2019-1-15 15:59:10

taObject(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 SubEnd Class当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时,将显示以下窗口: 输入一些文本并检查按钮的工作方式。 锚定和停靠在窗体中的控件 锚定允许您设置控件的定位点位置到其容器的控件,例如,窗体的边缘。控件类 Anchor 属性允许您设置此属性的值。Anchor 属性获取或设置一个控件绑定和确定如何调整控件的大小与它的父容器的边缘。当你锚定到窗体控件时,该控件维护它距离边缘的形式和其锚的位置,当窗体调整。你可以从属性窗口设置控件的锚属性值︰ 输入一些文本并检查按钮的工作方式。例如,让我们在表单上添加一个Button控件,并将其anchor属性设置为Bottom,Right。 运行此窗体以查看Button控件相对于窗体的原始位置。 现在,当拉伸窗体时,Button和窗体右下角之间的距离保持不变。 控制装置的对接意味着将其对接到其容器的边缘之一。 在对接中,控制完全填充容器的某些区域。Control类的Dock属性执行此操作。 Dock属性获取或设置哪些控件边界停靠到其父控件,并确定如何使用其父控件调整控件大小。您可以从“属性”窗口设置控件的Dock属性值: 例如,让我们在表单上添加一个Button控件,并将其Dock属性设置为Bottom。 运行此窗体以查看Button控件相对于窗体的原始位置。 现在,当你拉伸窗体时,Button会调整窗体的大小。 模式窗体 模式窗体是需要关闭或隐藏的窗体,然后才能继续使用其余应用程序。 所有对话框都是模态窗体。 MessageBox也是一种模态形式。 您可以通过两种方式调用模式窗体: 调用ShowDialog方法调用Show方法让我们举一个例子,我们将创建一个模态形式,一个对话框。 执行以下步骤: 将表单Form1添加到您的应用程序,并向Form1添加两个标签和一个按钮控件 将第一个标签和按钮的文本属性分别更改为“欢迎使用教程点”和“输入您的名称”。 将第二个标签的文本属性保留为空。添加一个新的Windows窗体,Form2,并向Form2添加两个按钮,一个标签和一个文本框。 将按钮的文本属性分别更改为“确定”和“取消”。 将标签的文本属性更改为“输入您的姓名:”。 将Form2的FormBorderStyle属性设置为FixedDialog,为其提供对话框边框。 将Form2的ControlBox属性设置为False。 将Form2的ShowInTaskbar属性设置为False。 将OK按钮的DialogResult属性设置为OK,将Cancel按钮设置为Cancel。 在Form2的Form2_Load方法中添加以下代码片段: Private Sub Form2_Load(sender As Object, e As EventArgs) _ Handles MyBase.Load AcceptButton = Button1 CancelButton = Button2End Sub在Form1的Button1_Click方法中添加以下代码片段: Private Sub Button1_Click(sender As Object, e As EventArgs) _ Handles Button1.Click Dim frmSecond As Form2 = New Form2() If frmSecond.ShowDialog() = DialogResult.OK Then Label2.Text = frmSecond.TextBox1.Text End IfEnd Sub当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时,将显示以下窗口: 点击“输入您的姓名”按钮显示第二个表单: 单击确定按钮将控制和信息从模态形式返回到先前的形式:

上一页  [1] [2] 


VB.Net - 高级表单