Graymalkin

Acho que a API que menciono em meu último post do tópico http://scriptbrasil.com.br/forum/index.php?showtopic=44656, pode ser usada para isso. Dê uma olhada a respeito. Abraços, Graymalkin

O tamanho da linha vai ser a largura do Memo. Se você usar uma fonte onde os todos os caracteres tem um tamanho fixo (como a Courier New) poderá calcular a quantidade de caracteres que pode colocar na linha. Caso contrário, terá que usar uma API (GetTextExtentPoint32) que calcula, em pixels, o tamanho de cada caracter (ou de uma string) e daí completar com espaços para tornar as linhas uniformes (essa segunda opção pode dar um certo trabalhinho, e nunca usei essa API no Delphi [só no VB]). Abraços, Graymalkin

Para gravar você pode tanto usar o modo Output quanto o próprio modo Binary (mas eu recomendo o primeiro e gravando tudo de uma vez só). Seria algo como: Dim conteúdo As String Dim i As Long For Y = 0 To 200 For X = 0 To 20 For Z = 0 To 13 conteúdo = conteúdo & banco(Y, X, Z) Next Z Next X Next Y n = FreeFile() Open caminho2 For Output As #n ? #n, conteúdo Close #n E, creio que isso já responde a segunda pergunta também. Abraços, Graymalkin

Como não sei praticamente nada de PHP, fica meio difícil de ajudar desse lado. Todavia, você consegue fazer uma função para criptografar/descriptografar em PHP? Se conseguir, dê um exemplo que eu tento fazê-la funcionar da mesma forma no VB (ou seja, ser possível criptografar no VB e descriptografar no PHP e vice-versa). Ok? Abraços, Graymalkin

Sim, se você pressionar F2 e fizer a busca pelo nome da função. Na parte inferior da tela é mostrada uma pequena descrição do que ela faz e pelos tipos dos parâmetros e do retorno você pode saber onde vai o quê e o quê é retornado. Outra possibilidade é baixar o help do VB5 disponível na seção Arquivos da página: http://br.groups.yahoo.com/group/vbj. Nele você encontrará exemplos também. Entretanto, isso não é o que se considera "floodar", já que não existe nada de inútil em não saber algo e perguntar a respeito. Abraços, Graymalkin

Asc() retorna o código ASCII/ANSI de um caracter qualquer, exemplo: msgbox asc("a") O código acima mostrará o valor 97. Se você fizer msgbox chr(97), terá o resultado inverso, ou seja, a letra "a". Já Mid() retorna uma substring de uma string, ou seja, um pedaço de uma string, exemplo: msgbox mid("teste", 3, 2) O código acima mostrará "st". Isso porque começa-se pelo *3* caracter e pega-se *2* caracteres a partir dele. Abraços, Graymalkin

Você não liga. O Memo tem uma propriedade chamada ScrollBars onde você define se ele terá nenhuma barra (o padrão), só a vertical, só a horizontal, ou ambas. Abraços, Graymalkin

Não existem funções para criptografar no VB. O que você pode fazer é implementar uma (aqui no fórum você encontrará alguma) ou utilizar bibliotecas criadas para isso. Abraços, Graymalkin

De fato, é exatamente o que o iSoron falou. Veja como esse aqui lê mais rápido: Dim banco(200, 20, 13) As String * 1 Dim i As Long n = FreeFile() Open caminho For Binary As #n conteúdo = Input(LOF(n), n) Close #n i = 1 For Y = 0 To 200 For X = 0 To 20 For Z = 0 To 13 banco(Y, X, Z) = Mid(conteúdo, i, 1) i = i + 1 Next Z Next X Next Y Nesse caso, lê-se o arquivo inteiro para a memória e depois divide-se o mesmo para a matriz. Abraços, Graymalkin

Ah tá. Quando você disse "colocar os valores do select em variáveis" eu não peguei o espírito da coisa (ou seja, que você queria simplesmente *obter os valores dos campos*). Em todo caso, vale dizer que ao invés de... USER = rs.Fields(0).Value ... você também pode usar: USER = rs.Fields("user").Value Ou seja, especificando o nome do campo. Eu acho que fica mais prático e simples com o nome do campo do que com seu índice. Abraços, Graymalkin

Simplesmente porque fizeram com que a ListBox tivesse esse efeito (ou melhor, fizeram com que a ListView tivesse o efeito de deixar cinza quando o foco fosse perdido). Abraços, Graymalkin

Bom, o que você precisa é ordenar a matriz pelo SG, não? Bom, existe um tópico que trata sobre isso: http://scriptbrasil.com.br/forum/index.php?showtopic=15716 Apesar de estar em C, dá pra pegar pelo menos a teoria. Abraços, Graymalkin

O RichEdit salva seus arquivos no formato RTF (você pode abrir esse formato no WordPad e no Word, por exemplo) e não como textos puros. Para salvar como texto puro você pode utilizar as funções/rotinas para gravação de arquivos do Delphi (AssignFile, ReWrite, Reset, WriteLn, etc.) e gravar o texto da RichText disponível na propriedade Text da mesma. Outra opção é utilizar um Memo ao invés da RichTextBox (assim você pode usar o método para salvar (SaveToFile) naturalmente). Abraços, Graymalkin

Altere diretamente pela propriedade Text do mesmo. Exemplo: memo2.text := memo2.text + IntToStr(2) + ', ' + IntToStr(3); Sacou? Abraços, Graymalkin

Não sei bem o que você quer dizer por variáveis, mas não seria algo como... rs.open "SELECT Count(*) AS totalregistros FROM tabela;", cn, ... total = rs.fields("totalregistros").value msgbox total ... ? Note que a função Count() retorna a quantidade de registros, que é armazenada em uma "variável" (que também pode ser chamada de "campo" (field) ou "alias"). Depois, pode-se obter essa "variável" como se fosse um campo comum do recordset. Seria isso? Se não for, dê um exemplo mais claro do que você precisa. Abraços, Graymalkin

Não, não tem nada em relação a isso. Ela só fica azul quando tem o foco, caso contrário fica cinza (mas não deixa de *mostrar* a seleção, o que é o importante). Abraços, Graymalkin

Ah, agora sim ("ListView"). Basta mudar a propriedade HideSelection para False em ambas. Abraços, Graymalkin

Para isso eu acho que o ideal é utiliza a FlexGrid ou a Hierarchical FlexGrid. Abraços, Graymalkin

Na verdade essa linha 5 a que ele se refere não é a mesma quinta linha que você vê quando está no VB. Mas, faça o seguinte, abra o arquivo do form (o arquivo .frm) no Bloco de Notas e remova essa linha. Daí, salve e tente abrir novamente pelo VB. Abraços, Graymalkin

Experimente fazer: select sum(pag_valor), inicio_data, fim_data from semanas, pagamentos where inicio_data <= pag_data <= fim_data group by pag_data, inicio_data, fim_data E veja se dá certo (não testei aqui). Abraços, Graymalkin

Bom, acho que você deveria ter primeiro tentado o mais difícil: como obter um item selecionado de uma janela qualquer (independente do cursor estar sobre ele ou não)? Pelo que pude ver, todas as janelas do Explorer (e inclusive o desktop) se utilizam de uma ListView para mostrar os arquivos e pastas (você pode conferir isso utilizando o FWW). Portanto, a questão é obter o item selecionado de uma ListView que está em outra janela. Isso com certeza vai envolver algumas APIs e você pode dar uma olhada no artigo (que apresenta uma situação semelhante) http://vbnet.mvps.org/index.html?code/comc...getnextitem.htm para servir como base. Abraços, Graymalkin

Uma SQL simples para se fazer isso é: rs.open "SELECT * FROM tabela WHERE campo='" & caixadetexto.text & "'", cn, ... Onde "rs" é um ADODB.Recordset e a "..." é para que você defina as propriedades de abertura da tabela (elas aparecem automaticamente, basta escolher). Após fazer isso, você terá um ADODB.Recordset contendo o(s) registro(s) selecionado(s). Se você olhar a propriedade Eof do mesmo e ela for True é porque o recordset está vazio (portanto a seleção não retornou nada e tal registro não existe). Abraços, Graymalkin

Simplesmente porque você não manda que ele vá para o próximo registro com... conm.MoveNext ... dentro do loop. Se você não fizer isso, eof nunca será alcançado e o código será executado indefinidamente. Abraços, Graymalkin

Veja como está a propriedade Instancing desse módulo de classe. Se estiver Private, troque-o para MultiUse ou GlobalMultiUse. Abraços, Graymalkin

Registre a OCX com o aplicativo regsvr32.exe que fica na pasta Windows\System. Abraços, Graymalkin