Graymalkin

Sim, entendi. Bem, você pode usar a função Split() para separar uma string em um vetor. Por exemplo: vetor = Split("3,2,4,1,5", ",") Irá resultar em: vetor(0) = "3" vetor(1) = "2" vetor(2) = "4" vetor(3) = "1" vetor(1) = "5" Sacou? Abraços, Graymalkin

Dê uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=14675 Abraços, Graymalkin

Bem vindo Gilson, É possível "esconder" o seu programa da lista de tarefas (que aparece quando o CTRL+ALT+DEL é pressionado). É isso que você está usando? Graymalkin

O jogo é executado em tela cheia (com DirectX, por exemplo)? Se você pressionar ALT+TAB, é possível alternar para fora do jogo? Graymalkin

É, desse jeito fica difícil já que não se tem outros projetos para a realização de uma comparação. Animem-se aí, pessoal! Abraços, Graymalkin

Brother, Se cadastre no fórum e contribua com o crescimento da nossa comunidade, falou? Bom, se entendi bem, você tem algo assim no form2: public sub Rotina() For vcount = 0 To listaanimal.ListCount - 1 If listaanimal.List(vcount) Like txtBusca.Text Then listaanimal.Text = listaanimal.List(vcount) End If Next vcount end sub Para chamar isso pelo form1 basta fazer: form2.Rotina É isso? Graymalkin

Assim: Dim controle As Integer controle = FreeFile() Open "c:\Nome.txt" For Input As controle Text1.Text = Input(Lof(controle), controle) Close controle Abraços, Graymalkin

Onde (em qual propriedade) você digita o que estará escrito na Label? Não é na propriedade Caption? Você pode preenchê-la via código assim: label1.caption = "um teste" Sacou? Abraços, Graymalkin

Você usa o VB5? Não me lembro como era esse Application Setup Wizard (usei muito pouco o VB5). Mas, não tem botão algum do tipo "Add file" ou algo assim? Abraços, Graymalkin

Já tentou as APIs BringWindowToTop ou SetWindowPos? Se não, dê uma olhada nos exemplos disponíveis no API-Guide (http://www.mentalis.org). Abraços, Graymalkin

Essa dúvida já passou por aqui... De qualquer forma, a idéia seria ter uma rotina que faria todas as verificações das checkboxes (ou optionbuttons) e que decidiria o que seria feito OU que todas as ações (antes de serem executadas propriamente) verificassem se a tal checkbox está marcada ou não. Exemplo do primeiro caso: public sub AltOpções() if check1.value = vbchecked then 'faça algo if check2.value = vbchecked then 'faça outro algo if check3.value = vbchecked then 'faça mais outro algo end sub Exemplo do segundo caso: public sub Opção1() if check1.value = vbchecked then 'faça algo endif end sub public sub Opção2() if check2.value = vbchecked then 'faça algo endif end sub public sub Opção3() if check3.value = vbchecked then 'faça algo endif end sub É claro que isso é apenas um exemplo e que, na prática, você deveria pegar os valores através do GetSetting() ao invés de pegar direto das checkboxes. Abraços, Graymalkin

Ok, mas você não queria que quando desse um duplo-clique no nome aparecessem os dados? Seria algo assim (no evento DblClick): idx = list1.listindex txtNome.text = aTexto(idx, 3) Se entendi direito, acho que seria isso aí. E em relação a não-duplicação dos nomes, essa seria a idéia. Abraços, Graymalkin

Você vai ter que percorrer a list toda procurando pelo nome informado (fazendo um for de 0 até ListCount-1). Quando o nome for encontrado você define que a propriedade ListIndex é o valor da variável contadora e sai do for. Sacou? Abraços, Graymalkin

Use uma picturebox para isso. Ela possui os mesmos métodos e propriedades que o objeto Printer (pelo menos no que concerne ao posicionamento e escrita). Abraços, Graymalkin

Ou o objeto Printer. Depende do que você quer fazer exatamente. Graymalkin

Poste aqui a sua tentativa. Talvez fique melhor para ajudarmos-lhe. Você vai ter que percorrer a list toda procurando pelo nome e caso não o encontre, adicionará. Abraços, Graymalkin

Como você está fazendo? Graymalkin

O banco de dados está aberto? A tabela está aberta? Você está usando DAO ou ADO? Por código ou via DataControl? Respondendo estas perguntas fica mais fácil ajudar. Abraços, Graymalkin

Reparei que você não especificou qual a grid e não sei de onde tirei a idéia de que se trata do DataGrid. Pois bem, qual a grid que você está utilizando? Abraços, Graymalkin

Bem, qual a sua dúvida? No post você não a descreveu. E, já parou para pensar que deve haver uma maneira muito mais prática de se fazer isso? Colocando os 30 optionbuttons com o mesmo nome, porém com a propriedade Index variando de 1 até 30, você estará criando um vetor de controles. Dessa maneira, o seu código se resumiria apenas a: For i = 1 To 30 Check1(i).Value = GetSetting(App.EXEName, "opt1", i, 0) Next i Porém, o nome da chave é realmente "ac(i)" e não o valor correspondente? Abraços, Graymalkin

Nada, a não ser que você queira filtrar o resultado. Isso deve funcionar: Data1.RecordSource = "SELECT PrecoCustoUnitario FROM Produtos ORDER BY PrecoCustoUnitario" Porém, sua tabela terá apenas o campo "PrecoCustoUnitario" o que acho que não é o que você quer. Caso afirmativo, faça: Data1.RecordSource = "SELECT * FROM Produtos ORDER BY PrecoCustoUnitario" Abraços, Graymalkin

É isso aí que o Bicicleta falou. Você pode colocar essa SQL na propriedade RecordSource do Data. Quando se fala em "abrir a tabela" não quer dizer propriamente exibi-la por completo na tela. O fato do Data estar conectado a um BD e que a tabela esteja definida representa o "abrir a tabela" (o que também poderia ser feito por código e continuaria sendo representado dessa maneira). Abraços, Graymalkin

Mas, até onde sei, UTF-8 é uma variante de Unicode (que, por sua vez, não é totalmente suportada pelo Win98). Sendo assim pode ser que os caracteres realmente só apareçam no WinXP (que é unicode-compliant). Não me lembro se existe realmente no Win98, mas já tentou habilitar o suporte para diferentes idiomas? Graymalkin

O API-Guide tem vários idiomas, porém são só para o programa em si (as descrições das APIs continuam em inglês mesmo). Todavia, em geral as descrições são curtas e objetivas (até porque as APIs tendem a ser simples e objetivas). Abraços, Graymalkin

Vai uma dica útil? Rnd() retorna um número de ponto flutuante aleatório. Fazendo CInt(Rnd()*10) você retorna um número inteiro aleatório entre 0 e 9. Outra dica? Utilizando a propriedade Index das caixas de texto é possível identificá-las por um número (estando todas com o mesmo nome). Com isso aí fica fácil fazer o que você quer. Abraços, Graymalkin