投稿者 snowmansnow  (社会人) 投稿日時 2021/1/27 23:35:30
申し訳ございません。
質問を変更させて頂きたいです。
isfのファイルを読み込むときに、inkpictureに読み込む例が殆どですが、
フォームのinkpictureに頼らず、他のものに読み込んで、
それを元に、文字認識する事はできますか?

先日の質問はVBNETに関わるかもしれないので、
VBAやVBNETで、フォームに関わらないで認識できるか知りたいです。

下記のコードがvbaでのisf読込時のコードです

 Dim imgBytes() As Byte
Dim sFilePathAndName6 As String

fn = InputBox("ファイル名:~.isf")

'https://www.239-programing.com/excel-vba/basic/basic085.html
    sFilePathAndName6 = (ThisWorkbook.Path & "\" & fn & ".isf")
    Open sFilePathAndName6 For Binary Access Read As #2
    'https://thom.hateblo.jp/entry/2015/08/15/153316
    ReDim imgBytes(LOF(2))
    Get #2, , imgBytes
    Close #2
    
    Dim myInk As New MSINKAUTLib.InkDisp


'https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1238549967
 'If InkPicture2.ink.Strokes.Count > 0 Then
'InkPicture2.ink.DeleteStroke InkPicture1.ink.Strokes(InkPicture1.ink.Strokes.Count - 1)
'InkPicture2.AutoRedraw = True
'End If

'    Set InkPicture2.ink = myInk
InkPicture2.ink.DeleteStrokes

    InkPicture2.InkEnabled = False

    Set InkPicture2.ink = myInk
    
    InkPicture2.ink.Load (imgBytes)
  ↑ここをフォーム以外にできますか?