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

            Dim m As Integer = Me.Width

            Dim p As Integer = btn.Width

            If leng >= m - p - 5 Then

                Return True

            End If

        Else

            Dim leng As Integer = CInt(Me.CreateGraphics.MeasureString(str, Me.Font).Width)

            Dim m As Integer = Me.Width

            Dim p As Integer = btn.Width

            If leng + 1 >= m - p Then

                Return True

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

进入问吧