ClientHwndクラス DrawStringClientメソッド
オブジェクトウインドウ座標で指定した位置に、指定したBrushオブジェクトとFontオブジェクトで、指定した文字列を描画します。
使用法
Dim instance As ClientHwnd
Dim s As String		'描画する文字列
Dim font As System.Drawing.Font		'文字列のテキスト形式を定義するFontオブジェクト
Dim brush As System.Drawing.Brush	'描画するテキストの色とテクスチャを決定するBrushオブジェクト
Dim pt As System.Drawing.Point		'描画するテキストの左上隅の座標を表すPointオブジェクト

'Overloads
instance.DrawStringClient(s, font, brush, pt)
Dim instance As ClientHwnd
Dim s As String		'描画する文字列
Dim font As System.Drawing.Font		'文字列のテキスト形式を定義するFontオブジェクト
Dim brush As System.Drawing.Brush	'描画するテキストの色とテクスチャを決定するBrushオブジェクト
Dim x As Integer	'描画するテキストの左上隅のX座標
Dim y As Integer	'描画するテキストの左上隅のY座標

'Overloads
instance.DrawStringClient(s, font, brush, x, y)
Dim instance As ClientHwnd
Dim s As String		'描画する文字列
Dim font As System.Drawing.Font		'文字列のテキスト形式を定義するFontオブジェクト
Dim brush As System.Drawing.Brush	'描画するテキストの色とテクスチャを決定するBrushオブジェクト
Dim pt As System.Drawing.Point		'描画するテキストの左上隅の座標を表すPointオブジェクト
Dim format As System.Drawing.StringFormat	'行間や配置などの書式属性を指定するStringFormat

'Overloads
instance.DrawStringClient(s, font, brush, pt, format)
Dim instance As ClientHwnd
Dim s As String		'描画する文字列
Dim font As System.Drawing.Font		'文字列のテキスト形式を定義するFontオブジェクト
Dim brush As System.Drawing.Brush	'描画するテキストの色とテクスチャを決定するBrushオブジェクト
Dim x As Integer	'描画するテキストの左上隅のX座標
Dim y As Integer	'描画するテキストの左上隅のY座標
Dim format As System.Drawing.StringFormat	'行間や配置などの書式属性を指定するStringFormat

'Overloads
instance.DrawStringClient(s, font, brush, x, y, format)
使用例
'ClientHwndクラス DrawStringClientメソッド

Imports Microsoft.VisualBasic
Imports System.Windows.Forms
Imports System.Drawing

Public Class AddIn

    Public Sub AddIn_Start()
        Dim chw As ClientHwnd = New ClientHwnd()

		Dim fnt As New Font("MS UI Gothic", 12)
        chw.DrawStringClient("あいうえお", fnt, Brushes.Blue, New Point(50, 30))
        chw.DrawStringClient("ABCDEFF亜居宇絵御", fnt, Brushes.Red, 50, 60)

		Dim sf As StringFormat = New StringFormat()
		sf.FormatFlags = StringFormatFlags.DirectionVertical	'縦書きにする
        chw.DrawStringClient("あいうえお", fnt, Brushes.Green, New Point(300, 30), sf)

		fnt = New Font("@MS ゴシック", 12)
		sf.FormatFlags = StringFormatFlags.DirectionVertical _
			Or StringFormatFlags.DirectionRightToLeft	'縦書き、右から左へ
		Dim str As String = "ABCDEFF亜居宇絵御" & ControlChars.CrLf _
			& "かきくけこghijklmn" & ControlChars.CrLf & "1234567890"
        chw.DrawStringClient(str, fnt, Brushes.Purple, 400, 60, sf)

		sf.Dispose()
		fnt.Dispose()
    End Sub

End Class
 
 
 
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
Eメール(任意)
送信内容
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
 
Eメール(任意)
送信内容
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
 
Eメール(任意)
送信内容
 
便




top of page