2017年10月19日

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


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

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



各ボタンのイベントプロシージャに次のように記述します。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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


実行結果







スポンサーリンク



Follow Me on Pinterest
Clip to Evernote