Densyy

Eu estou usando assim A função Public Sub AplicaSkin(ByVal vForm As Form, Optional ByVal vSkin As ACTIVESKINLibCtl.Skin, Optional ByVal SkinFile As String) Dim Ctl As Control Dim sIndex As String On Error Resume Next For Each Ctl In vForm Next Ctl DoEvents If sIndex = "" Then Set vSkin = Form1.Skin1 If SkinFile <> "" Then vSkin.LoadSkin SkinFile vSkin.ApplySkin vForm.hWnd If Err Then Err.Clear End Sub E depois só chamar ela Skin1.LoadSkin "C:\Windows\System32\Alien.skn" AplicaSkin Me No meu caso eu coloquei a skin no System32

Essas concerteza são boas dicas Ai Cleiton esse link esta dando "Servidor Não Encontrado" Mais nunca tinha prestado atenção nessa de mudar a pasta Acho q vou tentar fazer o programa buscar as ocx e dll nos locais especificos Vai facilitar mais Vlw pelas dicas pessoal

Bom , essa duvida ta enchendo o saco já tentei umas mil maneiras Preciso registrar a ocx para os usuarios q usam um determinado produto, para que rode tudo perfeitamente mais ai esta o problema sempre que tendo registrar aparece uma mensagem de erro dizendo que pode n ser compativel com a versão .... estou usando o Regsvr32 a utlima tentativa eu tinha feito assim Shell ("Regsvr32 C:\Windows\System32\actskin4.ocx") porem pesquisei sobre isso e cheguei a conclusão que é por q n tenho direitos de ADM e as proteções do Windows n permitem isso alguém sabe o que posso fazer?

Kara vlw mesmo parece funcionar perfeitamente aqui no meu pc eu testei e funciona perfeitamente Eu criei um teste simples e nesse teste tinha um visual actskin4.ocx Então dentro do projeto eu armazenei essa ocx junto com a Alien.skn e assim q o form foi iniciado ele enviava esses arquivos pro systen32 aqui funcionou perfeitamente Porém quando fui enviar para um colega meu deu esse erro Component 'actskin4.ocx' or one of its dependencies not correctly registered: a file is missing or invalid o que devo fazer? Testei de novo com a mesma pessoa e dividi o projeto em dois o primeiro fazia toda essa função de enviar os arquivos pro systen32 funcionou perfeitamente com ele ai enviei outro q usava esse os arquivos que eu enviei Porem deu o mesmo erro Então cheguei a duas conclusões ou é necessario registrar as OCX que eu envio para os usuarios ou eu estou enviando a ocx errada ou tenho q enviar mais outras ocx q compoen este componente

Bom The Kill Faço essas perguntas apenas para encher o forum com conteudo E para os novatos assim como eu terem soluções para seus problemas Qual a graça em Manter o conhecimento preso? Poderia ficar discutindo com você porém Não vou me rebaixar a esse nível Aposto q você deve ter uns 10 Anos falou ai e Bom ano Novo Pra vc

Bom pessoal essa é outra duvida que surgiu recentemente Estou usando a ferramenta Resource Editor para armazenar algumas .DLLs e .OCXs que são necessárias para a utilização das minhas aplicações Porém minhas aplicações procuram as .DLLs e .OCXs dentro da pasta Systen32 Esse é o problema Tenho q dizer ao programa assim q seja aberto que seja feita uma copia das .DLLs e .OCXs armazenadas no Resource Editor para a pasta Systen32 do usuario e assim ele possa utilizar a aplicação Porém n faço ideia de como fazer Se alguém poder me dar um Help Lembrando q as ocx que estou usando são MSWINSCK.OCX actskin4.ocx Alien.skn Agradeço desde já

Bom pessoal essa é uma duvida que tenho tem algum tempo já é algo simples Gostaria de saber qual a diferença entre todos esses tipos de Variaveis e como são usadas Dim a As Boolean Dim a As Byte Dim a As Currency Dim a As Double Dim a As Integer Dim a As Long Dim a As New () Dim a As Object Dim a As Single Dim a As String Dim a As Variant

Bom pessoal Achei a solução Pra quem tiver esse problema aqui vai a solução podemos usar a função Split valor = "eae pessoal tudo bem?" STRNomes = valor vetorNomes = split(STRNomes," ") Dizemos a função q ela dividira os caracteres a cada " " Cada "espaço" sera divido como um conjunto vetorNomes(0) - "eae" vetorNomes(1) - "pessoal" vetorNomes(2) - "tudo" vetorNomes(3) - "bem"

Bom pessoal estou com uma duvida Não acho q seja dificil de ser resolvida porem n consegui ^^ A duvida é a seguinte criei as variavel Dim texto as String Dim valor As String aqui defino os valores valor = "16" texto = "eae" agora tenho q enviar ao servidor Winsock1.SendData valor & texto agora o servidor tem q receber os arquivos Dim pacote As String Winsock1.GetData pacote Text1.Text = pacote pronto Agora o servidor recebeu os arquivos Porém os arquivos chegaram assim na text [16eae] Ai é onde se encaixa minha duvida Como faço pra separar esse valores quero separar o valor "16" para a text2.text e separar o valor "eae" para a Text3.text se alguém poder me auxiliar ficarei muito Grato

Kara sua pergunta ficou meio vago Mais esse erro esta acontecendo por q esse comando n existe você teria q definir o que isso significa

Não é mais preciso já resolvi esse problema Pra galera que tiver essa duvida aqui vai a dica Use o MEDIA FIRE muito bom !!

Po até desanimei ^^ Tava usando as skins certinho nos meus programas ai depois de alguns dias fica aparecendo uma mensagem "Actskin4.ocx Trial Version" toda vez que abro o programa ninguém tem a versão full dela ? ou algum metodo de crackear? Bom pessoal já resolvi Se alguém passar por isso aqui esta a OCX crackeada http://www.megaupload.com/pt/?d=8UP31LD2

Acho q o unico modo seria Como fazer o Vb6 baixar arquivos do 4shared se possivel sem aquele negocio de tempo ...^^

Bom pessoal estou aprendendo criar aplicações em rede e preciso montar um banco onde ficaram os arquivos então pensei em varias opções como: criar um servidor FTP no meu pc usar o 4 Shared para postar meus arquivos usar o Megaupload para postar os arquivos usar o DivShare ... e mais um milhão ^^ porem a melhor opção dai foi usar o 4shared mesmo porém eu criei um programinha simples que seria um instalador ele só tem a função de baixar os arquivos para as pastas determinadas e ele iria baixar as ocx , dlls, ... necessárias para rodar meu programinha Postei no 4shared certinho e estava usando o inet para fazer o download só que a URL do download fica mudando toda vez ai n soube como baixar pensei em usar o WebBrowser para fazer os downloads até deu certo porém ele ficava abrindo varias coisas pra baixar exemplo : Orbit , Gerenciador de downloads da internet explorer Não sei mais o que fazer para resolver Se alguém poder me ajudar ficarei muito grato!!

Vou tentar falar com o Administrador pra te banir Seu Troll do inferno

Po man vlw mesmo você é muito gente boa Sempre posso contar com vc Feliz Natal manin ai The Kill eu disse que tinha pegado um projeto pronto mais foi só pra estudar mesmo ^^ Feliz Natal man

vou te mandar o projeto acho melhor ok? Ai você podera ver minha duvida Download? Ve se você consegue corrigir o erro

Kara deu tudo certinho aqui até a hora de enviar a mensagem Cai na mesma duvida como eu enviaria por winsock ? dim pacotes As String pacote = Parametros_RTB Text1.Text, Cor, RichTextBox1, Apelido Winsock1.SendData pacote Tentei de um bilhão de jeitos mais n consegui nada acontece um erro na seguinte palavra = Parametros_RTB Text1.Text, Cor, RichTextBox1, Apelido Copile Error: Expected: end of statement

Po kara vlw mesmo Ficou perfeito Agora vou dar uma estudada nele

Bom pessoal Estou criando um chat e gostaria que quando o servidor enviasse uma mensagem ao cliente essa mensagem chegasse de uma cor diferente de preto e o cliente enviasse para o servidor essa mensagen chegasse de uma cor diferente da do servidor estou usando o Winsock para enviar as mensagens Muitos me disseram para usar o Componente RichTextbox porem n conseguir usar lo com esse objetvo Não sei mais o q fazer se alguém poder me ajudar ficarei muito grato

já Resolvi kara Eu descobri o erro isso estava ocorrendo por q eu estava usando uma Textbox e não uma Text ai estava ocorrendo esse problema vlw pela ajuda mano agora se poder me ajudar com o richtextbox com as mensagens coloridas agradeço muito

Kara n deu certo continuou com o mesmo erro o erro ocorre nesta linha Private Sub Textbox5_KeyPress(KeyAscii As Integer) o codigo esta assim Private Sub Textbox5_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 CommandButton1.SetFocus SendKeys ("{ENTER}") End Select End Sub Te add no MSN quando se costuma entrar?

Ola, tive um problema assim tambem a pouco tempo e resolvi com a ajuda de um amigo isso depende muito você quer q o usuario escolha se o programa sera iniciado com o sistema ou você quer forçar o programa a ser iniciado com o sistema Independente disso você pode usar o codigo seguinte para iniciar com o sistema Dim Reg As Object Set Reg = CreateObject("wscript.shell") Reg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & "Desktop", App.Path & "\" & App.EXEName & ".exe" Set Reg = Nothing Caso você queira q o seu programa pare de iniciar com o sistema basta usar isso On Error Resume Next Dim Reg As Object Set Reg = CreateObject("wscript.shell") Reg.RegDelete "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\Desktop" Set Reg = Nothing Não sei como vai usar o codigo Aqui vão algumas dicas Pode colocar o codigo para iniciar com o windows dentro do Form_Load sendo assim quando o usuario abrir o programa ele se auto iniciara com o sistema toda vez ou pode usar de um modo mais formal (Recomendado) Com 2 OptionsButtons assim quando o usuario marcar algum e confirmar com algum Button aconteça o codigo programado Aqui segue o link da Demo que eu criei caso ocorra alguma duvida http://www.4shared.com/rar/QGVS8Y1F/lol.html

ai kara no meu caso o codigo q você passou ficou assim Private Sub TextBox5_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 CommandButton1_Click End Select End Sub porem quando eu vou compilar da erro nessa linha Private Sub TextBox5_KeyPress(KeyAscii As Integer) e diz assim: Procedure declaration does not match description of event or procedure having the same name Tradução: Declaração do procedimento não corresponde à descrição do evento ou procedimento com o mesmo nome Não sei o que fazer mais notei q o erro é somente nessa parte "(KeyAscii As Integer)" quando eu substituo por (KeyAscii As MSForms.ReturnInteger) n da erro porém n cumpri n da certo n tenho mais ideia do que fazer

Bom pessoal peguei um chat como exemplo já pronto e fui modificando , e quando fui testar não deu muito certo já tentei corrigir mais n consegui e agora peço ajuda de vocês o projeto esta aqui se alguém conseguir deixar funcionando Ficarei muito grato Download >>