投稿者 魔界の仮面弁士  (社会人) 投稿日時 2021/2/24 01:52:41
> vbaで実現できずに、煮詰まったりしていました。
> 今回バイナリセーブの例を出して頂いて、スッキリしました。
Save & Load の例として、昨年書いていたこのあたりも。
http://rucio.cloudapp.net/ThreadDetail.aspx?ThreadId=30478


> 線画など描画のヒント(背景も読めないし、出来ない旨のwebもありました)を頂ければ、ありがたいです。
すでに
 https://www.vbforums.com/showthread.php?763319-Drawing-shapes-on-ink-picture
を利用したコードを書かれているようなので、ストロークの扱いは省くとして。

既存の画像を読み込むなら、LoadPicture を使えます。
Set InkPicture1.Picture = LoadPicture("C:\Windows\Web\Wallpaper\Theme1\img1.jpg")

あとは GDI API を使って、デバイス コンテキストに対して直接描画することもできます。
Private Declare PtrSafe Function Ellipse Lib "gdi32" (ByVal hDC As LongPtr, ByVal Left As LongByVal Top As LongByVal Right As LongByVal Bottom As LongAs Long
Private Sub InkPicture1_Painting(ByVal hDC As LongByVal Rect As MSINKAUTLib.IInkRectangle, Allow As Boolean)
    Ellipse hDC, Rect.Left + 5, Rect.Top + 5, Rect.Right - 5, Rect.Bottom - 5
End Sub