Question

我使用了两个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

字体大小不会减少，我该如何实现？

Answer 1

这里

Dim numberpad As New FormNumberPad
numberpad.ShowDialog()

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

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

Dim numberpad As New FormNumberPad
fnt = numberpad .lblTitle.Font
numberpad.lblTitle.Font = New Font(fnt.Name, 12, FontStyle.Bold)
numberpad.ShowDialog()

Answer 2

这是因为你正在使用'新'FormNumberPad，用FormNumberPad.ShowDialog()更改该行及以下

使标签的字体大小更小

2 个答案: