Validar login do windows – VB6

13Fev09

Um exemplo para validar login do windows pelo VB6…
Em um modulo…
Public Const LOGON32_LOGON_INTERACTIVE = 2
Public Const LOGON32_LOGON_BATCH = 4
Public Const LOGON32_LOGON_SERVICE = 5
Public Const LOGON32_PROVIDER_DEFAULT = 0
Declare Function LogonUser Lib “advapi32″ Alias “LogonUserA” _
(ByVal lpszUsername As String, ByVal lpszDomain As String, _
ByVal lpszPassword As String, ByVal dwLogonType As Long, _
ByVal dwLogonProvider As Long, phToken [...]

Filed under: Visual Basic   |  11 Comments
Tags: advapi32, Basic, login, validar, Vb, Vb6, Visual, Visual Basic, Windows

FlashWindow no Visual Basic

14Jan09

Segue uma dica para quem utiliza Visual Basic e quer chamar atenção do usuário quando a aplicação necessita…
Basta utilizar o FlashWindow.
No General
Private Declare Function FlashWindow Lib “user32″ (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Quando precisar chamar atencao do usuario
FlashWindow Me.hwnd, 1
Funciona que eh uma beleza…

Filed under: Visual Basic   |  Leave a Comment
Tags: atenção, Basic, chamar, flashwindow, lib, Usuário, Vb, Vb6, Visual

Abrir arquivo TXT no VB

21Dez08

Para abrir e visualizar o conteudo de um arquivo TXT no Visual Basic eh bem simples, segue um exemplo:
Private Sub LerArquivo()
Dim s As String
Dim texto As String
Open “c:\teste.txt” For Input As #1
Do Until EOF(1)
Line Input #1, s
texto = texto + s
Loop
Close #1
MsgBox texto
End Sub
abs

Filed under: Visual Basic   |  3 Comments
Tags: abrir, Arquivo, Basic, input, open, Txt, Vb, Visual

Selecionar TextBox – VB6

06Nov08

Para selecionar o conteudo de um TextBox quando receber focu, basta utilizar o codigo abaixo:
Rotina (colocar em um Modulo)
Public Sub Seleciona_Texto(txtTexto As TextBox)
   txtTexto.SelStart = 0
   txtTexto.SelLength = Len(txtTexto.Text)
End Sub

Evento GotFocus
Private Sub Text1_GotFocus()
   Seleciona_Texto Text1
End Sub
flw

Filed under: Visual Basic   |  Leave a Comment
Tags: Basic, conteudo, evento, focus, selecionar, textbox, Vb, Vb6, Visual

Join – VB

03Nov08

O Join junta  elementos de um array em uma string.
Sintaxe
Join(Array, Delimitador)
Exemplo
Dim a(4) As String
a(0) = “sl4v3r 0″
a(1) = “sl4v3r 1″
a(2) = “sl4v3r 2″
a(3) = “sl4v3r 3″
a(4) = “sl4v3r 4″
MsgBox Join(a, “;”)
Resultado
sl4v3r 0; sl4v3r 1; sl4v3r 2; sl4v3r 3; sl4v3r 4
flw

Filed under: Visual Basic   |  Leave a Comment
Tags: Array, Basic, exemplo, join, sintaxe, String, Vb, Visual

Shell – VB6

03Nov08

Para chamar aplicações a partir do VBzão, basta utilizar o comando Shell.
Sintaxe
Shell programa, estado 
Exemplo
Shell “calc”, vbNormalFocus
Shell “cmd”, vbNormalFocus 

funciona mto bem…

Filed under: Visual Basic   |  Leave a Comment
Tags: Basic, calc, cmd, exemplo, shell, Vb, Visual

Mouse Scroll no VB

26Out08

Taí a dica para utilizar o Scroll no Visual Basic… funcina!
http://support.microsoft.com/?id=837910
flw

Filed under: Visual Basic   |  Leave a Comment
Tags: Basic, Mouse, Scroll, Vb, Visual, wheel

Carregando ComboBox no Vb6

20Out08

Para carregar um ComboBox no Visual Basic eh bem simples… basta utilizar o codigo abaixo.
Private Sub Carrega_Combo()
    cmb.Clear
    cmb.AddItem “Todos”
    cmb.AddItem “SP”
    cmb.AddItem “RJ”
    cmb.AddItem “MG”
    cmb.AddItem “PR”
End Sub
Funciona q eh uma beleza…

Filed under: Visual Basic   |  Leave a Comment
Tags: Additem, Basic, Clear, Codigo, Combo, Combobox, Vb, Vb6, Visual

Format – Visual Basic

20Out08

Temos a funcao Format que formata uma expressao. Utilizada para formatar datas, valores, codigos….
Sintaxe
format(expressao, formato) 
Exemplo1
Format(7800.20, “#,###,###,##0.00″)
Result: 7.800,20
Exemplo2
Format(2008-10-20, “dd/MM/yyyy”)
Result: 20/10/20008
Exemplo3
Format(50, “000″)
Result: 050

Filed under: Visual Basic   |  Leave a Comment
Tags: Basic, Codigo, Data, Format, sintaxe, Valor, Vb, Vb6, Visual

Function VAL in VB

20Out08

The function VAL returns the numbers from a String. 
Syntax
val(string)
Sample A
MsgBox Val(“01 – Brazil”)
Result: 01
Sample B
MsgBox Val(“02 – Argentina”)
Result: 02 

Filed under: Visual Basic   |  6 Comments
Tags: Basic, Function, Number, Return, String, Val, Vb, Visual