Graymalkin

Assim: vetor = Array() Abraços, Graymalkin

O que seriam "os txt"? As caixas de texto? TEdits? Se for, você pode fazer o seguinte (no evento OnKeyPress): if key='.' then key:=','; Abraços, Graymalkin

Bem notado. Graymalkin

Se você quiser um bom guia sobre APIs, recomendo o API-Guide (http://www.mentalis.org). Nele você terá a descrição e exemplos de utilização de cada uma das APIs listadas. Abraços, Graymalkin

Bom, o que você quer não é algo que se faça com um estalar de dedos. Pelo menos você conhece outra linguagem (sem ser o VB.NET)? Ou está iniciando na programação agora? Abraços, Graymalkin

Depende do que existe na linha que abre o vídeo. Existe a palavra "wait" nela? Graymalkin

Sim, existe. Se "split" é dividir, basta procurar por juntar que é "join". Exemplo: vetor = Array("Script", "Brasil") MsgBox Join(vetor, " ") Abraços, Graymalkin

Supondo que você já abriu o banco (Database) e a tabela (Recordset), bastaria fazer: set dbgrid1.datasource = tabela Por que você não postou isso no fórum de VB? Abraços, Graymalkin

Com as funções Int() e CInt(). Abraços, Graymalkin

Você pode colocar consultas SQL (queries) ao abrir o recordset (com a função OpenRecordset()) ao invés de especificar somente o nome da tabela. Abraços, Graymalkin

Não sei como fazer isso no VB e nem no Fox Pro, mas em Python seria: k = unicode('ã', 'windows-1252') print k.encode('850') Abraços, Graymalkin

Faça referência ao Microsoft Excel x.0 Object Library (menu Project->References...). Daí, experimente o seguinte código: Dim x As New Excel.Application x.Workbooks.Add x.Range("B3").Value = "teste" x.Visible = True Depois de ver o resultado, é só brincar com os métodos e propriedades disponíveis no objeto x. Abraços, Graymalkin

Como estás tentando fazer isso? O "Add" não se faz exatamente na grid, mas sim no Recordset ligado à mesma. Abraços, Graymalkin

Ambos os arquivos (DLL e OCX) do Smart Menu XP devem ficar na pasta Windows\System ou Windows\System32. Além disso, é necessário registrá-las (com o regsvr32). Um exemplo de como criar as opções: With SmartMenuXP1.MenuItems .Add 0, "mnArquivo", smiNone, "&Arquivo" .Add "mnArquivo", "opNovo", smiNone, "&Novo..." .Add "mnArquivo", "opSair", smiNone, "&Sair..." .Add 0, "mnEditar", smiNone, "&Editar" .Add "mnEditar", "opDesfazer", smiNone, "&Desfazer" .Add "mnEditar", "opCopiar", smiNone, "&Copiar...", , vbCtrlMask, vbKeyC End With Exemplo de como saber qual a opção selecionada (coloque no evento Click do SmartMenuXP1): Select Case SmartMenuXP1.MenuItems.Key(ID) Case "opNovo" 'rotina de novo Case "opSair" Unload Me Case "opDesfazer" 'rotina de desfazer Case "opCopiar" 'rotina de copiar End Select Abraços, Graymalkin

Mais precisamente, o For Each pode iterar (fazer um loop, percorrer) coleções ou vetores, enquanto que o For só itera sobre inteiros. Já o Redim não é um método e sim uma instrução e faz exatamente o que o Decio falou. Abraços, Graymalkin

O que seria isso exatamente? De qualquer maneira, qualquer coisa que seja "remota" pode ser feita com Winsock, por isso dê uma olhada aqui: http://desenvolvedores.net/modules.php?nam...order=0&thold=0 Abraços, Graymalkin

Qual é esse caracter? Veja qual o código dele com asc("caracter"). De qualquer forma, você pode ler o arquivo todo (com a função Input()) e depois separar a string pelo vbCrLf para um vetor. Creio que isso resolveria esse caso. Abraços, Graymalkin

Claro, essa é a idéia principal de módulos. Abraços, Graymalkin

Na ordem, "self" é o próprio objeto. Você conhece alguma coisa sobre OO (Orientação a Objetos)? Se não, dê uma procurada a respeito. Todas as funções que não tem algum retorno, retornam None. Exemplo: def teste(n1, n2): soma = n1+n2 E, se você fizer: print teste(2, 3) Aparecerá None porque a função não está retornando nada. Respondendo a pergunta sobre o return, se a função acima fosse... def teste(n1, n2): soma = n1+n2 return soma ... o resultado do print seria o valor 5, porque este é o valor retornado (return significa retorno). Abraços, Graymalkin

Ainda assim, não haverá um momento em que o aluno entrará e outro em que sairá? Do mesmo jeito que o contador começará quando o aluno entrar e cessará quando o aluno sair pode-se simplesmente usar a hora de entrada e saída. Ou não? Abraços, Graymalkin

Sim, Clipper é um compilador, assim como Pascal e tantos outros que existem. Para utilizá-lo, necessariamente, você não precisa alterar nada no seu config.sys ou no seu autoexec.bat. Todavia, recomendo incluir as seguintes linhas no final do seu autoexec.bat, a fim de não ter que ficar digitando os caminhos toda hora: set path=%path%;c:\clip53\bin set lib=c:\clip53\lib set include=c:\clip53\include Supondo que "clip53" é a pasta do Clipper. Abraços, Graymalkin

Você vai ter que pegar um campo que identifique aquele registro como único (um código de cliente, por exemplo) que está na mesma linha da seleção atual e procurar no Data. Para pegar o campo, dê uma olhada na propriedade TextMatrix. Caso não consiga, retorne a sua tentativa para cá. Abraços, Graymalkin AMIGÃO, você PODERIA ME DAR UM EXEMPLO DE COMO UTILIZAR ESSE ISSO? Você pelo menos tentou fazer? Supondo que a primeira coluna da grade seja o código, bastaria fazer algo do tipo: código = grid.TextMatrix(grid.Row, 1) data1.recordset.findfirst "codigo=" & código Observe que isso acima é só um exemplo e você é que deverá escolher o campo em que a busca deve ser feita. Abraços, Graymalkin

Muito bom artigo. Só uma dúvida (em relação ao palavreado): "ligações futuras" seriam o que chamamos de late-bound? Obrigado e abraços, Graymalkin

O tempo seria "contado" realmente ou bastaria de ter os momentos (horas) de início e fim? Abraços, Graymalkin

Verificar onde? Já experimentou usar um simples If: if usuário=usuário_correto AND senha=senha_correta then 'abre o form else msgbox "Nome ou senha inválidos!" endif É claro que isso é um exemplo abstrato e não estou considerando de onde vêm ambas as informações (nome e senha do usuário, digitadas e corretas). Abraços, Graymalkin