Graymalkin

O Visual Basic 6 é um produto comercial (portanto você não irá encontrá-lo disponível para baixar - a não ser por meios ilícitos) e que já está fora de linha. Todavia, no site da Microsoft você encontrará uma versão gratuita do novo Visual Basic 9 (VB 2008 Express). Abraços, Graymalkin

A questão é que o caboclo pode *não* ter um UserForm no projeto (como eu, que espalho botões pela própria planilha... :)). Abraços, Graymalkin

Eu também queria saber isso. Se você achar algo, por favor, me dê um toque. :) opa graymalkin. levou dois anos mas agora descobri que tem jeito sim: http://scriptbrasil.com.br/forum/index.php?showtopic=110696 apesar de q (uns posts pra cima) eu já tinha te passado o link do projeto (q hj não funciona mais), não sei se você olhou la e conseguiu fazer alguma coisa, mas eu tinha baixado mas não tinha conseguido utilizar. ai esses dias achei o projeto aqui em casa e vi q era até facil de entender, apesar de ser muito dificil de utilizar. ai fiz um tutorial pra isso no link acima. Legal seu tutorial. Dei uma lida rápida, mas depois vou fazer o teste. Pena que hoje em dia quase não uso mais o VB6 (.NET rulez!!! :)). Abraços, Graymalkin

Claro, basta ler do arquivo e fazer: d[chave] = valor Onde "d" é o dicionário, "chave" é a chave do elemento ("primeiro", "segundo" e "terceiro") e "valor" é o valor do elemento ("janeiro", "fevereiro" e "março"). Abraços, Graymalkin

Não, a partir da própria Microsoft não tem nada disso (nem framework, nem VS). Existe sim o Projeto Mono, criado pela Novell, que visa implementar a .NET Framework no Linux, permitindo assim que os aplicativos voltados para esta plataforma rodem neste sistema operacional. E para o VS você pode dar uma olhada no MonoDevelop e no SharpDevelop. Abraços, Graymalkin

O que você quer pode ser feito assim: Sub T() Dim c As Range Dim j As Range For Each c In Range("B:B").Cells Set j = Range("A:A").Find(c.Value) If Not j Is Nothing Then j.Delete xlUp End If If c.Value = "" Then Exit For Next c End Sub Cole isso em no editor do VBA (ALT+F11) na planilha desejada (Plan1, provavelmente) e execute pressionando F5 com o cursor dentro da rotina. Abraços, Graymalkin

O que você quer dizer por "dicionário dinâmico"? Abraços, Graymalkin

A primeira você só vai usar quando sua instrução SQL retornar um recordset (como num SELECT). Já a segunda você vai usar quando não tiver retorno algum (como em um UPDATE ou DELETE, por exemplo). Abraços, Graymalkin

Mais fácil seria você, na inicialização do programa, abrir uma caixa de seleção de arquivo (como o Abrir do Word) para o caboclo escolher o banco de dados. Após isso, você gravaria o caminho no registro usando SaveSetting. E usando GetSetting() você recupera essa informação. Por exemplo, coloque o seguinte no Load do Form: caminho = GetSetting("SeuPrograma", "BD", "Caminho", "") If caminho = "" Then CommonDialog1.Filter = "Banco de Dados|*.mdb" CommonDialog1.ShowOpen If CommonDialog1.FileName <> "" Then caminho = CommonDialog1.FileName SaveSetting "SeuPrograma", "BD", "Caminho", caminho End If End If 'Aqui você usa "caminho" para abrir o BD Coloque um CommonDialog1 no form (se ele não estiver na caixa de ferramentar vá em Components do menu project e marque-o lá). Certo? ;) Graymalkin

Você pode usar o evento CellFormating da DataGridView para tal fim. Bastaria colocar nele um código tipo: If e.ColumnIndex = 3 Then 'Se for a 4ª coluna If e.Value = "M" Then e.Value = "Masculino" Else e.Value = "Feminino" End If End If Certo? ;) Graymalkin

VBA é a biblioteca onde habitam funções comuns como Left, Right, Mid, etc. Normalmente você não precisa explicitar isso, mas tem alguma biblioteca errônea aí causando isso. Agora o que é o CRMControl1? Abraços, Graymalkin

O que você está usando? A TabStrip ou a SSTab? Se for a primeira, então tente: TabStrip1.Tabs(2).Selected = True 'Índice começa de 1, então estamos selecionando a segunda aba Já se for a segunda: SSTab1.Tab = 1 'Índice começa de 0, então estamos selecionando a segunda aba Certo? ;) Graymalkin

Bom, pelo que eu encontrei no Google, só via API. Neste link aqui tem um exemplo para Access: http://www.techonthenet.com/access/modules/hide_close.php O exemplo do link adaptado para o Excel: Private Const GWL_EXSTYLE = (-20) Private Const GWL_STYLE = (-16) Private Const WS_MAXIMIZEBOX = &H10000 Private Const WS_MINIMIZEBOX = &H20000 Private Const WS_SYSMENU = &H80000 Private Const HWND_TOP = 0 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Const SWP_FRAMECHANGED = &H20 Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED Private Declare Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long, ByVal dwNewLong As Long) _ As Long Private Declare Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowPos Lib "user32" _ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long Sub HideExcelCloseButton() Dim lngStyle As Long lngStyle = GetWindowLong(Application.hwnd, GWL_STYLE) lngStyle = lngStyle And Not WS_SYSMENU Call SetWindowLong(Application.hwnd, GWL_STYLE, lngStyle) Call SetWindowPos(Application.hwnd, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME) End Sub Basta executar a rotina HideExcelButton para sumir com os botões da barra. Abraços, Graymalkin

Já experimentou definir o terceiro parâmetro (ReadOnly) de Workbooks.Open para True? Workbooks.Open "arquivo.xls", , True Ou: Workbooks.Open Filename:="arquivo.xls", ReadOnly:=True Não testei aqui, mas veja se dá certo. Abraços, Graymalkin

Coloque um caracter separador entre os dados para que o Excel identifique as colunas. Experimente usar o TAB (9 da tabela ASCII/ANSI) ou o ponto-e-vírgula (;). Abraços, Graymalkin

Como você faz? Posta o código que fica melhor para entender. Abraços, Graymalkin

Parece já estar resolvido, não? Pelo menos aqui para mim não apareceu erro nenhum (exceto a falta de acentuação e cedilha nos textos). Abraços, Graymalkin

Tem algum caracter separador? Se tiver, use a função Split() para quebrar a string para um array ou o método Replace() para substituir este caracter por uma quebra de linha. Vai depender do que você quer fazer com isso depois. Abraços, Graymalkin

Não tem como. MD5 é um algoritmo de hash unidirecional, ou seja, só encripta. Se a idéia for verificar se a senha digitada está correta, basta você encriptar o que o caboclo escrever e comparar com o que já está encriptado no banco. Abraços, Graymalkin

Defina a propriedade MultiSelect para False, ou seja, para não aceitar mais de um item selecionado OU use o método Clear() da propriedade SelectedItems para limpar a seleção antes de marcar o item. Abraços, Graymalkin

Essa "série de códigos-fonte" não estão no mesmo projeto? Porque se estiverem é só usar a opção Find (CTRL+F) do menu Edit escolhendo "Current Project". Abraços, Graymalkin

Como assim? O que você quer exatamente? Abraços, Graymalkin

Use a propriedade Value. Basta atribuir o índice da aba (que começa em 0). Para selecionar a segunda aba, por exemplo: MultiPage1.Value = 1 E não precisa ser um expert para fazer isso. Eu nunca tinha usado um MultiPage antes (só o equivalente do VB6, mas a utilização acima é diferente) e descobri isso em questão de minutos. A melhor maneira de descobrir tais coisas é experimentar as propriedades e métodos do componente. Abraços, Graymalkin

Exatamente. Bom, então vou trocar o título para referência futura. Abraços, Graymalkin

Você deu uma olhada no help da linguagem? Ou seja, esta função por padrão *só* troca mesmo estes dois e o &amp. Para os demais você pode fazer: entidades = {"&aacute;" : "á", "&acirc;" : "â", "&agrave;" : "à"} f = open('a.txt') try: print saxutils.unescape(f.read(), entidades) finally: f.close() Certo? ;) Graymalkin PS: O que o título do tópico tem a ver com o isso? :huh: