MRMB

Densyy, Penso que você queira a descrição da versão do sistema. Segue abaixo o código. Option Explicit Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long Private Declare Function IsWow64Process Lib "kernel32" (ByVal hProc As Long, bWow64Process As Boolean) As Long Public Function Is64bit() As Boolean Dim handle As Long, bolFunc As Boolean ' Inicialmente assume que é 64 bits bolFunc = False ' Verifica se existe processo "IsWow64Process" ou "kernel32" handle = GetProcAddress(GetModuleHandle("kernel32"), "IsWow64Process") If handle > 0 Then ' Se encontrou processo "IsWow64Process" ' Executa a função para confirmar se é 64 bits. IsWow64Process GetCurrentProcess(), bolFunc End If ' Retorno. Is64bit = bolFunc End Function Private Function WinVer() As String Const MICROSOFT = "Microsoft " ' Não retire o espaço no final da string. ' Cria uma função e atribui a string da descrição da versão. Dim VerSplit() As String Dim reg As Object Set reg = CreateObject("WScript.Shell") ' Carrega a informação da descrição do Sistema na string de retorno. WinVer = reg.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName") VerSplit() = Split(WinVer, MICROSOFT) Set reg = Nothing End Function Private Sub Form_Load() MsgBox WinVer & " " & IIf(Is64bit, "64", "32") & " bits" End Sub

Gleydson_10, Não seria "Boton2007.ocx" ? Abaixo link para download. http://www.4shared.com/file/X7FPfqb8/Boton2007.html

deux, Criar a instalação de um programa não é nada fácil as vezes. Possivelmente, o erro que ocorre é por você esqueceu alguma dependência (DLL, OCX, Pacote) que as vezes nem lembramos que é necessária. Para resolver seu problema de forma bem prática você poderia instalar a última versão InstallShield (versão de teste e gratuita). Após instalar você poderá utilizar uma funcionalidade chamada "Import Visual Basic Project" que em suma irá ler seu projeto VB6 e depois irá executar seu aplicativo (Acesse todas as telas). Após finalizar a execução o InstallShield irá gerar uma lista de dependências do seu projeto com as DLL's, OCX's e principalmente lista os pacotes que precisa ir junto para funcionar. Com essa lista, basta você verificar o que ainda não esta na sua instalação e adicionar. Sucesso!

Densyy, Segue abaixo um link contendo uma explicação sobre o comando FOR. Loops - VB6

Pessoal, Alguém poderia me ajudar a utilizar a opção de skin do DevExpress em C#.

Edita o título e coloca no início: [Resolvido] T+

Gustavo Jorge, Da uma olhada no link abaixo... Aqui no fórum mesmo. Também tive dificuldade para envio de e-mail. http://scriptbrasil.com.br/forum/index.php?showtopic=151691 Utilizei Microsoft CDO for Windows 2000 Library e esta funcionando perfeitamente. Contudo, no tópido a outras opções para enviar e-mail. T+ fl w

Densyy, Supondo que tenho vários form na minha aplicação e sendo esses formulários cada um uma DLL. Em relação ao componente obrigatóriamente teria de colocar um componente em cada formulário?

Densyy, Então testei aqui. O que ficou melhor foi "AzulSuave", foi único que alterou corretamente todos componentes da tela. Tem alguns que você comentou que não tenho. Então não consegui testar. A maioria dos skins não altera corretamente os frames especificamente na parte do caption do frame. Somente o skin "AzulSuave" se saiu bem nessa situação. Não tenho os skins abaixo se puder desponibilizar pra download testo eles também. Alien.skn Carmin.skn Dinamo.skn

Densyy, Muito bom... fiz um teste aqui e funcionou tudo!

Densyy, Essa função Split é fina! Utilizo caractere de separação nessa situação irrei alterar para usar essa função split parece bem mais prático.

Densyy, Fino o código! Mas em relação os arquivos de Skin você criou? Comprou?

Pessoal, Consegui resolver o problema. Segue abaixo o código que utilizei caso alguém venha a precisar. Option Explicit Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal csidl As Long, ByVal fCreate As Long) As Long Private Const CSIDL_HISTORY As Long = &H22 Private Const CSIDL_COKIES As Long = &H21 Private Const CSIDL_INTERNET_FILES As Long = &H20 Private Sub Command_Click() Dim sPath As String sPath = Space(260) SHGetSpecialFolderPath Me.hwnd, sPath, CSIDL_INTERNET_FILES, False MsgBox sPath End Sub

Pessoal, Estou precisando recuperar o diretório do usuário de arquivos temporários (Cache do Internet Explorer). Em C#, VB.net e bem prático obter essa informação. Contudo, estou tendo dificuldade para programar um código em VB6. Desde já agradeço quem puder ajudar.

Densyy, Você poderia postar um código de exemplo da utilização desse componente?

Densyy, Se for possível registrar a DLL/OCX em uma pasta de sua escolha e sempre melhor! Vou passar novamente os links do CPAU.exe Download do Utilitário CPAU.exe 4Schared Sobre utilitário http://www.joeware.net/freetools/tools/cpau/ Utilização - Parâmetros http://www.joeware.net/freetools/tools/cpau/usage.htm Você irá observar que faz tempo que não tem atualização do CPAU. Contudo, funciona para Windows 2000, XP, Server, Vista e 7 32 e 64 bits. Detalhe de utilizar o CPAU.exe é você tem um usuário/senha com direito de administrador no computador/domínio que irá utilizar sua aplicação.

Densyy, É possível registrar OCX e DLL não sendo administrador. Contudo, é trabalhoso. Primeiramente para facilitar seria interessante ter todas as OCX e DLL em uma pasta que não seja System. Porém, às vezes utilizamos algumas OCXs e DLLs que só funcionam em determinada pasta. Utilizo uma ferramenta de terceiro http://www.novell.com/coolsolutions/tip/15659.html para realizar o registro com privilégios de administrador no processo de atualização automática. Funciona muito bem! Dê uma olhada talvez essa ferramenta possa ser útil pra você.

Leonardofa, O erro que você comentou não aconteceu aqui. Contudo, observei que seu código esta com erro. Com base no meu entendimento da sua dúvida fiz o código abaixo: Sub Teste() Dim X As Integer Dim Repeticao As Integer Dim Linha As Integer X = 1 Repeticao = 0 Linha = 1 Do While X < 201 Do Sheets("Plan3").Cells(Linha, 2) = Sheets("Plan1").Cells(X, 2) Repeticao = Repeticao + 1 Linha = Linha + 1 Loop While Repeticao < 28 X = X + 1 Repeticao = 0 Loop End Sub Download do macro Teste Macro

Matheus-vb6, Tenta fazer da seguinte maneira. Set rsdados2 = New ADODB.Recordset rsdados2.Open "select comanda,data,hora from pedidos WHERE telefone = '" & txtTelefone.Text & "' group by comanda,data,hora", cn Do While rsdados2.EOF = False cmbPedidos.AddItem rsdados2("Comanda") & " - " & rsdados2("Data") & " - " & rsdados2("hora") rsdados2.MoveNext Loop

LordLuc, Talvez possa lhe ajudar. Situação Imagine que você tenha a "Aplicacao_1.exe" e "Aplicacao_2.exe". Aplicação 2 só poderá ser executada pela aplicação 1 ou por linha de comando. Poderia ser feito da seguinte forma. Na "Aplicacao_2.exe" programe no formulário "inicial" o evento "form_load" da seguinte forma: Private Sub Form_Load() ' Validação para somente executar o "Aplicacao_2.exe" quando for chamado pela "Aplicacao_1.exe" ou linha de comando. If not Command = "Aplicacao1" Then Unload Me Exit Sub End If End Sub No executar do Windows para chamar a aplicação dois será necessário colocar o parâmetro "Aplicacao1" na linha de comando conforme é mostrado abaixo: C:\Aplicacao_2.exe Aplicacao1 Se clicar direto no "exe" Aplicacao_2.exe não irá abrir. Para chamar a aplicação "Aplicacao_2.exe" pelo "Aplicacao_1.exe" será necessário passar o parâmetro "Aplicacao1" na utilização do "ShellExecute".

Pessoal, Estou precisando exibir um formulário do tipo popup ao abrir o programa do lado direito. Alguém já fez isso ou tem alguma dica de como programar isso? Abaixo imagem tentando explicar melhor o que preciso. Desde já agradeço.

K-du, Utilizei como base esse artigo: Multiple Form Splash Screen Alterei para atender a sua necessidade. Option Explicit Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Private Sub tmrSplash_Timer() Label2.Caption = "lendo banco de dados..." Sleep 2000 ' após 2 sec DoEvents Label2.Caption = "carregando formulários..." Sleep 2000 DoEvents Label2.Caption = "carregando padrões..." Sleep 2000 DoEvents Label2.Caption = "iniciando aplicação ..." Sleep 2000 DoEvents Label2.Caption = "concluido " Sleep 2000 DoEvents tmrSplash.Enabled = False frmMain.Show Unload Me End Sub

frata, No VB6 existe alguns processos que pode retornar esse erro. Deste a adicionar um valor maior a uma variável do tipo inteiro ao tentar atribuir um valor a uma posição de array ou coleção. Abaixo link de um erro de overflow "típico". VB6 overflow error with large integers Verifique se na sua aplicação não ocorre essa situação.

Alex Avancini, Você poderia colocar em um método para as "perguntas" e chamar esse método e validar o retorno. Caso retorno não seja válido você executar o método de perguntas novamente. Segue abaixo um exemplo. Option Explicit Private Sub Form_Load() Dim Retorno As Variant Retorno = FazPerguntas If Not Val(Retorno) > 0 Then While Val(Retorno) = 0 Retorno = FazPerguntas Wend End If End Sub Private Function FazPerguntas() As Variant Dim pergunta1 As Variant pergunta1 = (InputBox("Qual a sua idade?", "informe sua idade ao sistema")) FazPerguntas = Val(pergunta1) End Function

wet, Adicione a sua string de conexão o parâmetro "Persist Security Info=True;" strCnn = "Provider=SQLOLEDB;" & _ "Data Source=" & objLgPub.Servidor & ";" & _ "Initial Catalog=" & dbName & ";" & _ "User ID=" & objLgPub.UsuarioSQL & ";" & _ "PassWord=" & objLgPub.SenhaSQL & ";" & _ "Persist Security Info=True;" Com isso é para funcionar no XP e no Windows 7 32 e 64 bits.