Como gravar um TextBox em um arquivo .TXT

Para gravar o que estiver em um TextBox em um arquivo TXT use o seguinte código:
(coloque em um botão de comando, por exemplo) :
Chdrive app.Path
Chdir app.path
f = freefile
OPEN "arquivo.txt" For OUTPUT As f
Print #f, text1.text
Close f


Pegue um outro exemplo clicando AQUI. Este exemplo usa um controle chamado CommonDialog.

Como criar um fundo degradê em um formulário

Se você quiser graduar apenas um formulário crie esta procedure dentro das General Declaration do se form. Agora se você estiver trabalhando com mais de um form então crie esta procedure dentro de um módulo.

Public Sub GraduaForm(frm As Form, pRed As Integer, pGreen As Integer, pBlue As Integer)
'Salva as configurações atuais do form
SaveScale = frm.ScaleMode
SaveStyle = frm.DrawStyle
SaveDraw = frm.AutoRedraw
 
frm.ScaleMode = 3
Pixels = Screen.Height / Screen.TwipsPerPixelY
X = Pixels / 64 + 0.5
frm.DrawStyle = 5
frm.AutoRedraw = True
For j = 0 To Pixels Step X
Y = 240 - 245 * j / Pixels
If Y < 0 Then Y = 0
frm.Line (-2, j - 2)-(Screen.Width + 2, j + X + 3), RGB(-pRed * Y, -pGreen * Y, -pBlue * Y), BF
Next j

'Restaura as configurações do form
frm.ScaleMode = SaveScale
frm.DrawStyle = SaveStyle
frm.AutoRedraw = SaveDraw

End Sub

Agora para graduar um formulário basta digitar no form_load deste formulário o seguinte:

GraduaForm Me, False, False, True

Esta linha de comando criará um formulário com graduação azul, mas você pode misturar as cores (Vermelho, Verde, Azul), para criar outras cores.

Como mover um objeto em tempo de execução

Pode-se mover controles, em tempo de execução, usando-se o método Drag & Drop. Os pontos principais a serem lembrados quando você usar Drag & Drop para mover controles, em tempo de execução, são:

No evento MouseDown, salve os parâmetros X e Y. Estas coordenadas referem-se ao canto superior esquerdo do controle a ser arrastado. Perceba que o evento MouseDown só ocorre quando a propriedade DragMode está em Manual.

No evento DragDrop, mova o controle até a posição do cursor, ajustadas pela posição salva no evento MouseDown.

Crie um controle qualquer; uma caixa de figuras, por exemplo. Na seção de declarações gerais do form, dimensione as variáveis :

Dim Save_X as single, Save_Y as single
No evento MouseDown da caixa de figuras, escreva:

Save_X = X
Save_Y = Y
Picture1.drag 1

Já no evento MouseUp da mesma caixa de figuras, coloque:

Picture1.drag 2

No evento DragDrop do form :

Source.move X - Save_X, Y - Save_Y

No evento DragDrop da caixa de figuras:

Source.move picture1.left + X - Save_X, Picture1.top + Y - Save_Y

 

Como calcular idade

Insira uma Função:
Public Function CalcIdade(DataNasc As String) As Variant

DiaNas = DatePart("d", DataNasc)
MesNas = DatePart("m", DataNasc)
DiaAtu = DatePart("d", Now)
MesAtu = DatePart("m", Now)

DifAno = DateDiff("yyyy", DataNasc, Now)

If MesAtu < MesNas Then
DifAno = DifAno - 1
ElseIf MesAtu = MesNas Then
If DiaAtu < DiaNas Then
DifAno = DifAno - 1
End If
End If

CalcIdade = DifAno

End Function

Centralizando Forms

Coloque o seguinte código dentro do Form_Load():

Left = (Screen.Width - Width) / 2
Top = (Screen.Heght - Height) / 2

Visite a página do Clube dos Programadores de Visual Basic do Brasil, tenho certeza que lhe agradará

wdinei@base.com.br

1