VB .NET - Dicas curtas e rápidas - Como eu faço isso no VB .NET ?


A seguir algumas dicas rápidas que procuram mostrar como realizar algumas tarefas comuns no VB .NET. Aproveite :

Seção : Como eu faço isso no VB .NET ?

Parte 1 - Mostra como algumas tarefas básicas eram feitas no VB6 e como são feitas agora no VB.NET:

Era assim no VB6 Você faz assim no VB .NET
DoEvents System.Windows.Forms.Application.DoEvents
App.Path & app.Exename System.Reflection.Assembly.GetExecutingAssembly.Location.ToString
 App.hInstance System.Runtime.InteropServices.Marshal.GetHINSTANCE _(System.Reflection.Assembly.GetExecutingAssembly.GetModules()_(0)).ToInt32()

 

App.PrevInstance Function PrevInstance() As Boolean
If Ubound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess).ProcessName)) > 0 Then
   Return True
Else
   Return False
Endif
Picture1.Picture = LoadPicture(path) Dim img As Image = Image.FromFile(path)
Picture1.Image = img
Me.Icon = LoadPicture(path) Dim ico As New Icon(path)
Me.Icon = ico
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
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
On Error Goto errhandler
...
errhandler:
MsgBox(err.Description)

 

Try
    ...
   Throw New Exception("descrição do erro")
   ...
Catch e as Exception
   MsgBox(e.Description)
End Try

Parte 2 - A seguir uma relação contendo o código para realizar muitas tarefas básicas no VB .NET:

Pingar uma URL

             MsgBox(My.Computer.Network.Ping("www.macoratti.net",1000)
 

Tocar/Parar um arquivo .WAV do sistema

             My.Computer.Audio.Play("C:\WINDOWS\Media\Windows XP Default.wav", AudioPlayMode.Background)
             My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)
             My.Computer.Audio.Stop()

 

Abrir uma URL no Navegador padrão:

         Dim webAddress As String = "http://www.macoratti.net"
         Process.Start(webAddress)

 

Exibir  resolução de vídeo

          MsgBox("A resolução é: " & My.Computer.Screen.Bounds.Width.ToString & "x" & _
                        My.Computer.Screen.Bounds.Height.ToString & " Pixels")
 

Obter o nome completo, a plataforma e a versão do sistema operacional

         MsgBox(My.Computer.Info.OSFullName)
         MsgBox(My.Computer.Info.OSPlatform.ToString)
         MsgBox(My.Computer.Info.OSVersion.ToString)

 

Obter a quantidade de memória física disponível e a memória virtual

          MsgBox(" ´Memória Física disponível: " & My.Computer.Info.AvailablePhysicalMemory.ToString & " bytes")
          MsgBox(" ´Memória Virtual disponível: " & My.Computer.Info.AvailableVirtualMemory.ToString & " bytes")

 

Gerar número aleatórios

       Dim r As Random = New Random
       'Obtem o numéro aleatório no intervalo de um valor inteiro
       MsgBox(r.Next())

       'Gera número aleatório de 0 até o máximo definido.No caso não deve ser maior que 20
        MsgBox(r.Next(20))       

        'Gera no aleatório entre o mínimo e o máximo definidos.
        MsgBox(r.Next(10, 15))

 

Abrir uma página no navegador padrão

                 Private Sub AbrirURL(URL as String)
                      System.Diagnostics.Process.Start("http://www.macoratti.net")
             End Sub

 

 

Faz o upload de um arquivo da máquina local para um local remoto

        My.Computer.Network.UploadFile("c:\teste\Pagina.html","http://www.macoratti.net")

 

Faz o download de um arquivo da internet para a máquina local

        My.Computer.Network.DownloadFile("http://www.macoratti.net/index.html", "c:\teste\Pagina.html")

 

Desabilitar o beep no controle TextBox quando teclar o ENTER

       If e.KeyCode = Keys.Enter Then
               e.SuppressKeyPress = True
  
   End If

 

Copiar e colar texto para o Clipboard

        My.Computer.Clipboard.SetText("Meu texto", TextDataFormat.Text)
        MsgBox(My.Computer.Clipboard.GetText(TextDataFormat.Text))
 

Limpar o Clipboard

        My.Computer.Clipboard.Clear()

 

Verifica se o computador esta conectado na internet

       MsgBox(My.Computer.Network.IsAvailable)

 

Verifica se um arquivo ou diretório existem

      Imports System.IO

      MsgBox(IO.File.Exists("c:\teste.txt"))
      MsgBox(My.Computer.FileSystem.DirectoryExists("c:\"))

 

Obter o caminho da aplicação com o nome do arquivo

         Dim appPathFilename As String
        
appPathFilename = System.Windows.Forms.Application.ExecutablePath
         MessageBox.Show(appPathFilename)

 

Obter o caminho da aplicação sem o nome do arquivo

        Dim appPath As String
       
appPath = System.Windows.Forms.Application.StartupPath
        MessageBox.Show(appPath)

 

Listar todas as fontes disponíveis

         Dim f As System.Drawing.Text.InstalledFontCollection = New  System.Drawing.Text.InstalledFontCollection
       Dim fFamily As FontFamily

        For Each fFamily In f.Families
             lst.Items.Add(fFamily.Name)
        Next

 

Verificar se um arquivo existe

     Imports System.IO
     Dim f As IO.File
     MessageBox.Show(f.Exists("d:\teste.txt"))

 

Verificar se um diretório existe

          Imports System.IO

          Dim dir As IO.Directory
          MessageBox.Show(dir.Exists("c:\"))

 

Obter a Hora e data atual

           MessageBox.Show(Date.Now)

 

Tratamento de erro Básico com Try/Catch

        Imports System.IO
         Dim f As IO.File

        Try
            f.Open("C:\ArquivoNaoExiste.txt", IO.FileMode.Open) 'lança uma exceção de arquivo não encontrado
        Catch exc As Exception
            MessageBox.Show(exc.Message, " Error", MessageBoxButtons.OK, MessageBoxIcon.Error) 'descrição do erro
        End Try

 

Incluir cores em um ListBox/ComboBox

         Imports System.Drawing

        Dim cor As corConhecida
        For cor = corConhecida.AliceBlue To corConhecida.YellowGreen
            cmbColor.Items.Add(cor)
        Next

 

Eu sei é apenas VB .NET mas eu gosto...

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

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

  Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:


José Carlos Macoratti