kuroi
Membros-
Total de itens
7.184 -
Registro em
-
Última visita
Tudo que kuroi postou
-
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.
-
Fazer Uma Seleção Com O Filtro <null>
pergunta respondeu ao raphael_suporte de kuroi em Crystal Reports
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]
-
Existe Algo Para Finalizar Um While No Meio Do Processo ?
pergunta respondeu ao mestre fyoda de kuroi em ASP
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??