rrgotardo

Sim já tentei, e sé de entrar e salvar já corrompe. Mais eu resolvi desinstalando o VB6 e instalando novamente.

Bom dia!!! Veja se alguém já passou por isso. Abro um projeto para alterar, estou mudando somente o caption de um Label. Salvo o formulário *.frm mas quando volto a abrir o projeto tudo que estava no código entre o Begin VB.Form nome_do_formulario e o Option Explicit sumiu. Corrompendo o arquivo. Mesmo se eu estiver com o formulário aberto no VB6 salvo e entro no NOTPAD++ para ver o código ele sumiu. Desde já agradeço a atenção de todos. Qualquer dúvida estou a disposição para maiores esclarecimentos. Alguém saberia o que pode ser este erro.

Bom dia a todos! Deparei-me com o seguinte erro, tenho uma barra de StatusBar no meu formulário e coloquei a propriedade dele Align = vbAlignBotton, isto para, quando o usuário Restaurar ou Maximizar a tela o StatusBar se ajuste automaticamente ao novo formato da tela, mas ao minimizar o formulário o StatusBar diminui e ao maximizar novamente ele não está voltando ao normal. Se alguém souber como sanar esse problema. Obrigado.

Boa tarde! Gostaria de saber como posso verificar se um arquivo já está aberto por outro ou o mesmo usuário no VB6. Exemplo: tenho um arquivo TESTE.XLS ele está aberto para o usuário A. Com isso o usuário B tenta gravar alguma alteração pelo VB6 no arquivo TESTE.XLS, eu gostaria de dar uma mensagem "Arquivo TESTE.XLS está em uso pelo usuário A!". Desde já agradeço.

Bom dia!!! Tenho uma rotina que gera um arquivo *.xls no local c:\. Gostaria de assim que terminar de gerar abri-se esse arquivo para usuário. Estava usando o comando shell: AbrirArquivo = Shell("C:\Arquivos de programas\Microsoft Office\Office12\EXCEL.EXE " & NomeArquivo, vbNormalFocus) só que tenho maquinas que não tem o Microsoft Office e sim o OpenOffice, então, gostaria de saber como posso abrir um arquivo independente o programa. Desde já agradeço. Eu usei Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.Run NomeArquivo