[vb] 1130 顯示 工具列 msgbox 多一個勾勾 textbox滑鼠按右鍵

'textbox 預設文字
TextBox1.Text = "請輸入"

'文字顏色
 TextBox1.ForeColor = Color.Red


'顯示在 工具列  只有紅色那行是要打的  剩下的都是系統給的  此範例是以滑鼠滑過

  Private Sub 檔案ToolStripMenuItem_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 檔案ToolStripMenuItem.MouseMove
        ToolStripStatusLabel1.Text = 檔案ToolStripMenuItem.Text
    End Sub


'msgbox

Dim ret As Integer

        Dim msgstyle As Integer
        msgstyle = MsgBoxStyle.OkCancel + _
        MsgBoxStyle.Question + _
        MsgBoxStyle.DefaultButton2
        ret = MsgBox("開啟", msgstyle, "您在正在")

或者
用這種寫法
 MsgBox("開啟", MsgBoxStyle.YesNo + MsgBoxStyle.Question , "您正在")
但會少一個右上角的 x

'旁邊多一個勾勾

 If 複製cCtrlcToolStripMenuItem.Checked Then
            TextBox1.ReadOnly = True
            複製cCtrlcToolStripMenuItem.Checked = False
        Else
            TextBox1.ReadOnly = False
            複製cCtrlcToolStripMenuItem.Checked = True
        End If

'textbox滑鼠按右鍵 

第一個步驟要先點textbox    在屬性的地方  

點選contextmenu 做設定  設定成 contextmenu

這個是在編輯模式底下

紅色圈起來的部分   在這裡輸入  輸入你要的東西

這樣就可以做到  在textbox 按右鍵  控制它了

如:設定字體顏色

'文字顏色  紅色的地方是我輸入的  其他的都是系統給的

    Private Sub 紅色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 紅色ToolStripMenuItem.Click

        TextBox1.ForeColor = Color.Red

    End Sub