tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re^2: ユーサーコントロールの作り方
投稿日： 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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。