在textbox里放按钮并控制输入字符不能覆盖住按钮(包括设计阶段)

                End If

            Case &H302

                If checklength() Then

                    Return

                End If

        End Select

        MyBase.WndProc(m)

    End Sub

    ´检查函数

    Private Function checklength(Optional ByVal str As String = "") As Boolean

        If str = "" Then

            Dim leng As Integer = CInt(Me.CreateGraphics.MeasureString(Me.Text, Me.Font).Wid

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页

进入问吧