VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/02/08(Tue) 11:08
投稿者： ダンボ
ＵＲＬ：
タイトル： ヒントのサンプル

自分の勉強のために作ってみました。基本は下記で良いのですが、フォント幅が1なので結果的に
中抜き文字にならなかった（笑）
そこで花ちゃんさんのサンプル「文字列を角度及び扁平率を指定して印字(233)」
hhttp://www.bcap.co.jp/hanafusa/VBHLP/kakudofo.htm
を参考にして、太字のフォントで試したところ気持ちよく中抜けました。
表示結果を「わいわいがやがや広場」に掲載しておきますね。
hhttp://bbs4.aimix-z.com/gbbs.cgi?room=hanafusa

With Picture1
.Cls
BeginPath .hdc
  RTN = TextOut(.hdc, 10, 10, Text1.Text, Len(Text1.Text))
EndPath .hdc
hRgnC = PathToRegion(.hdc)
If hRgnC <> 0 Then
   RTN = FrameRgn(.hdc, hRgnC, GetStockObject(BLACK_BRUSH), 1, 1)
   RTN = DeleteObject(hRgnC)
End If
End With

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -