Convert VB6 code to VB.NET 1

[PGoRule]

I have few lines of code, for which I am really confused to find way out and convert it to VB.NET. The following code is in VB6 and giving error for ScaleY, vbPixels, vbTwips as nt defined.

Private Sub DisplayDlvDiffDlg_Resize(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Resize
		CancelButton_Renamed.Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Me.Height) - VB6.PixelsToTwipsY(CancelButton_Renamed.Height) - ScaleY(30, vbPixels, vbTwips))
		CancelButton_Renamed.Left = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Me.Width) - VB6.PixelsToTwipsX(CancelButton_Renamed.Width) - ScaleX(13, vbPixels, vbTwips))
		OKButton.Top = CancelButton_Renamed.Top
		OKButton.Left = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(CancelButton_Renamed.Left) - VB6.PixelsToTwipsX(OKButton.Width) - ScaleX(10, vbPixels, vbTwips))
		DlvDiffText.Height = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Me.Height) - VB6.PixelsToTwipsY(OKButton.Height) - ScaleY(45, vbPixels, vbTwips))
		DlvDiffText.Width = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Me.Width) - ScaleX(22, vbPixels, vbTwips))
End Sub

Thanx....

Sharing the best from my side...

--Prashant--

 

[Borvik]

It would appear from your code that you are using, or rather trying to use, the resize event to keep you OK and Cancel buttons in the lower corner of the form.

If that is the case, the easiest thing to do would be to ditch the code and use the Anchor property of the controls to anchor it to the appropriate part of the form.

 

[PGoRule]

Thanx Borvik...
I got the above code after porting vb6 application to vb.net. Now I placed anchors for those controls. Thats fine. Now one more thing,
How can I set width and height of form depending on Controls height and width. I have the following lines. It gives errors for ScaleX, vbPixels, vbTwips.

Me.Width = VB6.TwipsToPixelsX(ScaleX(15 + ComboDatasCombo.Width + 10, vbPixels, vbTwips))
Me.Height = VB6.TwipsToPixelsY(ScaleY(30 + OKButton.Top + OKButton.Height + 5, vbPixels, vbTwips))

Sharing the best from my side...

--Prashant--

 

[Borvik]

Here is some info I found in the .NET Help files.

In Visual Basic 6.0, the ScaleMode property could be used to change the coordinate system for a form or PictureBox control from the default scale of twips.

Visual Basic .NET does not support multiple coordinate systems; only pixels are supported. During upgrade, coordinates are automatically converted from twips to pixels; code that sets the ScaleMode property at run time will cause a compilation error and must be modified.

That would be why you are receiving those errors. Try doing something more like:

Me.Width = 15 + ComboDatasCombo.Width + 10
Me.Height = 30 + OKButton.Top + OKButton.Height + 5

You might have to modify those values a bit to get it to work correctly - but that's what you'll end up having to do.