Skip to content

Commit

Permalink
Update README.md
Browse files Browse the repository at this point in the history
  • Loading branch information
yas78 committed Jan 9, 2022
1 parent 121a238 commit c4d8095
Showing 1 changed file with 10 additions and 3 deletions.
13 changes: 10 additions & 3 deletions README.md
Original file line number Diff line number Diff line change
Expand Up @@ -8,7 +8,7 @@ JIS X 0510に基づくモデル2コードシンボルを生成します。
- BMP、EMF、GIF、PNG、SVG、TIFFファイルに保存可能です
- QRコードをIPictureDispオブジェクトとして取得可能です
- 配色を指定可能です
- 8ビットバイトモードの文字セットを指定可能です
- 文字セットを指定可能です
- QRコードをクリップボードに保存可能です


Expand Down Expand Up @@ -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")
Expand Down Expand Up @@ -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
```

0 comments on commit c4d8095

Please sign in to comment.