? vb.net亚博优惠活动之程序窗体 亚博优惠活动,亚博体育网页版,亚博app怎么下载「官网直营」
VB.net 2010 视频亚博优惠活动 VB.net 2010 视频亚博优惠活动 VB.net 2010 视频亚博优惠活动
SQL Server 2008 视频亚博优惠活动 c#入门经典亚博优惠活动 Visual Basic从门到精通视频亚博优惠活动
  • vb.net亚博优惠活动之程序窗体

  • 2015-01-18 13:38 来源:未知
程序窗体(相关vb.net亚博优惠活动)
窗体本身也是一个控件,通过设置属性,引用方法,来解决问题,其常用的属性与方法:
一、窗体的特性
1、主要属性:
Controlbox:窗体左上角的控制框显示与否。
Maximizebox:最大化按钮显示与否。
Minimizebox:最小化按钮显示与否。
Formborderstyle:窗体的边框样式。
Topmost:如果有两个以上的窗体,且都处于启动中,则此值为true时总能覆盖其它值为false的窗体。
程序见,窗体属性演示与close end
2、主要方法:
Show:显示窗体。
Hide:瘾藏窗体。
Close:关闭当前窗口,如果不是启动窗口,不一定退出应用程序。
End:停止程序的执行,即退出应用程序。
二、多窗体程序
应用实例一:
设计一个类似inputbox的输入窗体以完成字符串的输入。
分析:
此项目有两个窗体:form1是主窗体,上面一个按钮,单击调用输入窗体,并显示输入的内容。form2是输入窗体,上面有一个文本框,以完成输入,两个按钮,对输入内容的确定与除消,一个标签,提示输入字符串。输入窗体的整下处理是通过一个函数myinputbox完成的。
说明:
1、两个按钮的DialogResult属性分别设置为:OK,Cancel。
2、将窗体设置为对话框时,需使用函数:ShowDialog()
程序见,自制inputbox的输入框,程序为:
Public Class Form1
??? Function myinputbox(ByVal p As String, ByVal til As String) As String
??????? Form2.Text = til
??????? Form2.Label1.Text = p
??????? Form2.TextBox1.Text = ""
??????? If Form2.ShowDialog() = Windows.Forms.DialogResult.OK Then
??????????? myinputbox = Form2.TextBox1.Text
??????? Else
??????????? myinputbox = ""
??????? End If
??? End Function
??? Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
??????? Label1.Text = myinputbox("请输入字符串:", "输入")
??? End Sub
End Class
应用实例二:
设计一个用户账号与密码输入验证对话框,进行用户身份验证,如果输入正确则可以进入主程序,否则给出提示后退出程序,输入时只给三次机会。
程序见,用户账号与密码输入验证,程序为:
??? Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
??????? Static n As Integer
??????? Dim use, pas As String
??????? Me.Hide()
??????? Do
??????????? Form2.TextBox1.Text = ""
??????????? Form2.TextBox2.Text = ""
??????????? If Form2.ShowDialog = Windows.Forms.DialogResult.OK Then
??????????????? use = Form2.TextBox1.Text
??????????????? pas = Form2.TextBox2.Text
??????????????? If use = "xxx" And pas = "123" Then
??????????????????? MsgBox("密码正确,可以进入!", 32, "提示")
??????????????????? Me.Show()
???? ???????????????Exit Sub
??????????????? Else
??????????????????? MsgBox("密码不对!")
??????????????? End If
??????????? Else
??????????????? End
??????????? End If
??????????? n = n + 1
??????? Loop While n < 3
??????? MsgBox("您已尝试了3次,没成功,程序终止!")
??????? Me.Close()
End Sub
相关亚博优惠活动