Colocar Forms MDIChilds em cascata ou lado a lado

Colocar Forms MDIChilds em cascata ou lado a lado Para esta dica utilize um form do tipo MDI. – Para colocar as MDIChild em cascata, use: Me.Arrange vbCascade – Para colocar lado a lado horizontalmente as não minimizadas, use: Me.Arrange vbTileHorizontal – Para colocar lado a lado verticalmente as não minimizadas, use: Me.Arrange vbTileVertical –

Continuar lendo »

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