1

我正在使用两个forms，当我第一次单击按钮时form FormSales，我想显示text“非库存价格”并减少fontsize。我label的publicform FormNumberpad代码是，

Private Sub btnItemNonTaxable_Click(ByVal sender As Object, ByVal e As EventArgs) _
                                    Handles btnItemNonTaxable.Click
    chktax1.Checked = False
    _AmountTitle = "Non Inventory Taxable Price"
    Dim fnt as Font
    fnt = FormNumberPad.lblTitle.Font
    FormNumberPad.lblTitle.Font = New Font(fnt.Name, 12, FontStyle.Bold)
    Dim numberpad As New FormNumberPad
    numberpad.ShowDialog()

    ..............
    ..............
End Sub

字体大小没有减小，我该如何实现？

4

2 回答 2

3

这里

Dim numberpad As New FormNumberPad
numberpad.ShowDialog()

您正在创建一个新的 FormNumberPad 实例，该实例使用 ShowDialog() 显示。
ShowDialog 是模态的，这意味着在您关闭显示的表单之前它不会返回。
此时您的标签（仍然存在于内存中）被隐藏，您看不到任何变化。

您可以尝试在显示对话框之前更改标签，但在表单的当前实例（数字键盘）上而不是在作为对话框的类定义的 FormNumberPad 上。

Dim numberpad As New FormNumberPad
fnt = numberpad .lblTitle.Font
numberpad.lblTitle.Font = New Font(fnt.Name, 12, FontStyle.Bold)
numberpad.ShowDialog()
于 2013-03-28T13:21:35.963 回答
1

这是因为您使用的是“新”FormNumberPad，请更改该行及以下内容FormNumberPad.ShowDialog()

于 2013-03-28T13:20:01.647 回答