Visusal Basic 6

[Visitante]

Boa tarde

Sou novo com visual basic 6

Estou com um problema , tenho um codigo em feito esta funcionando perfeitamente mais tenho um problema que é o seguinte

quero desabilitar um botao enquanto o mesmo tiver em execucao ao final da execucao ele voltar a o normal

Outra coisa tenho uma imagem em .gif e queria poder centralizar a mesma ,

alguém pode me ajudar

segue meu codigo

Private Sub Command1_Click()
Dim fs As FileSystemObject
Dim vetor As Variant
Dim linha As String
Dim file As file
' 0|01|PRODUTO BCC|8137277665|C|1||0|0| Formato da Lista
Dim i As Variant

linha = ""


    ' fs.CreateTextFile "c:\teste.txt"


FileNumber = FreeFile
arq = "c:\xxxx.txt"


Open "c:\xxx.txt" For Input As #1



While Not EOF(1)
i = i + 1
    Line Input #1, linha
    Stng = Stng & "|" & linha
   DoEvents
   Label1.Caption = i

Wend
Close #FileNumber
 vetor = Split(Stng, "|")

 Label1.Caption = 0
  tamanho = UBound(vetor)
  

Open arq For Append As #FileNumber

For i = 1 To tamanho

    Print #FileNumber, i - 1 & "|01|PRODUTO BCC|" & vetor(i) & "|C|" & i & "||0|0|"
    Label1.Caption = i
    DoEvents
  Next
Close #FileNumber

End Sub

Private Sub Command2_Click(Index As Integer)
Dim sair As String
sair = MsgBox("Deseja realmente sair?", vbYesNo + vbExclamation, "Atenção")

If sair = vbYes Then
End
Else
Cancel = True
End If
End Sub


Private Sub Command3_Click()
Dim pausar As String
pausar = MsgBox("Deseja Continuar?", vbSim + vbExclamation, "Atenção")

End Sub

Private Sub Image1_Click()

End Sub

Editado Abril 3, 2011 por kuroi
Adicionar tag CODE

[Matheus-vb6]

Ola...

primeiramente bem vindo ao forum :D

se no começo você por BOTAO.enabled=false e no final BOTA.enabled=true não da certo??

Abraços

[Visitante]

Ta mais em que parte do codigo colocaria BOTAO.Enabled = True? e BOTAO.Enabled = False?

[Matheus-vb6]

no começo do codigo você manda desabilita... depois da ultima linha de codigo, antes do end sub você habilita

[Visitante]

Boa tarde

Valeu Matheus , esta funcao que me passou funcionou legal.

Obrigado

Walter