Localizar Pastas do Windows

Localizar Pastas do Windows ‘Código que recupera Pastas do Windows, como Strings: ‘Ex: C:\Windows\Desktop, C:\Windows\Histórico… ‘——————- ‘Código para o Form ‘——————- Option Explicit Private Sub Form_Load() Call AchePastas End Sub Private Sub AchePastas() MsgBox ” 0- ” & ListaPastas(0) & vbCrLf & _ ” 2- ” & ListaPastas(2) & vbCrLf & _ ” 5- ”

Continuar lendo »

Eliminando o IF quando possível

Eliminando o IF quando possível no Visual Basic Se você atribui true ou false para uma variável (ou propriedade), após testar certas condições, poderia fazê-lo sem o IF. Veja: If (age > 18 and sex = “M”) and (NecessitaSeContigente = true ) Then ServicoMilitar = true Pode substituir por: ServicoMilitar = (age > 18 and

Continuar lendo »

Obtendo o nome longo de um arquivo através de seu nome curto

Obtendo o nome longo de um arquivo através de seu nome curto Com esta função pode se obter o nome longo de um arquivo. Seu funcionamento é simples. Através da passagem de parâmetro do nome curto de arquivo nome é retornado seu nome longo. Public Function GetLongName(ByVal psShortName As String) As String Dim liPos As

Continuar lendo »

Livrando-se dos zeros a esquerda

Livrando-se dos zeros a esquerda Nesta dica, vamos utilizar alguns recursos do Vb para retirar os zeros a esquerda (inúteis) da variável Minhastring (que contém “000290”). Abaixo, um bom exemplo para efetuar esta tarefa. Minhastring = CStr(CInt(Minhastring)) Uma outra solução é: Minhastring = Str(Val(Minhastring))

Continuar lendo »

Chamando Programas específicos do Painel de Controle

Chamando Programas específicos do Painel de Controle Para chamar programas do Painel de Controle não se usa necessariamente uma API, para isto, executa-se o programa rundll32.exe. De acordo com os parâmetros de cada programa chamado. Veja as chamadas das principais telas: – Para chamar a tela do Painel de Controle Call Shell(“rundll32.exe shell32.dll,Control_RunDLL”, vbNormalFocus) * Adicionar

Continuar lendo »
Pages:«123456789...37»