我只能使用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);
}
答案 0 :(得分: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