新建的Label1控件的无法显示(VB.Net问题)
PublicClassForm1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventA...
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Label1 As New Label
Label1.Text = " 数据类型的默认初始值" & vbCrLf
Label1.Text &= "████████████████████████████████████████" & vbCrLf
Label1.Text &= "█ 所有数值类型(包括Byte) █ 0 █" & vbCrLf
Label1.Text &= "████████████████████████████████████████" & vbCrLf
Label1.Text &= "█ Char类型 █ 二进制0 █" & vbCrLf
Label1.Text &= "████████████████████████████████████████" & vbCrLf
Label1.Text &= "█ 所有引用类型(包括Object、String和所有数组)█ Nothing █" & vbCrLf
Label1.Text &= "████████████████████████████████████████" & vbCrLf
Label1.Text &= "█ Boolean类型 █ False █" & vbCrLf
Label1.Text &= "████████████████████████████████████████" & vbCrLf
Label1.Text &= "█ Date类型 █ 公元1年1月1日 12:00 AM █" & vbCrLf
Label1.Text &= "████████████████████████████████████████"
Label1.Location = New Point(25, 25)
Me.Controls.Add(Label1)
End Sub
End Class 展开
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Label1 As New Label
Label1.Text = " 数据类型的默认初始值" & vbCrLf
Label1.Text &= "████████████████████████████████████████" & vbCrLf
Label1.Text &= "█ 所有数值类型(包括Byte) █ 0 █" & vbCrLf
Label1.Text &= "████████████████████████████████████████" & vbCrLf
Label1.Text &= "█ Char类型 █ 二进制0 █" & vbCrLf
Label1.Text &= "████████████████████████████████████████" & vbCrLf
Label1.Text &= "█ 所有引用类型(包括Object、String和所有数组)█ Nothing █" & vbCrLf
Label1.Text &= "████████████████████████████████████████" & vbCrLf
Label1.Text &= "█ Boolean类型 █ False █" & vbCrLf
Label1.Text &= "████████████████████████████████████████" & vbCrLf
Label1.Text &= "█ Date类型 █ 公元1年1月1日 12:00 AM █" & vbCrLf
Label1.Text &= "████████████████████████████████████████"
Label1.Location = New Point(25, 25)
Me.Controls.Add(Label1)
End Sub
End Class 展开
展开全部
已经显示出来了,在开始显示时显示一块黑,接着就没有了,你的Label1面积太小,必须调大Label1面积
将Label1.Location = New Point(25, 25)改成Label1.SetBounds(25, 25, 500, 150)
将Label1.Location = New Point(25, 25)改成Label1.SetBounds(25, 25, 500, 150)
追问
由于原代码太长,我提问时,只是用个例子提问。
以下是我的原代码描述。
我新建的控件的位置等信息是读取INI文件得到的。我是在Panel1这个控件上,用代码新建不少的标签和文本框的。我是有设 Label1.AutoSize = True 的。长字符串还可以读取,就是带一定数量的特殊符号(如“█”),它就显示不完整。不带特殊符号的,就正常显示。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询