Denis_Rave

Usando os componentes DriveListBox, DirListBox e FileLisbox tenm um exemplo aki bem simples td os componentes já vem quando você abre um novo projeto..basta clikar na barra de ferramentas ao lado e arrastar para o form este exemplo foi feito pra abrir uma imagem no se HD e mostra n picture..ai você faz as modificaçoes necessarias Private Sub Drive1_Change() On Error GoTo erro 'ao trocar de drive ele atualiza as pastas da raiz senão vai ao erro Dir1.Path = Drive1.Drive Exit Sub erro: MsgBox "Erro ao acessar o drive !!!", vbDefaultButton1 End Sub Private Sub Dir1_Change() 'ao escolher o diretorio atualiza os arquivos que estão neste diretorio File1.Path = Dir1.Path End Sub Private Sub File1_Click() 'define o arquivo q você clicou arquivo_selecionado = File1.Path & "\" & File1.FileName On Error GoTo trataerro 'mostra o arquivo na picture, se for uma figura, senão vai para o erro Picture1.Picture = LoadPicture(arquivo_selecionado) cd1.FileName = selectedfile Exit Sub trataerro: arquivo_selecionado = File1.Path & File1.FileName cd1.FileName = selectedfile End Sub espero ter ajudado falou

De uma olhadinha aki: http://www.macoratti.net/filesyst.htm espero q ajude falou

tente fazeruma busca no forum antes de postar cara^^ de uma olhada neste tópico aki e veja se ajuda: Clique falou

bom..eu lhe aconselharia a gravar as informações em um banco de dados e nele criar um campo para a imagem ...ai nesse campo você colocaria o caminho das imagens , tipo "C:\imagens\img.jpg" ai era só chamar numa picture quando você carregasse o form

pode fazer assim If Val(Text1.text) > Val(Text2.text) then numero = Val(text1.text) Else numero = Val(text2.text) End if If numero < Val(text3.text) then numero = Val(text3.text) end if numero = numero + 10 Msgbox numero acho q é isso.....se não for se explique melhor ai falou

ah sim....agora consegui...obrigado ^^ agora acho q da pra fazer já em novas duvidas volto aki...hehe... bb

estava pensando em usar um timer pra dar um tempo até que a aplicação abra...mas é claro sem esperar possíveis erros se ela não abrir... mas estou tendo problemas com a função shell...quando o programa abre ele está abrindo minimizado ...como coloco pra abrir normal??

Olá...estou com uma duvida..qm puder ajudar agradeço Quero chamar uma outra aplicação a partir do meu form e nela mandar um "Tab" pra ir pro porximo text desta aplicação e nesse text digitar algumas coisas.... e dar enter alguém sabe se da pra fazer?? é com SendKeys?? vlw

ah...ok!...mt obrigado mais uma vez!!! podem fechar o tpc se desejarem

ah sim...e é só declarar normalmente na seção 'general declaration'?

otimo...esse vetor q você diz pode seruma matriz bi-dimensional...tipo linha(0,0)??

estou trabalhndo com um arquivo .txt e gostaria de saber se existe algum jeito de mexer somente em uma determinada linha do arquivo? obrigado

errr....sem querer ser chato...alguém leu minha pergunta?

aproveitando o tópico... eu tb terminei um sistema e queria saber por qnt posso vende-lo tipo...ele é um sistema q gerencia vendas e faz td controle do estoque e cadastro de clientes e fornecedores.... alguém tem uma ideia ai??

ahh agora sim está funcionando.....muito obrigado!

estou tendo problemas com manipulação de arquivox .txt estou usando o seguinte código para capturar td q esta escrito no txt e adicionar uma nova linha e recolocar o q tinha antes Dim i As Integer, j As Integer Open "resultados.txt" For Input As #1 ReDim Valor(0) Do While Not EOF(1) i = i + 1 ReDim Preserve Valor(i) Input #1, Valor(i) Loop Close #1 Open "resultados.txt" For Output As #1 Print #1, Text1.Text Close #1 Open "resultados.txt" For Append As #1 For j = 1 To i Print #1, Valor(j) Next Close #1 ele até que funciona..só que quando no arquivo txt eu tenho uma linha escrito tipo "22/04/05" ele só captura o "20" cmo posso resolver isso?

Duvida Sanada.... bom..finalmente terminei o sistema e queria saber qnt posso cobrar por ele tipo...ele é um sistema q gerencia vendas e faz td controle do estoque e cadastro de usuarios e fornecedores.... alguém tem uma ideia ai??

Como adicionar um arquivo de ajuda no VB... pelo Project->Properties mas desabilitando a função do F1 pra chamar o ajuda? ou então existe outro jeito de adicionar o .hlp sem ser modulo?? obrigado

ok....muito obrigado....vou ver o q posso fazer

ops..ai q esta o problem....eu to usando ODBC Drivers sera q foi isso???

Ms Access meu vb é 6 sp6

saquei...o problema é que eu to pondo isso num relatorio...e o command do DataEnv não entede op SUM...porque eu usei um function no relatorio

bom..na Verdade eu quero obter a soma das "quantidades vendidas" de todos os registros da tabela em que a forma de pagamento seja "Cartão" e armazenar em Total...

Estou usando esta rotina de sql para uma seleção deum relotório,mas não está dando certo SELECT Codigo,Nome,Fabricante,QuantidadeEmEstoque,QuantidadeVendida,DataDaUltimaVenda,FormaDePagamento,(QuantidadeVendida) AS Total FROM Vendas Where Total = (Select QuantidadeVendida from Vendas where FormaDePagamento = 'Cartão') qual oproblema com isso???

por favor....estou um pouco apertado entaum se alguém puder me ajudar eu agradeço existe algum jeito de colocar um data report para imprimir em modo paisagem? pois só consigo fazer com que ele fique no modo retrato ou entaum modificar a configuração da impressora para que ela fique automaticamente configurada para imprimir em modo paisagem? mas teria q configurar a impressora do Windows...porque já tentei usando o Common Dialog e não deu certo.... obrigado!