【Access】実行中のフォームのコントロールを再描画する


Repaintメソッドを使って実行中のフォームのコントロールを再描画することが出来ます。

たとえば、フォームにラベル(labelHello)が貼り付けてあり、このラベルのフォントサイズをボタン(buttonBig、buttonSmall)を押すことで変更させてみたいと思います。



各ボタンのイベントプロシージャに次のように記述します。
Private Sub buttonBig_Click()

    Me.labelHello.FontSize = Me.labelHello.FontSize + 1
    
    '再描画
    Me.Repaint
    
End Sub

Private Sub buttonSmall_Click()

    Me.labelHello.FontSize = Me.labelHello.FontSize - 1
    
    '再描画
    Me.Repaint

End Sub


実行結果









comments powered by Disqus