Private Sub 开票窗口_Load(sender As Object, e As EventArgs) Handles MyBase.Load
添加标签()
End Sub
Private Sub 添加标签()
Dim 字段 As String() = {"数电票号码", "购方识别号", "购买方名称", "开票日期", "货物或应税劳务名称", "规格型号", "单位", "数量", "单价", "金额", "税率", "税额", "价税合计", "开票人", "备注"}
Dim 上一个标签底部 As Integer = 100 ' 初始顶部距离为100
Dim 左边距 As Integer = 20 ' 所有Label的左侧距离
For Each 字段名 As String In 字段
' 创建Label并设置其属性
Dim 标签 As New Label With {
.Name = "Lab" & 字段名,
.Text = 字段名,
.BackColor = Color.Transparent,
.AutoSize = True, ' 自动调整大小以适应内容
.Location = New Point(左边距, 上一个标签底部)
}
Me.Controls.Add(标签)
上一个标签底部 = 标签.Bottom + 6 ' 更新下一个Label的顶部距离
Next
End Sub
Private Sub 修改标签内容(字段名 As String, 新内容 As String)
Dim 标签 As Label = TryCast(Me.Controls.Find("Lab" & 字段名, True).FirstOrDefault(), Label) '尝试在当前窗体及其所有子控件中查找一个名为"Lab" + 字段名的Label控件,并将其作为Label类型的对象返回给变量标签。如果找不到这样的控件,或者找到的控件不是Label类型,标签变量将被赋值为Nothing。
If 标签 IsNot Nothing Then
标签.Text = 新内容
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
修改标签内容("购方识别号", "新的购方识别号")
End Sub
向窗口批量添加控件,并修改内容。尝试在当前窗体及其所有子控件中查找一个名为“Lab“ + 字段名的Label控件,并将其作为Label类型的对象返回给变量标签
最新推荐文章于 2024-08-14 23:12:09 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)