Artigos .NET Migrando para o VB.NET parte 2

 

Migrando para o VB.NET parte 2

 

  • A  referência do form e System.Winforms.Form
  • Propriedade Caption trocada por Text
  • Propriedade Tag extinta
  • Propriedade Font  foi sub-dividida

 

  • O Gridse ajusta direto nas propiedades.
  • Na ToolBox vários controles a mais em relação ao VB 6.0
  • Frame trocado por GroupBox
  • CommandButton por Button
  • Shape não tem mais
  • Alguns não precisamos mais referenciar:

1.      ListView

2.      TreeView

3.      ErrorProvider

4.      ProgressBar

·        Menu editor trocado por MainMenu , que digamos ficou bem mais fácil e apresentável.

·        AutoScale : ajusta o tamanho do form com o tamanho das fontes.

·        Auto Scroll barras de rolagem automática para visualizar conteúdo do form

·        AutoShowChildren de um formulário MDI não existe mais.

·        MDIChild por IsMdiContainer como True.

·        VB 6 so um formulário MDI no VBNET mais de um.Veja abaixo as diferenças nas propiedades e métodos nos forms MDI.

método Arrange             LayoutMdi

0 - vbCascade                0 - MdiLayout.Cascade

1 – vbTileHorizontal      1 - MdiLayout.TileHorizontal

2 – vbTileVertical          2 - MdiLayout.TileVertical

3 – vbArrangeIcons      3 - MdiLayout.ArrangeIcons

 

  • Gerando número aleatórios

No vb 6

 

No vb.net

 

Dim i As Integer
Randomize

For i = 1 To 20
Debug.Print Int(101 * Rnd + 100)

Next i

Dim i As Integer

Microsoft.VisualBasic.Randomize()

For i = 1 To 20

Console.WriteLine(Int(101 * Microsoft.VisualBasic.Rnd() + 100))

Next

Console.ReadLine()

 

 

 

  • Declarações de data e hora

No vb 6

 

No vb.net

 

Dim data As Date, hora As Date
data = Date
hora = Time
Debug.Print "Data Atual : " & data
Debug.Print "hora Atual : " & hora
exibe: dd/mm/aaaa e hh:mm:ss

Dim data, hora As DateTime

data = Today

hora = TimeOfDay

Console.WriteLine("Data Atual : " & data)

Console.WriteLine("Hora Atual : " & hora)
exibe: dd/mm/aaaa e hh:mm:ss

 

 

 

  • Verifica erros

 

No vb 6

 

No vb.net

 

On Error Goto errhandler
...
errhandler:
MsgBox(err.Description)

Try
...
   Throw New Exception("error description goes here")
...
Catch e as Exception
   MsgBox(e.Description)
End Try