用visual studio 中label 控件,虽然label控件的size很大,但是每行写不了几个字,而要求要在一行显示的
PrivateSubLabel3_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesLabel3.Cli...
Private Sub Label3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.Click
If (IsH(Val(RichTextBox1.Text))) Then
Label3.Text &= RichTextBox1.Text & "★" & vbCrLf
Else : Label3.Text &= RichTextBox1.Text & vbCrLf
End If
RichTextBox1.Text = " "
End Sub
其中IsH是一个判定回文数的函数,只要判定3位数以上的就不能数字和★一行显示了,3位数一下可以一行显示,而且label的size很大,求解答 展开
If (IsH(Val(RichTextBox1.Text))) Then
Label3.Text &= RichTextBox1.Text & "★" & vbCrLf
Else : Label3.Text &= RichTextBox1.Text & vbCrLf
End If
RichTextBox1.Text = " "
End Sub
其中IsH是一个判定回文数的函数,只要判定3位数以上的就不能数字和★一行显示了,3位数一下可以一行显示,而且label的size很大,求解答 展开
1个回答
展开全部
Label3.Text &= RichTextBox1.Text
这个是判断文本是否一样的意思.根本就不是所谓的行数.
判断有多少个字,可以用字符串的length属性。
Label3.Text &= RichTextBox1.Text & "★" & vbCrLf
这么写有些乱七八糟。完全不明白是要干什么。
IsH(xxx)看返回什么值了。如果是回车数,可以加个>3的判断。具体问题具体分析。
这个是判断文本是否一样的意思.根本就不是所谓的行数.
判断有多少个字,可以用字符串的length属性。
Label3.Text &= RichTextBox1.Text & "★" & vbCrLf
这么写有些乱七八糟。完全不明白是要干什么。
IsH(xxx)看返回什么值了。如果是回车数,可以加个>3的判断。具体问题具体分析。
追问
IsH返回值是bool型,属于传值调用,Label3.Text &= RichTextBox1.Text & "★" & vbCrLf,这条语句是用来把RichTextBox1中的数字(要是回文数就加一个五角星,并且换行)在label3中显示出来,现在纠结的是超过几个字符之后,若判定为回文数,也不能在一行显示数字和五角星了,而不超过3位数字可以的,比如输入1或者11就能显示1★或11★,而输入1111后就不能显示1111★,代码调试过没问题的,就是label每行控件显示字符数太少
追答
可以用文本框,文本框也可以多行显示。
还有一招可以试试.把[标签]放在[面板]里。面板有个滚动条功能,可以把超界的控件用滚动条的形式显示出来。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询