<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 10:31 來源:未知
      彈出式菜單設計(相關vb.net教程)
      控件名稱:contextmenustrip1
      作用:設計彈出式菜單。
      設計方法:
      1、拖入contextmenustrip1控件,設計菜單。
      2、為菜單添加一個拖盤控件如textbox1(即在此控件上右擊則彈出菜單)。
      3、建立彈出菜單與拖盤控件的關連:獎textbox1的contextmenustrip屬性設置為contextmenustrip1。
      屬性設置:同菜單設計。
      應用實例:設計一個彈出式菜單以控件文件框中文字的顏色,并對文字進行剪切、復制、粘貼操作。[實驗報告29]
      見彈出菜單控制文本顏色及剪切復制粘貼,程序為:
      Private Sub 紅色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 紅色Menu.Click
              TextBox1.ForeColor = Color.Red
              紅色Menu.Checked = True
              綠色Menu.Checked = False
              藍色Menu.Checked = False
          End Sub
       
          Private Sub 綠色Menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 綠色Menu.Click
              TextBox1.ForeColor = Color.Green
              紅色Menu.Checked = False
              綠色Menu.Checked = True
              藍色Menu.Checked = False
          End Sub
       
          Private Sub 藍色Menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 藍色Menu.Click
              TextBox1.ForeColor = Color.Blue
              紅色Menu.Checked = False
              綠色Menu.Checked = False
              藍色Menu.Checked = True
          End Sub
       
          Private Sub 剪切ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切ToolStripMenuItem.Click
              TextBox1.Cut()
          End Sub
       
          Private Sub 復制ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 復制ToolStripMenuItem.Click
              TextBox1.Copy()
          End Sub
       
          Private Sub 粘貼ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘貼ToolStripMenuItem.Click
              TextBox1.Paste()
          End Sub
      相關教程
      江苏快3 东方 | 灌云 | 攀枝花 | 曲靖 | 湛江 | 新泰 | 昌都 | 长葛 | 湘潭 | 攀枝花 | 瑞安 | 三沙 | 清远 | 和田 | 汉川 | 芜湖 | 广西南宁 | 江西南昌 | 莱州 | 贵港 | 九江 | 泗阳 | 醴陵 | 泉州 | 金坛 | 忻州 | 佛山 | 文昌 | 南阳 | 余姚 | 五家渠 | 汉川 | 运城 | 防城港 | 曲靖 | 承德 | 泉州 | 吉林长春 | 四平 | 晋中 | 四川成都 | 单县 | 大庆 | 廊坊 | 营口 | 韶关 | 吴忠 | 汕尾 | 哈密 | 伊犁 | 克拉玛依 | 鞍山 | 阿里 | 丽水 | 白银 | 阳江 | 防城港 | 宝应县 | 塔城 | 巴彦淖尔市 | 凉山 | 博罗 | 衡水 | 崇左 | 阿拉善盟 | 苍南 | 新沂 | 衡水 | 晋中 | 灌南 | 招远 | 绥化 | 赣州 | 明港 | 云南昆明 | 河南郑州 | 惠州 | 甘南 | 湖南长沙 | 柳州 | 烟台 | 金华 | 莱州 | 塔城 | 黑河 | 肇庆 | 正定 | 洛阳 | 滕州 | 洛阳 | 正定 | 河北石家庄 | 海南海口 | 姜堰 | 中卫 | 丹阳 | 牡丹江 | 玉树 | 淮安 | 牡丹江 | 仁怀 | 昌都 | 泰安 | 德清 | 晋城 | 吐鲁番 | 信阳 | 江门 | 单县 | 东海 | 泰安 | 吐鲁番 | 巴彦淖尔市 |