Manwë Súlimo

Pessoal, se eu fizer uma variavel global num módulo chamada RS e fizer uma local com o mesmo nome em um formulario, na hora que eu chamasse RS dentro desse formularios, a que var acionar é a local dentro do formulario né? alguém pode me confirmar??? até mais

Olá pessoal Public Property Get ListaDeRestricoes() As TP_restricao ListaDeRestricoes = total_restricao End Property Pessoal ai eu to tentando adicionar um vetor inteiro a uma propriedade, nesse caso a propriedade vai virar um vetor automaticamente ou não?? total_restricao ai é o vetor.... e dá p/ eu adicionar um vetor inteiro todo de uma vez a uma variavel, e essa variavel se tornar automaticamente um vetor igual ao outro??? espero que me possam em ajudar... até mais

Function baixar(LocalArquivo As String, LocalURLArquivo As String) As Boolean baixar = False On Error GoTo Baixa_erro Dim bt() As Byte Open LocalArquivo For Binary Access Write As #1 bt() = form_principal.baixa.OpenURL(LocalURLArquivo, icByteArray) Put #1, , bt() Close #1 baixar = True Exit Function Baixa_erro: MsgBox "Não foi possivel verificar se há atualizações pendentes." _ & vbCrLf & "Verifique sua conexão com a internet!", vbCritical, "Falha ao verificar" baixar = False Close #1 End Function Public Sub Verifica() n = FreeFile Open App.Path & "\versao.txt" For Output As #n Print #n, App.Major & App.Minor & App.Revision Close #n Dim versao As String Dim programa As String If baixar(App.Path & "\atual.txt", "http://fredericobe.sites.uol.com.br/cotr/versao.cotr") Then n = FreeFile Open App.Path & "\atual.txt" For Input As #n Line Input #n, versao Close #n n = FreeFile Open App.Path & "\versao.txt" For Input As #n Line Input #n, programa Close #n If CInt(versao) > CInt(programa) Then o que = MsgBox("Exite uma versão mais recente deste programa diponivel." _ & vbCrLf & "Deseja instalá-la agora? ", vbYesNo + vbInformation, "Atualização disponível!") If o que = vbYes Then baixar App.Path & "\atualiza.exe", "http://site.com.br/arquivos/atualiza.exe" Shell App.Path & "\atualiza.exe" Else MsgBox "É aconcelhavel que você esteja sempre com a versão mais atual do Programa." _ & vbCrLf & "Não esqueça de atualizar o mais rápido possivel!", vbInformation, "Atualização" End If End If End If End Sub assim tá o código... e na hora de dar o shell ele fala que o arquivo não existe....

problema resolvido pessoal, fui muita burrice minha... deixa p/ lá, desculpe pelo incomdo... até mais

ninguém sabe o que pode ser??

pessoal não sei o que tá acontecendo.... já criei dois setup para meus programas, um com o Inno e outro com o que vem com o VB mesmo, e ambos depois que eu instalo e vou usar o programa, quando vou fazer uma certa rotina ele simplesmente fecha.... não entendo, depois se eu copio o arquivo que eu compilei na pasta do meu projeto, para a pasta do programa instalado ele dá o mesmo erro, mas na pasta do que eu fiz todo o meu programa ele não dá erro.. não sei por que... o problema só da se eu instalar o programa.. se eu copiar o executavel p/ qualquer pasta, ele não dá erro... to ficando desesperado, preciso entregar esse programa hoje e agora ele me dá dessa... alguém sabe o que pode tá acontecendo??? alguém pode me ajudar???

esse erro nas paginas com JavaScript talvez seja por que o VB instalar alguns componentes que debugam erros em JavaScript, caso a página que você esteja acessando tenha erros, o o ScriptDebugger (acho que é isso o nome) vai avisar... antes de você instalar o VB esses erros já existiam, mas você nem sabia.... até mais

tipo eu tenho uma função p/ baixar um arquivo, exemplo: baixar "c:\teste.exe","http://www.seila.com.br/arquivo.exe" shell "c:\teste.exe" ai a função baixa o arquivo do segundo parametro e salvo com o nome do primeiro parametro, o problema é que antes de baixar o arquivo, o código já executa o comando shell.. e dá a mensagem que o arquivo não foi encontrado... é ele nào foi encontrado por que ainda não foi baixado totalmente, eu queria que ele só executasse o comando shell depois que o função baixar estivesse terminada.... em outras palavras, já tivesse baixado todo o arquivo... como faz isso??

Pessoal, como que eu faço p/ que o código espere uma função terminar para continuar??? alguém sabe me ajudar??? até mais

Pessoal, estou editando meu formulario, mas agora ele não abre mais que 11000 twips de width, o problema agora é que preciso mexer em alguns controles que estão no canto da tela, e não ta dando.... alguém sabe o que está acontecendo??? espero que me ajudem até mais

bom, é 1024X768, e tudo estava retornando 9000 twips, tanto de width como de height.... mas agora eu to usando a API getsystemmetrics e ta retornando direitinho.... mas valeu.. até mais

Pessoal, por que o meu Screen.Width e o Screen.Height estão retornando o mesmo valor??? o Width não deveria ser maior??

meu e-mail é fredericoqc@hotmail.com eu não uso esse componente.... espero que possa me ajudar... e agradeço desde já... até mais

pessoal, desculpe, mas vi como faz, os objetos têm a propriedade container, é utiliza-la que ela retorna o nome do container do objeto... até mais

Pessoal, tem como eu saber o nome de um Container de uma objeto?(não sei se é assim que se chama) Por exemplo, eu tenho um campo de texto que chama text1, esse campo tá dentro de um Frame, tem como eu saber o nome do frame?? através do nome do campo de texto [text1] e só mais uma coisa, é possivel sabe se ele está dentro de um container ou está dentro do formulario direito?? até mais

as vezes você não precisa nem usar as propriedades, por exemplo variavel = texto1 isso já atribui a variaval o valor que estiver digitado na caixa de texto [texto1] isso também vale para labels... e lembra também que campos e labels são de certo modo, tratadas como variaveis, então você pode atribuir um valor de uma caixa de texto a um label automaticamento: label1=texto1 e não precisa nem usar as propriedades algumas vezes.... até mais

Pessoal, já pesquisei em todos os tópicos, já perguntei em outros foruns e lista de discução e nada me ajudou... essa história de mudar a resolução do usuário não é certa na minha opinião, e no meu caso isso também não dá certo, porque o monitor do usuário é ruim e se ficar com a definição grande vai perder as cores.. já perceberam meu problema? preciso que meu programa se adapte ao munitor do usuário, tipo os programas da microsoft, macromedia.... preciso saber como posso fazer que as medidas fiquem menor caso o monitor esteja menor... como eu faço isso preciso de ajuda, ou dica, não sei..... é algo como CSS p/ internet, quando trabalhava com internet, colocava todas as medidas em porcento(%) e o site ficava perfeito, não importava p/ qual monitor.... preciso de algo semelhante p/ VB, nem que seja um loop que de a volta em todos os controles redimencionando os mesmos, caso a resoluçào seja menor ou maior... isso eu até já tentei fazer, mas deu certo em partes, por que as fontes não diminuem, e as caixas de texto tem um tamanho mínimo... bom eu sinceramente não sei o que eu poço fazer, alguém ai tem uma artimanha, um truque na manga p/ eu pelo menos enganar o usuários??? espero que possam me ajudar até mais

não sei, tente algo como set variaval=nothing em PHP é assim: unset [nome_var] como o equivalente de unset em VB set = nothing..... o único problema é que eu não sei se isso só funciona p/ objetos em VB, sei que no php é p/ variavel.... eu testei desse jeitp aqui, e não deu nenhum erro.... até mais ah e valeu pelas dicas...

Pessoal, como eu posso saber quanto um array ou matriz que eu fiz ocupa da memória? por exemplo, se ao iniciar o programa, eu carrego quatro matrizes com cerca de 250 linhas e quatro colunas cada uma, isso ficaria muito pesado na memória do windows ou não? deixaria o micro lento?? pelo menos deixaria o programa bem mais rápido, já que ele não teria que acessar o banco toda hora... e os dados que eu colocaria nas matrizes são informações requisitadas constantemente pelo programa... alguém sabe como ficaria isso?? até mais

Aproveitando o gancho do nosso amigo, vi o código do cara lá, e acho que funciona( não testei) mas eu quero usar um programa do DOS que não apareça... as duvidas são as seguintes: como eu faço p/ ele não aparecer com o shell, só iniciar?? e se ele não aparecer como janela, o código lá do cara vai funcionar??? até mais

Valeu Aragorn, vou procurar mais sobre funções recursivas então.. até mais e valeu Ah na verdade é do Silmarillion, que conta a origem da terra média, ele é um deus ou semi deus da Terra Média até mais

Bom, em todos os forums que eu já vi informações sobre essa duvida, a resposta é essa, não dá... mas se você fala que especialista te falaram que dá, por que eles não falam também como faz?? ai você já aproveita e põe aqui p/ gente ver como faz... até mais

então função recursiva é uma funçào que chama ela mesma até que determinada comdição seja alcançada??? como se fosse um loop?? Valeu Aragorn... OBS.: você sabe quem é Manwe Súlimo?? até mais

Pessoal, o que é exatamente uma funçào recursiva?? o que significa recursividade...?? desculpem minha ignorancia... alguém pode me ajudar??? até mais

p/ copiar arquivos é só usar a função copy copy(arquivoorigem,arquivodestino) p/ criar pastas de uma olhada nas funções do filesystemobject ou mesmo pode improvisar alguma coisa com o objeto DirListBox.... até mais