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 »

Como criar Hyperlinks em um Label

Como criar Hyperlinks em um Label A partir de um form, adicione 2 labels chamados Label1 e Label2. Logo após adicione o código a seguir, clicando sobre os labels: Private Declare Function ShellExecute Lib “shell32.dll” Alias _ “ShellExecuteA” (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String,

Continuar lendo »

Adicionar tabs a uma ListBox

O Objeto ListBox Standard do Visual Basic não contempla colunas. Podemos contornar o problema, utilizando uma função API do Windows. No modulo .Bas adicionamos outra variável constante: Public Const LB_SETTABSTOPS = &H192 No evento Form_Load() digitamos o seguinte código: Private Sub Form_Load() Dim lngRet As Long LngRet = SendMessage(lstcapitais.hwnd, LB_SETTABSTOPS, 1, 40&) Call Capitais End

Continuar lendo »

Form circular

Form circular Adicione o seguinte código nas declarações da form: Private Declare Function CreateEllipticRgn Lib “gdi32” (ByVal X1 As _ Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib “user32” (ByVal hWnd _ As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As

Continuar lendo »

Validando CGC e CPF

Validando CGC e CPF no Visual Basic Os números de CGC e CPF possuem dígitos verificadores para que ?!?!?!… Horas para serem verificados!!! Isto é obvio. A validação deve ser feita (por qualquer sistema decente) para impedir a digitação por engano e os CGCs e CPFs falsos. Function Fu_consistir_CgcCpf (Vl_CgcCpf As String) ‘ Esta Rotina

Continuar lendo »
Pages:«1234567...34»