如何讓文本得到光標 - 编程论坛

#2

ecjob2008-10-22 21:45

'把窗体的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

#3

jxyga1112008-10-23 08:14

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

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

#4

bygg2008-10-23 09:17

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

#5

除了你2011-04-06 16:22

限制文本框只能输入数字：
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