<address id="xpjh9"><listing id="xpjh9"><meter id="xpjh9"></meter></listing></address>

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
<noframes id="xpjh9">
<noframes id="xpjh9">

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
    <form id="xpjh9"></form><address id="xpjh9"><listing id="xpjh9"><menuitem id="xpjh9"></menuitem></listing></address>

      <noframes id="xpjh9">
      VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
      SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
      當前位置:
      首頁 > 編程開發 > .net教程 >
      • 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
      相關教程
      江苏快3 红河 | 吉林 | 来宾 | 铜仁 | 湘潭 | 永康 | 巴彦淖尔市 | 潮州 | 兴安盟 | 承德 | 菏泽 | 澳门澳门 | 淮南 | 宁德 | 曲靖 | 巴彦淖尔市 | 黑龙江哈尔滨 | 克孜勒苏 | 宁国 | 通辽 | 吉林 | 延安 | 武威 | 驻马店 | 梅州 | 湖州 | 邵阳 | 深圳 | 徐州 | 贵港 | 庆阳 | 景德镇 | 贵州贵阳 | 资阳 | 保山 | 九江 | 平潭 | 宜春 | 温岭 | 楚雄 | 内江 | 甘南 | 黄南 | 柳州 | 百色 | 日喀则 | 诸城 | 咸阳 | 阿坝 | 建湖 | 长葛 | 中山 | 邳州 | 乳山 | 黔南 | 荣成 | 辽阳 | 青州 | 博尔塔拉 | 荆州 | 绵阳 | 唐山 | 三河 | 眉山 | 辽阳 | 吴忠 | 龙岩 | 神农架 | 巴彦淖尔市 | 佳木斯 | 阳泉 | 巴中 | 屯昌 | 娄底 | 龙口 | 怒江 | 威海 | 乐清 | 万宁 | 佳木斯 | 丽水 | 大兴安岭 | 滕州 | 澳门澳门 | 益阳 | 嘉峪关 | 金坛 | 三亚 | 辽宁沈阳 | 鄢陵 | 包头 | 贵港 | 防城港 | 遂宁 | 湘潭 | 阳春 | 贵港 | 青海西宁 | 长葛 | 安康 | 黑河 | 惠州 | 抚顺 | 永新 | 阿勒泰 | 广饶 | 乐平 | 泉州 | 丽水 | 张家口 | 博尔塔拉 | 海丰 | 莆田 |