Efetuando Discagem no VB

Para efetuar uma discagem pelo VB,basta insirir o código: Crie um MsComm no seu Form; Depois Digite: Mscomm1.CommPort = 2 ‘(Nº da porta em que está seu FAX/MODEM) Mscomm1.PortOpen = True Mscomm1.Output = “ATDT 1234567” ‘(Discagem por Tom) MScomm1.Output = “ATDP 1234567” ‘(Discagem por Pulso)

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 »

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 »
Pages:«1234567...34»