kuroi

ele ta dando erro ou só não muda o fundo?? tipo, poe um breakpoint (F9) no primeiro for e ai vai passando por eles no F8 e vai comparando os valores q passam nos ifs. veja em q if ele devia entrar e não entra e etc.

não. bem q você poderia procurar não?? tem um botao pesquisar ali em cima, clica nele, digita "Shell" e aperta Enter. mas tipo esse codigo q eu passei tem q funcionar certinho (é claro, se você substituir o caminho por um q exista de verdade). explica melhor o q você quer fazer e, o principal de tudo, SEMPRE quando algum codigo seu não funcionar, explica COMO ele não funciona. deu algum erro?? se deu um erro, posta a descricao dele pra gente saber qual erro é. se não deu explica o q você queria q acontecesse q não acontece. EDITADO: alem do mais, exemplo melhor q esse q eu passei pra uma funcao tão simples, não existe.

então, tava olhando agora, teve um erro no meu codigo, faltou contatenar aqui, foi mal: filtro = filtro & Iif(filtro <> "", " Or ", "") & " IDENTIFICACAO like '" & ListView1.ListItems(i) & "'" mas, explicando a funcao IIf é meio q um if simplificado. na verdade o q ele faz é o seguinte, o primeiro parametro q você passa é uma expressao. se essa expressao for verdadeira, ele volta o segundo parametro q você passa, senao volta o terceiro. ó, porque tipo assim, você vai fazer a string tipo assim: "IDENTIFICACAO like 'texto1' Or IDENTIFICACAO like 'texto2' Or IDENTIFICACAO like 'texto3'", certo?? ai o q acontece, eu tenho sempre q por um "Or" na frente de cada expressao, menos na primeria. ou seja, com o Iif eu faco o teste, se o filtro não estiver vazio (já escrevi coisa nele, ou seja, não é a primera vez) eu ponho um Or pra juntar com a proxima expressao, senao não coloco o Or.

tipo a funcao ela deve ficar declarada em qualquer canto pra poder ser chamada a qualquer hora. o melhor é colocar no Module já q os modules servem pra isso mesmo, pra declarar funcoes e variaveis publicas. ai pra chamar você faria assim: Text1.Text = MontaHoraS(segundos) onde segundos é o nome da variavel onde os segundos estao sendo somados mtos jeitos, você pode usar uma variavel e setar 0 pra ela quando abrir o form. ai você testa, se tiver 0 você preenche o primeiro e soma mais 1 nessa variavel. se ela tiver com valor 1 você preenche o segundo e soma mais 1. se ela tiver com valor 2 você preenche o tercero e soma mais 1 e assim vai.

entendi. mas você pode gravar com qualquer extensao desse mesmo modo, so q ele vai gravar o texto dentro do arquivo. o esquema é você gravar as informacoes la dentro como texto, e depois abrir como texto e preencher os textboxs. você pode fazer varios tipos de formatacoes no arquivo de modo q fique facil pra ler depois. mas um exemplo é você grava, por exemplo, o Text1 na primeira linha, o Text2 na segunda e etc. ai na hora de abrir você sabe q o Text1 ta na primera linha e etc.

tenta assim: For i = 0 To 21 For g = 1 To 22 If Me.Controls("lbl" & g).Caption = xPiloto(i).nome Then For j = 0 To 10 If xPiloto(i).equipe = xEquipe(j).nome Then Me.Controls("lbl" & g).BackColor = xEquipe(j).Cor1 End If Next End If Next Next[/code]

exemplos tem mtos no forum, faca uma busca. mas basicamente é assim: Shell "C:\Caminho\Programa.exe"

sim, use a funcao ShellExecute. tem exemplos no forum de como usa-las. tipo esse: http://scriptbrasil.com.br/forum/index.php...st&p=439436

tem q ser If Me.Controls("lbl" & g).Caption = xPiloto(i).nome Then

ao projeto ou ao form?? se for ao projeto, clica no menu Project -> Properties (ultima opcao). na aba Application (primera) vai ter la a opcao Icon. se for no form, é so altera a propriedade Icon.

mas não existe o campo cpack_usernr na TABELA1. o problema ta no Group By la do final, acho q o certo seria isso: SELECT TABELA1.cust_email, TABELA1.cust_custnr, TABELA2.cpack_usernr FROM TABELA1 INNER JOIN TABELA2 ON TABELA1.cust_custnr = TABELA2.cpack_usernr AND TABELA2.cpack_canceldate != "0000-00-00" GROUP BY TABELA1.cust_custnr, TABELA2.cpack_usernr

alguns posts acima, já expliquei como faz (q alias, seria igualzinho no ListBox), mas o código deve ser mais o menos assim: Private Sub cmdPrevia_Click() Dim vdescricao As Integer, filtro As String For i = 1 To ListView1.ListItems.Count If ListView1.ListItems(i).Checked = True Then filtro = Iif(filtro <> "", " Or ", "") " IDENTIFICACAO like '" & ListView1.ListItems(i) & "'" End If Next DataSubsistemas.rsCommand1.Filter = filtro DataReport1.Show End Sub[/code]

o commondialog não salva pra você, ele so vai selecionar o caminho. ele vai voltar o caminho e o nome do arquivo na propriedade FileName. na verdade quando você abrir o txt com o comando Open For Output (e não com o CommonDialog), ele já esta criando o arquivo (caso não exista. se existir, ele sobrepoe o arquivo existente), então é so você passar o filename no comando Open. tipo assim: Open CommonDialog1.FileName For Output As #1 Print #1, "AQUI você ESCREVE O CONTEUDO DO TXT" Close #1[/code]

o esquema é você mesmo montar a string baseado no valor. tipo, você divide o numero de segundos por 60 e vai ter o numero de minutos. ai você tira o mod e vai ter os segundos a mais. bom, de exemplo, tenho aqui uma funcao q eu fiz q, passando os segundos por parametro, ele monta a string no formato "HH:MM:SS", se você quiser outro formato, pode adapta-la o fazer otra funcao, mas pode usar a minha de exemplo: Public Function MontaHoraS(Seg As Double) As String Dim Hor As Double, Min As Double Hor = Int(Seg / 3600) Seg = Seg - (Hor * 3600) Min = Int(Seg / 60) Seg = Seg - (Min * 60) MontaHoraS = MontaHoraS & Hor & ":" & _ IIf(Len(CStr(Min)) = 1, "0", "") & Min & ":" & _ IIf(Len(CStr(Seg)) = 1, "0", "") & Seg End Function[/code] não, entendi direito. não é so atribuir o valor, tipo: [code]Text1.Text = var

acho q o q você quer é pela funcao shell, passando o caminho do programa por parametro. ou dependendo, como você não explicou exatamente, pode ser shellexecute, faca uma busca no forum q tem exemplo das duas.

hum... num sei não... tipo você quer a animacao toda né?? porque se num quisesse, ai ficava facil, era so tirar um printscreen.

mas os campos tão com valor nulo mesmo, tipo nulo de verdade, valor em branco, vazio, ou você ta pondo "NULL", tipo escrevendo "NULL" e gravando la?? porque se os valores tão nulos de verdade, é assim q você tem q fazer: Not IsNull({TABELA.REALIZADOS}) e IsNull({TABELA.REALIZADOS})

a ta, antes disso: For i = 1 To 22 Me.Controls("lbl" & 22 - (tempo - 1)).Caption = xPiloto(tempo - 1).nome & " - " & xPiloto(tempo - 1).ai Next[/code] você tem q chamar a funcao q ordena pelo ia. e na verdade, eu esqueci de trocar o tempo pelo i, esse é o certo: [code]For i = 1 To 22 Me.Controls("lbl" & 22 - (i- 1)).Caption = xPiloto(i- 1).nome & " - " & xPiloto(i- 1).ai Next e aqui acho q era pra ser 70, já q são 70 voltas não?? If tempo = 70 Then Timer1.Enabled = False End If[/code]

Exit Do sai do while. mas você tem q abrir com Do While e fechar com Loop. se você abrir com While e fechar com WEnd acho q não funciona.

então, o codigo q eu passei em cima vai fazer exatamente isso, não?? a não ser q você tb queira mudar a chance a cada volta.

ta mas como ficou o codigo q você ta usando?? tipo, declare la essa funcao q eu te passei, e pra chama-la deve ser assim: campo = MontaHora(DateDiff("n", CDate(txtTempo1.Text), CDate(txtTempo2.Text)))

da pra fazer com listbox sim, mas o problema é q eu não sei o q você quer fazer: você quer tipo montar um select no banco de dados?? se for dentro daquele mesmo for onde você punha o valor no temp2, em vez de por o valor no temp2, monte a string separando os valores por OR. sei la, vai depender do q você vai fazer com os valores, explica melhor ai. se você me mandou otro email, não chegou. o unico email q tenho seu é um q chegou meio dia.

ué, se eu entendi o q você quer, é como você fazia antes, só q dessa vez some: For i = 0 To 21 xPiloto(i).ai = xPiloto(i).ai + Int(xPiloto(i).chance * Rnd) + 1 Next[/code]

você não precisa necessariamente igualar as estruturas, pode igualar os selects: SELECT Campo1, Campo2 FROM Tabela1 WHERE Tipo LIKE '*PESQ*' UNION ALL SELECT Campo1, Campo2 FROM Tabela2 WHERE Tipo LIKE '*PESQ*'

ou assim fica dificil de saber, manda o seu projeto, ou pelo menos o .frm do seu form, assim não da pra testar. mas explica exatamente o q esta errado, o q você queria q acontecesse q não esta acontecendo?? acho q você quer selecionar varias opcoes ao mesmo tempo, mas no final ele só seleciona a ultima, não é isso?? se for o problema é q o temp2 só vai guardar a ultima mesmo, você podia jogar num array, mas isso seria desnecessario depenendo do q você quer fazer, já q você poderia apenas percorrer o listbox e checar o q esteja selecionado. mas explica melhor, o q você quer fazer com os itens q estejam selecionados?? ele vai abrir uma janela de visualizacao não é isso?? nessa janela como (qual o código) você seleciona os itens pelo listbox??