如何将 C# Object Cast 转换为 VB.net Object Cast?(显示了特定的 Cast 方法)
How Do I convert C# Object Cast to VB.net Object Cast?(Specific Cast Method Shown)
我正在努力将下面的代码转换为 VB.Net。我在这里做错了什么?
代码:这是我在下面尝试的。我尝试转换以下语句:
(gotoAction.Destination, PDFPageDirectDestination).Page = destinationPage
bookmark.Action = gotoAction
在下面的函数中声明这个:(我用的是DirectCast)
Public Shared Function CreateBookmark(title As String, bookmarkColor As PDFRgbColor, visualStyle As PDFOutlineItemVisualStyle, destinationPage As PDFPage) As PDFOutlineItem
Dim bookmark As PDFOutlineItem = New PDFOutlineItem()
bookmark.Title = title
bookmark.Color = bookmarkColor
bookmark.VisualStyle = visualStyle
Dim gotoAction As PDFGoToAction = New PDFGoToAction()
gotoAction.Destination = New PDFPageDirectDestination()
DirectCast(gotoAction.Destination, PDFPageDirectDestination).Page = destinationPage
bookmark.Action = gotoAction
Return bookmark
End Function
试试这个,不需要转换:
Public Shared Function CreateBookmark(title As String, bookmarkColor As PDFRgbColor, visualStyle As PDFOutlineItemVisualStyle, destinationPage As PDFPage) As PDFOutlineItem
Dim bookmark As New PDFOutlineItem()
bookmark.Title = title
bookmark.Color = bookmarkColor
bookmark.VisualStyle = visualStyle
Dim gotoAction As New PDFGoToAction()
Dim destination As New PDFPageDirectDestination()
destination.Page = destinationPage
gotoAction.Destination = destination
bookmark.Action = gotoAction
Return bookmark
End Function
我正在努力将下面的代码转换为 VB.Net。我在这里做错了什么?
代码:这是我在下面尝试的。我尝试转换以下语句:
(gotoAction.Destination, PDFPageDirectDestination).Page = destinationPage
bookmark.Action = gotoAction
在下面的函数中声明这个:(我用的是DirectCast)
Public Shared Function CreateBookmark(title As String, bookmarkColor As PDFRgbColor, visualStyle As PDFOutlineItemVisualStyle, destinationPage As PDFPage) As PDFOutlineItem
Dim bookmark As PDFOutlineItem = New PDFOutlineItem()
bookmark.Title = title
bookmark.Color = bookmarkColor
bookmark.VisualStyle = visualStyle
Dim gotoAction As PDFGoToAction = New PDFGoToAction()
gotoAction.Destination = New PDFPageDirectDestination()
DirectCast(gotoAction.Destination, PDFPageDirectDestination).Page = destinationPage
bookmark.Action = gotoAction
Return bookmark
End Function
试试这个,不需要转换:
Public Shared Function CreateBookmark(title As String, bookmarkColor As PDFRgbColor, visualStyle As PDFOutlineItemVisualStyle, destinationPage As PDFPage) As PDFOutlineItem
Dim bookmark As New PDFOutlineItem()
bookmark.Title = title
bookmark.Color = bookmarkColor
bookmark.VisualStyle = visualStyle
Dim gotoAction As New PDFGoToAction()
Dim destination As New PDFPageDirectDestination()
destination.Page = destinationPage
gotoAction.Destination = destination
bookmark.Action = gotoAction
Return bookmark
End Function