无法将类型为“System.Drawing.Bitmap”的对象强制转换为类型“System.ComponentModel.IContainer”。

[BulletShi]

Private _docement As DocementBase
'打印
Private Sub button3_Click(sender As Object, e As EventArgs) Handles button3.Click
If pictureBox1.Image Is Nothing Then
MessageBox.Show("You Must Load an Image first!")
Return
Else
_docement = New imageDocument(pictureBox1.Image)
End If
_docement.showPrintPreviewDialog()
End Sub


_docement = New imageDocument(pictureBox1.Image)这行报错， '无法将类型为“System.Drawing.Bitmap”的对象强制转换为类型“System.ComponentModel.IContainer”。

其中imageDocument在组件类中有定义
Public Class imageDocument : Inherits DocementBase

Private _Image As Image

Public Property Image() As Image

Get
Return _Image
End Get

Set(value As Image)
_Image = value
If _Image IsNot Nothing Then
If _Image.Size.Width > _Image.Size.Height Then

DefaultPageSettings.Landscape = True
Else
DefaultPageSettings.Landscape = False
End If
End If
End Set
End Property

Public Sub imageDocument()
End Sub

Public Sub imageDocument(image As Image)
Me.Image = image
End Sub

[BulletShi]

imageDocument在查询引用时查到的是类Public Class imageDocument : Inherits DocementBase ，而不是类中定义的 Public Sub imageDocument(image As Image) Me.Image = image End Sub

[BulletShi]

在C#中可以正常使用，转为VB为何查询引用时指定会不同

[xdashewan]

vb.net中的构造函数为Public Sub New函数，而不是Public Sub 类名

[Tiger_Zhao]

VB.Net 中的构造函数的命名 New 而不是类名

Public Class imageDocument : Inherits DocementBase

    Public Sub New(image As Image)
        Me.Image = image
    End Sub

End Class

[BulletShi]

谢谢 xdashewan ，一语中的，疏忽了。非常感谢！

[BulletShi]

谢谢 Tiger_Zhao ，已好！