vb.net教程之程序窗体

金沙澳门官网网址:www.js333com

VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > .net教程 >
  • vb.net教程之程序窗体

  • 2015-01-18 13:38 来源:www.js333com
程序窗体(相关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
相关教程
Baidu
sogou