-2

我只能找到使用 C# 的代码，但也许有人可以将其翻译成 vb.net 或协助 VB.NET 代码可以帮助我。我只是一个使用 VB.net 的初学者。我去了leadtools论坛，但没有我想要的例子，大多数例子都是用C#写的

    void HiliteWord(AnnContainer container, IOcrPage page, OcrWord word)
{
    // Get bounds of word as LeadRectD
    LeadRectD bounds = word.Bounds.ToRectangle(page.DpiX, page.DpiY).ToLeadRectD();
    // Convert to annotation coordinates
    bounds = container.Mapper.RectToContainerCoordinates(bounds);
    // Create the annotation
    AnnHiliteObject hilite = new AnnHiliteObject();
    hilite.Points.Clear();
    hilite.Points.Add(bounds.TopLeft);
    hilite.Points.Add(bounds.TopRight);
    hilite.Points.Add(bounds.BottomRight);
    hilite.Points.Add(bounds.BottomLeft);
    // Add to container
    container.Children.Add(hilite);
}
4

1 回答 1

0

正如 David 在他的评论中所说，您可以使用在线转换器将 c# 转换为 vb.net。此外，如您所知，如果您需要 SDK 方面的帮助，LEADTOOLS SDK 提供聊天、电子邮件和论坛作为支持选项：

https://www.leadtools.com/support/supportoptions

我在 David 链接的转换器中运行了上述代码，这是正确的输出，可以在您的应用程序中使用：

Private Sub HiliteWord(ByVal container As AnnContainer, ByVal page As IOcrPage, ByVal word As OcrWord)
    Dim bounds As LeadRectD = word.Bounds.ToRectangle(page.DpiX, page.DpiY).ToLeadRectD()
    bounds = container.Mapper.RectToContainerCoordinates(bounds)
    Dim hilite As AnnHiliteObject = New AnnHiliteObject()
    hilite.Points.Clear()
    hilite.Points.Add(bounds.TopLeft)
    hilite.Points.Add(bounds.TopRight)
    hilite.Points.Add(bounds.BottomRight)
    hilite.Points.Add(bounds.BottomLeft)
    container.Children.Add(hilite)
End Sub
于 2018-08-23T13:05:58.953 回答