バーコードのイメージ化 (ID:84501)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

> BarCodeCtrlのウィンドウハンドルが必要な事にぶちあたりました。
? ウィンドウハンドルは必要ないと思いますけど…。

OleDraw APIに渡すのは、

第1引数: 描画対象のコントロール(のObjectプロパティ)
第2引数: DVASPECT列挙定数
第3引数: 描画先のデバイスコンテキストハンドル
第4引数: 描画領域を示すRECT構造体

ですよね。ウィンドウハンドルの指定は無いような。

Option Explicit

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Enum DVASPECT
    DVASPECT_CONTENT = 1
    DVASPECT_THUMBNAIL = 2
    DVASPECT_ICON = 4
    DVASPECT_DOCPRINT = 8
End Enum

'第1引数は、As IUnknownでもOKかな。
Private Declare Function OleDraw Lib "ole32" _
   (ByVal pUnk As Object, _
    ByVal dwAspect As DVASPECT, _
    ByVal hdcDraw As OLE_HANDLE, _
    ByRef lprcBounds As RECT) As Long

Private Sub Form_Load()
    BarCodeCtrl1.Value = "4904447003500"   '適当なJANコード
End Sub

Private Sub Command1_Click()
    Dim R As RECT
    R.Right = 200
    R.Bottom = 80
    Dim H As Long
    H = OleDraw( _
            BarCodeCtrl1.Object, _
            DVASPECT_CONTENT, _
            Picture1.hDC, _
            R _
        )
    If H <> 0 Then
        Err.Raise H
    End If
End Sub

> BarCodeCtrl以外にバーコードを表示する以外ないのでしょうか？
当方では、市販のバーコードフォントを使っています。

←解決時は質問者本人がここをチェックしてください。

戻る