<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教程之progressbar 與scrollbar

      • 2015-01-17 22:47 來源:未知
       progressbar 與scrollbar
      一、進度條控件:progressbar(相關vb.net教程)
      作用:用于軟件安裝或文件復制時的進度顯示。
      常用屬性:
      Minimam:進度表的最小值。
      Maximam: 進度表的最大值。
      Value:進度的當前值。
      應用實例:制作一個進度表,顯示完成進度的百分比與進度條,當到100%時彈出一個對話框,然后退出進度。[實驗報告 22]
      屬性設置:Minimam=0 Maximam=100value每次遞進1%
      見,進度條控件progressbar
      程序為:
      Public Class Form1
          Dim a As Integer
          Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
              Dim x As String
              a = a + 1
              ProgressBar1.Value = a : TextBox1.Text = a & "%"
              If a = 100 Then
                  Timer1.Enabled = False
                 MsgBox("進度完成將退出!", 16, "注意!")
                  End
              End If
          End Sub
      說明:上面程序中,條件語句中的三個語句:
      Timer1.Enabled = False
                  x = MsgBox("進度完成將退出!", 16, "注意!")
              End
      第一個語句必須寫在最前面,否則進度要超過100,出現超出上界的錯誤提示。
      二、滾動條控件
      作用:通過條上滾動塊的移動來取值,常用以輸入。
      有兩個:水平滾動條—hscrollbar,垂直滾動條—vscrollbar
      一、常用屬性
      Largechange:單擊箭頭與滾動塊之間時滾動的幅度。
      Smallchange:單擊箭頭滾動幅度。
      MaximumMinimum:兩端的取值。
      Value:滾動塊處的取值。
      二、常用事件
      Scroll事件:滾動塊移動時觸發
      應用實例:試用三個滾動條調整顏色,顏色模板用圖片框的背景色。[實驗報告23 ]
      程序見:滾動條控制顏色
      屬性設置:
      分別把三個滾動條的屬性:
      Largechange=20Smallchange=5
      Maximum=255Minimum=0
      說明:程序中對顏色模板調顏色用的是vb.net中的函數Color.FromArgb(r, g, b),在VB60中對應的函數是RGBRGB
      程序清單為:
      Public Class Form1
          Dim r, g, b As Integer
          Private Sub HScrollBar1_Scroll
              r = HScrollBar1.Value
              TextBox1.Text = r
              PictureBox1.BackColor = Color.FromArgb(r, g, b)
          End Sub
          Private Sub HScrollBar2_Scroll
              g = HScrollBar2.Value
              TextBox2.Text = g
              PictureBox1.BackColor = Color.FromArgb(r, g, b)
          End Sub
          Private Sub HScrollBar3_Scroll
              b = HScrollBar3.Value
              TextBox3.Text = b
              PictureBox1.BackColor = Color.FromArgb(r, g, b)
          End Sub
       
          Private Sub Button1_Click
              End
          End Sub
      End Class
      Vb.net中的一些設置
      大部分都在工具→選項中。
      1、代碼窗口的字體、字號顏色設置:
      工具→選項→環境→字體和顏色
      2、使用debug時,調入輸出窗口:
      調試→窗口→輸出(即時窗口的調入也是一樣)
      3、當程序中有多個窗口時,設置第一啟動窗口的方法:
      項目→WindowsApplication1屬性→啟動窗體中選擇對應窗體。
      相關教程
      江苏快3 湖北武汉 | 长治 | 昌吉 | 保山 | 邯郸 | 毕节 | 和田 | 河南郑州 | 六盘水 | 崇左 | 无锡 | 阿里 | 甘肃兰州 | 陇南 | 乌兰察布 | 益阳 | 五指山 | 嘉兴 | 宜昌 | 五家渠 | 巴音郭楞 | 盘锦 | 杞县 | 沧州 | 如东 | 巴中 | 白沙 | 宜宾 | 甘南 | 图木舒克 | 定西 | 红河 | 遂宁 | 和县 | 赣州 | 濮阳 | 基隆 | 阜新 | 甘肃兰州 | 昆山 | 伊犁 | 曲靖 | 丽水 | 抚顺 | 莱州 | 吴忠 | 台北 | 海北 | 青海西宁 | 赵县 | 厦门 | 西双版纳 | 达州 | 遵义 | 台南 | 湘西 | 醴陵 | 辽阳 | 义乌 | 绍兴 | 宁波 | 兴安盟 | 内江 | 内蒙古呼和浩特 | 启东 | 新乡 | 枣庄 | 固原 | 阿克苏 | 梅州 | 遂宁 | 景德镇 | 项城 | 阜新 | 鸡西 | 南安 | 阿勒泰 | 朝阳 | 平凉 | 天门 | 大连 | 扬州 | 辽阳 | 牡丹江 | 陵水 | 芜湖 | 库尔勒 | 临夏 | 陕西西安 | 朔州 | 武夷山 | 蚌埠 | 陕西西安 | 阳春 | 江门 | 自贡 | 琼中 | 克拉玛依 | 文昌 | 株洲 | 清徐 | 邹城 | 沭阳 | 辽阳 | 潜江 | 项城 | 永州 | 亳州 | 项城 | 莱州 | 遵义 | 海丰 | 黄南 |