如何使用 Windows.media.ocr 和计时器控件避免文本闪烁答案

【问题标题】：How to avoid text to flicker using Windows.media.ocr and timer control如何使用 Windows.media.ocr 和计时器控件避免文本闪烁
【发布时间】：2022-01-09 17:55:10
【问题描述】：

我正在使用 Windows.Media.Ocr 在计时器控件下扫描屏幕上的一些文本，每 200 毫秒触发一次滴答事件。然后我在一个不幸闪烁的富文本框中显示输出..

我制作了一个 gif 来显示问题（ocr 是故意只扫描带有 M 的值）

有没有办法阻止这种行为？谢谢

我在计时器内部使用的代码是：

 Dim softwareBmp As Windows.Graphics.Imaging.SoftwareBitmap
        Using bmp As Bitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)
            Using g As Graphics = Graphics.FromImage(bmp)
                Dim pt As Point = Me.PointToScreen(New Point(PictureBox1.Left, PictureBox1.Top))
                g.CopyFromScreen(pt.X, pt.Y, 0, 0, bmp.Size, CopyPixelOperation.SourceCopy)
                Using memStream = New Windows.Storage.Streams.InMemoryRandomAccessStream()
                    bmp.Save(memStream.AsStream(), System.Drawing.Imaging.ImageFormat.Bmp)
                    Dim decoder As Windows.Graphics.Imaging.BitmapDecoder = Await Windows.Graphics.Imaging.BitmapDecoder.CreateAsync(memStream)
                    softwareBmp = Await decoder.GetSoftwareBitmapAsync(decoder.BitmapPixelFormat, BitmapAlphaMode.Ignore)
                End Using
            End Using
        End Using
        Dim ocrEng = OcrEngine.TryCreateFromLanguage(New Windows.Globalization.Language("en-US"))
        Dim languages As IReadOnlyList(Of Windows.Globalization.Language) = ocrEng.AvailableRecognizerLanguages
        For Each language In languages
            Console.WriteLine(language.LanguageTag)
        Next
        Dim r = ocrEng.RecognizerLanguage
        Dim n = ocrEng.MaxImageDimension
        Dim ocrResult = Await ocrEng.RecognizeAsync(softwareBmp)

        RichTextBox1.Clear()

        Dim wordList As List(Of cText) = New List(Of cText)()
        Dim lines As IReadOnlyList(Of OcrLine) = ocrResult.Lines
        For Each line In lines
            For Each word In line.Words
                Dim nY As Double = CLng(word.BoundingRect.Bottom / 10) * 10
                wordList.Add(New cText() With {.Text = word.Text, .LocY = nY, .LocX = word.BoundingRect.Left})
            Next
        Next

        wordList.Sort(New WordComparer())

        Dim oldLocY As Double = 0
        For Each item As cText In wordList
            If (item.LocY > oldLocY And oldLocY <> 0) Then
                RichTextBox1.Text += Environment.NewLine
            End If
            RichTextBox1.Text += (item.Text + " ") 
            oldLocY = item.LocY
        Next

【问题讨论】：

您能否向我们展示创建内容背后的代码？
当然，我编辑了帖子。
@dai 那是 2009 年的答案，而 cmets/answers 陈述了 3 个不同的事情。我应该选择哪一个？

标签： vb.net timer ocr .net-4.8

【解决方案1】：

我使用 WM_SETREDRAW

解决了

<DllImport("User32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)>
     Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As Integer
     End Function
    
     Public Const WM_SETREDRAW As Integer = &HB

添加行之前（之前 RichTextBox1.Clear()）

  If (RichTextBox1.IsHandleCreated) Then
             SendMessage(RichTextBox1.Handle, WM_SETREDRAW, 0, IntPtr.Zero)
         End If

添加行之后：

 If (RichTextBox1.IsHandleCreated) Then
             SendMessage(RichTextBox1.Handle, WM_SETREDRAW, 1, IntPtr.Zero)
             RichTextBox1.Invalidate()
         End If

【讨论】：