From c4d8095c0d2fe80f63c7d40a66d3836831adef08 Mon Sep 17 00:00:00 2001 From: yas78 Date: Mon, 10 Jan 2022 01:05:39 +0900 Subject: [PATCH] Update README.md --- README.md | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/README.md b/README.md index 633d2da..5fefa83 100644 --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ JIS X 0510に基づくモデル2コードシンボルを生成します。 - BMP、EMF、GIF、PNG、SVG、TIFFファイルに保存可能です - QRコードをIPictureDispオブジェクトとして取得可能です - 配色を指定可能です -- 8ビットバイトモードの文字セットを指定可能です +- 文字セットを指定可能です - QRコードをクリップボードに保存可能です @@ -44,10 +44,13 @@ Dim sbls As Symbols Set sbls = CreateSymbols(maxVer:=10) ``` -### 例4.8ビットバイトモードの文字セットを指定する +### 例4.文字セットを指定する CreateSymbols関数の charsetName 引数を設定してSymbolsオブジェクトを生成します。 (ADODB.Stream に依存しています。使用可能な文字セットはレジストリ[HKEY_CLASSES_ROOT\MIME\Database\Charset]を確認してください。) +既定値は Shift_JIS です。UTF-8 への設定例を以下に示します。 + + ```VBA Dim sbls As Symbols Set sbls = CreateSymbols(charsetName:="UTF-8") @@ -146,6 +149,10 @@ SymbolクラスのSetToClipBoardメソッドを使用します。 Dim sbls As Symbols Set sbls = CreateSymbols() sbls.AppendText "012345abcdefg" - + +' Bitmap sbls(0).SetToClipBoard + +' Metafile +sbls(0).SetToClipboard fmt:=fmtEMF ```