Dear Sir,
I'm Trying convert from c# to vb.net
But I have an error `Error BC30437 'Public Overrides Property MinimumSize As SIZE' cannot override 'Public Overrides Property MinimumSize As Size' because they differ by their return types.` and `Error BC30284 function 'SizeFromClientSize' cannot be declared 'Overrides' because it does not override a function in a base class.`
Code In C#
private Size? minimumSize = null;
private Size? maximumSize = null;
private Size minimumClientSize;
private Size maximumClientSize;
public override Size MinimumSize
{
get
{
if (minimumSize.HasValue)
return minimumSize.Value;
return base.MinimumSize;
}
set
{
minimumSize = value;
if (IsInitializing)
{
return;
}
Size maxSize = MaximumSize;
base.MinimumSize = value;
if (maxSize != MaximumSize)
MaximumClientSize = ClientSizeFromSize(MaximumSize);
}
}
public override Size MaximumSize
{
get
{
if (maximumSize.HasValue)
return maximumSize.Value;
return base.MaximumSize;
}
set
{
maximumSize = value;
if (IsInitializing)
{
return;
}
Size minSize = MinimumSize;
base.MaximumSize = value;
if (MinimumSize != minSize)
MinimumClientSize = ClientSizeFromSize(MinimumSize);
}
}
protected override Size SizeFromClientSize(Size clientSize)
{
clientSize.Width += ClientMargin.Horizontal;
clientSize.Height += ClientMargin.Vertical;
return clientSize;
}
Code in VB.NET
Private minimumSize_Conflict? As Size = Nothing
Private maximumSize_Conflict? As Size = Nothing
Private minimumClientSize_Conflict As Size
Private maximumClientSize_Conflict As Size
`Error BC30437 'Public Overrides Property MinimumSize As SIZE' cannot override 'Public Overrides Property MinimumSize As Size' because they differ by their return types.`
Public Overrides Property MinimumSize As Size
Get
If minimumSize_Conflict.HasValue Then
Return minimumSize_Conflict.Value
End If
Return MyBase.MinimumSize
End Get
Set(ByVal value As Size)
minimumSize_Conflict = value
If IsInitializing Then
Return
End If
Dim maxSize As Size = MaximumSize
MyBase.MinimumSize = value
If maxSize <> MaximumSize Then
MaximumClientSize = ClientSizeFromSize(MaximumSize)
End If
End Set
End Property
`Error BC30284 function 'SizeFromClientSize' cannot be declared 'Overrides' because it does not override a function in a base class.`
Public Overrides Property MaximumSize As Size
Get
If maximumSize_Conflict.HasValue Then
Return maximumSize_Conflict.Value
End If
Return MyBase.MaximumSize
End Get
Set(ByVal value As Size)
maximumSize_Conflict = value
If IsInitializing Then
Return
End If
Dim minSize As Size = MinimumSize
MyBase.MaximumSize = value
If MinimumSize <> minSize Then
MinimumClientSize = ClientSizeFromSize(MinimumSize)
End If
End Set
End Property
Protected Overrides Function SizeFromClientSize(ByVal clientSize As Size) As Size
clientSize.Width += ClientMargin.Horizontal
clientSize.Height += ClientMargin.Vertical
Return clientSize
End Function