如何讓文本得到光標，還有如何讓判斷只能輸入位數等於10位小於10的代碼
如何窗體樣式調為無邊框就不動走，有什么辦法，還有就是讓窗體在熒幕的左邊

[[it] 本帖最后由 jxyga111 于 2008-10-22 18:52 编辑 [/it]]

'把窗体的formborderstyle 设置为 none  在代码页里加入下面这代码 就可以实现无边框窗体移动了
    Protected Overrides Sub WndProc(ByRef m As Message)
        Const WM_NCHITTEST As Integer = &H84
        Const HTCLIENT As Integer = &H1
        Const HTCAPTION As Integer = &H2

        If m.Msg = WM_NCHITTEST Then
            Me.DefWndProc(m)
            If m.Result.ToInt32() = HTCLIENT Then
                m.Result = New IntPtr(HTCAPTION)
            Else
                MyBase.WndProc(m)
            End If
        Else
            MyBase.WndProc(m)
        End If
    End Sub




限制输入就 下面的 方法， 具体限制什么自己加加就可以了。。
(Asc(e.KeyChar) < Keys.D0 Or Asc(e.KeyChar) > Keys.D9) And Asc(e.KeyChar) <> Keys.Back And Asc(e.KeyChar) <> Keys.Delete

LS的可不可以解釋一下什么意思啊
還有一點也許我上面沒講清楚，要的是控制只能輸入數字不能輸入其它鍵

[[it] 本帖最后由 jxyga111 于 2008-10-23 08:21 编辑 [/it]]

文本框不是有个最大输入位数吗/

限制文本框只能输入数字：
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress        '限制文本框只能输入数字        If Not System.Text.RegularExpressions.Regex.IsMatch(e.KeyChar.ToString(), "[0-9]") Then            e.Handled = True        Else            e.Handled = False        End If    End Sub