Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
inkpictureで認識したstrokeを知りたいです。
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=30583#CommentId84350
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
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)
↑ここをフォーム以外にできますか?