1

私は2つを使用formsしています.最初にボタンをクリックすると、 「非在庫価格」を割引しform FormSalesて表示したい.私のコードは、textfontsizelabelpublicform 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 に答える