Migrando do VB6  para o VB.NET


A seguir , em poucas palavras , ou deveria dizer : em poucas linhas de código , algumas tarefas que eram feitas no VB6 e como devem ser feitas no VB.NET. Vapt-Vupt...

  VB6 VB.NET
DoEvents DoEvents System.Windows.Forms.Application.DoEvents
     
App Object App.Path & App.EXEName System.Reflection.Assembly.GetExecutingAssembly.Location.ToString
     
Obter instância da aplicação App.hInstance System.Runtime.InteropServices.Marshal.GetHINSTANCE _(System.Reflection.Assembly.GetExecutingAssembly.GetModules() _(0)).ToInt32()
     
Verificar instância anterior App.PrevInstance Function PrevInstance() As Boolean
If Ubound(Diagnostics.Process.GetProcessesByName_
    (Diagnostics.Process.GetCurrentProcess).ProcessName)) > 0 Then
     Return True
Else
    Return False
End If

End Sub
     
Carregar Imagem Picture1.Picture = LoadPicture(path)
 
Dim img As Image = Image.FromFile(path)
Picture1.Image = img
 
     
Carregar um ícone Me.Icon = LoadPicture(path)
 
Dim ico As New Icon(path)
Me.Icon = ico
 
     
Ler a partir de um arquivo Open path For Input As #1
Line Input #1, buffer
Close #1
 
Dim fs As FileStream = File.Open(path, FileMode.OpenOrCreate, _ FileAccess.Read)
Dim sr As New StreamReader(fs)
Buffer = sr.ReadLine
sr.Close
     
Escrever para um arquivo Open path For Output As #1
Write #1, buffer
Close #1
Dim fs As FileStream = File.Open(path, FileMode.OpenOrCreate, _
FileAccess.Write)
Dim sr As New StreamWriter(fs)
sr.Write(buffer)
sr.Close

 
     
Verifica erros 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
 
Gerando número aleatórios 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 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

Propriedades Private valor As String
Public Property Get Teste() As Variant
    nome = valor
End Property

Public Property Let Teste(ByVal vNewValue As Variant)
    Set valorNome = vNewValue
End Property
 

Public Property teste()

   Get

       teste = valor

     End Get

     Set(ByVal Value)

       valor = Value

      End Set

End Property

Declaração de Classes No VB 6.0 uma nova classe fica em um arquivo separado que usa a extensão .cls  A classe é identificada pelo arquivo.  Ex: Cliente.cls No visual Basic .NET a classe é identificada pela declaração

Class... End Class

O código fica em arquivos com a extensão .vb. Ex: Cliente.vb

Criação de Objetos Dim cliente as New objCliente
Dim cliente as ObjCliente = New ObjCliente

Declarar objeto com As New inicia o objeto com Nothing
indicando que o objeto ainda não foi criado.

Dim cliente as New ObjCliente("Macoratti")
Dim cliente as ObjCliente = New ObjCliente("Macoratti")

Algumas classes podem ser construtores que recebem parâmetros.
Uso e Criação de Interfaces Interface Icliente
   Property Cliente() As String
End Interface

Public Class Clientes
   Implements ICliente
    ....
End Class
Public Interface UmaInterface
  Function WhoAmI() As String
End Interface
Public Class AClass
  Implements UmaInterface
   ....
End Class

 

A Microsoft criou um site com suporte para VB6 e para a migração. : VBRUN - http://msdn.microsoft.com/vbrun//

Até o próximo artigo VB.NET e Boa Migração...

Veja os Destaques e novidades do SUPER DVD Visual Basic  (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

Quer aprender C# ??

Chegou o Super DVD C#  com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

Veja também os Cursos com vídeo aulas e projetos exemplos:

      Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:


José Carlos Macoratti