(VB 6) Zero a esquerda e Posição da Janela

[Named]

Olá a todos!

Tenho duas duvidas vou separa-las para ficar melhor para se entender!

1º Zero a esquerda

Estou fazendo um cronômetro e gostaria de exibir os segundos,minutos e hora da seguinte maneira 00:00:00, o problema é que quando vou adicionar 1 segundo no cronômetro ele faz com que o caption fique 00:00:1 e não 01.

Eu peguei em um site uma função para colocar 0 a esquerda mais não funcionou.

Como faço para resolver este problema?

2º Posição da tela

Preciso fazer com que um form abra sempre numa posição (no canto inferior direito da tela,perto do relógio) e que ele seja sempre visivel....

Procurei mais não achei nada a respeito.

Existe algum jeito para se fazer isso?

Obrigado desde já!

[Gustavo Luiz G. Ferreira]

Zero à esquerda

para o cronômetro você pode fazer dois tipos de ajuste técnico.

o primeiro é colocar cada número como um label e no timer você iria incrementando. algo do tipo:

timer1_timer()

lblsec.caption = val(val(lblsec.caption) + 1)

if lblsec.caption = 10 then lblsec.caption = 0: lblsec2.caption = val(lblsec2.caption) + 1: e por aí vai

end sub

a outra esqueci ^^

se eu lembrar eu posto =)

Posição de tela

vá em view -> form layout.

posicione o form onde você quer q apareça (também tem a propriedade startup position que você tem algumas opções lá).

pra deixar sempre visível não sei, mas acho que há alguma api que faz isso

[Named]

Gustavo eu fiz o cronômetro separado sim!

são três label, uma para hora, outra para minuto e outra para segundo.

Porém não entendi bem a sua ideia de zero a esquerda.

E quanto a posição da tela...

realmente eu não me lembrava, pois eu fechei essa opção do painel para ganhar espaço.

Mais obrigado por lembrar

=D

com relação ao zero a esquerda

realmente não entendi, então vou postar meu código aqui para você ver mais ou menos como pensei

Private Sub Timer1_Timer()
If segundo.Caption < 59 Then
segundo.Caption = Val(segundo.Caption) + 1
ElseIf segundo.Caption = 59 And minuto.Caption < 59 Then
segundo.Caption = 0
minuto.Caption = Val(minuto.Caption) + 1
    ElseIf minuto.Caption = 59 Then
    minuto.Caption = 0
    hora.Caption = Val(hora.Caption) + 1
End If
End Sub

Editando

Acabei de resolver Gustavo!

=D

Era uma coisa tão simples, só que quando a gente ta com a cabeça meio cheia acaba esquecendo, lá vai o código

Private Sub Timer1_Timer()
If segundo.Caption < 59 Then
segundo.Caption = Val(segundo.Caption) + 1
    If segundo.Caption < 10 Then
    segundo.Caption = 0 & segundo.Caption
    End If
ElseIf segundo.Caption = 59 And minuto.Caption < 59 Then
segundo.Caption = "00"
minuto.Caption = Val(minuto.Caption) + 1
        If minuto.Caption < 10 Then
        minuto.Caption = 0 & minuto.Caption
        End If
    ElseIf minuto.Caption = 59 Then
    minuto.Caption = "00"
    hora.Caption = Val(hora.Caption) + 1
End If
End Sub

Se alguém quiser usar ou incrementar (se incrementar posta aí pra nós... =D)

fique a vontade