タイトル | : Re^2: ユーサーコントロールの作り方 |
記事No | : 5439 |
投稿日 | : 2007/05/04(Fri) 19:25 |
投稿者 | : なゆた |
縦長のフォントを表示するコントロールを作りたいのですが、 魔界の仮面弁士様のおかげで、プロパティについては何とか理解しました。 しかし、イベントが発生してくれません。 form側で認識してくれないようです。 アドバイスお願いします。
Public Class UserControl1
Private usrText As String
Private Event TextChange()
Shadows Property Text() As String Get Return usrText End Get
Set(ByVal Value As String) usrText = Value Call u_Paint() RaiseEvent TextChange() End Set End Property
Private Sub UserControl1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint Call u_Paint() End Sub
Private Sub u_Paint() Dim g As Graphics
With Me 'Graphics オブジェクトを作成 g = .CreateGraphics '(アンチエイリアス処理されたグリフ ビットマップを使用) g.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAlias
'横・縦の表示比率を設定 g.ScaleTransform(1.0, 3.0)
g.DrawString(text, .Font, Brushes.Black, 0, 0) End With
'リソースを解放します g.Dispose() End Sub End Class
|