kuroi

consegue sim, você pode usar o componente mapi pra isso: http://www.macoratti.net/email_vb.htm acho q tb tem a ocx do outlook q você pode usar pra interagir com ele, mas o mapi deve servir. 1) é possivel, mas a 2) tb é. você pode usar o componete py.sendmail pra isso: http://www.graymalkinsoftware.net/gspagina...age=Py.Sendmail pra criar um pdf direto pelo vb6 so se tiver alguma ocx q faca isso, mas desconheco. você pode buscar alguma coisa no google, mas não sei se sera facil encontrar alguma gratis. mais você pode usar alguma impressora virtual pra pdf. funciona como uma impressora comum nos demais aplicativos, mas em vez de imprimir na impressora, ele cria um arquivo .pdf e imprime dentro dele. eu uso o dopdf aqui q é gratis e funciona bem, procura no google. so q ai o q acontece é q primero você tem q criar o .doc e depois mandar imprimir, ou então usa o objeto Printer.

ffls, acho q a instrucao seria essa: Update tabela Set campo = (campo * (porcentagem + 100)) / (porcentagem + 101)

ffls, use inner join. exemplos aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=108732

é mesmo, os li tem q ir com o tamanho definido, mas as img não. o codigo do javascript q passei no post anterior teria q ser esse: var img_id = 'thumbx' + i; var item = '<li style="width: ' + imgwidth + 'px; height: ' + imgheight + 'px;" class="rec_thumbs"><a href="'+posturl+'"><img id="' + img_id + '" src="'+img[i]+'" title="'+posttitle+'" /></a></li>'; if(summaryPost == 0) { item = '<li style="width: ' + imgwidth + 'px; height: ' + imgheight + 'px;" class="rec_thumbs"><a href="'+posturl+'"><img id="' + img_id + '" src="'+img[i]+'" title="'+posttitle+'" /></a></li>'; } document.write(item); redimensiona(img_id, imgheight, imgwidth);[/code] fora isso, faca as alteracoes no css q falei, e tb declare aquela funcao redimensiona() q passei e ai pode testar agora q é certeza q vai funcionar, vanessa. a e fora isso, percebi q as imagens vao perder a borda se ficarem maiores q a li. pra corrigir isso, no css, retire a linha: [code]border: 1px solid #CFCFCF!important; q esta dentro de .rec_thumbs img e transfira ela para dentro de .rec_thumbs

então vanessa, olha la em cima q eu atualizei o meu post as 03:10. você deve ter pego o codigo q eu tinha postado antes de atualizar, onde tava faltando algumas linhas, mas depois eu corrigi. na funcao redimensiona, tinha faltado aquele else pra caso height e width sejam iguais. e no javascript do final, tinha faltado setar o tamanho da li e essa era a parte mais importante, por isso o widget sumiu. copie os codigos do post de cima tudo de novo, e veja se não funciona agora.

o q significa "navegar" numa planilha??

aiaiai agora você complicou em tenta o seguinte. no javascript, antes da function showrecentposts(), adicione isso: function redimensiona(img_id, h, w) { var imagem = document.getElementById(img_id); if (imagem.complete) { var hh, ww; if (imagem.width > imagem.height) { ww = ((h / imagem.height) * imagem.width); hh = h; } else if (imagem.width < imagem.height) { ww = w; hh = ((w / imagem.width) * imagem.height); } else { ww = w; hh = h; } imagem.width = ww; imagem.height = hh; imagem.style.top = (hh > h ? "-" + parseInt((hh - h) / 2) : "0") + "px"; imagem.style.left = (ww > w ? "-" + parseInt((ww - w) / 2) : "0") + "px"; } else { setTimeout("redimensiona('" + img_id + "', " + h + ", " + w + ")", 100); } }[/code] ai no css, adicione isso dentro de .rec_thumbs: [code]overflow: hidden; position: relative; e isso dentro de .rec_thumbs img: position: absolute; e no javascript, troque isso: var item = '<li class="rec_thumbs"><a href="'+posturl+'"><img src="'+img[i]+'" title="'+posttitle+'" width="'+imgwidth+'" height="'+imgheight+'"/></a></li>'; if(summaryPost == 0) { item = '<li class="rec_thumbs"><a href="'+posturl+'"><img src="'+img[i]+'" title="'+posttitle+'" width="'+imgwidth+'" height="'+imgheight+'"/></a></li>'; } document.write(item);[/code] por: [code]var img_id = 'thumbx' + i; var item = '<li style="width: ' + imgwidth + 'px; height: ' + imgheight + 'px;" class="rec_thumbs"><a href="'+posturl+'"><img id="' + img_id + '" src="'+img[i]+'" title="'+posttitle+'" width="'+imgwidth+'" height="'+imgheight+'"/></a></li>'; if(summaryPost == 0) { item = '<li style="width: ' + imgwidth + 'px; height: ' + imgheight + 'px;" class="rec_thumbs"><a href="'+posturl+'"><img id="' + img_id + '" src="'+img[i]+'" title="'+posttitle+'" width="'+imgwidth+'" height="'+imgheight+'"/></a></li>'; } document.write(item); redimensiona(img_id, imgheight, imgwidth); ai veja se funciona e se você gosta do resultado, qualquer coisa poste.

q violao?? mas se o seu problema é q ele ta perdendo a transparencia, ai é porque bitmap não aceita transparencia mesmo. salve como .png ou .gif.

no word 2010 eu não sei, mas nas versoes anteriores do word, eu fazia o seguinte. eu fazia um .doc de modelo do formulario, e os textos q eu quisesse q fosse mudado a cada vez, eu deixava um parametro entre []. exemplo, no lugar onde vai o nome do cara, eu dexava escrito [nome]. depois eu abria o doc dentro do visual basic, editava via codigo e salvava uma copia. so não sei se o codigo q uso funcionaria no .docx. mas eu fazia o seguinte. eu declarava essa funcao pra fazer o replace do texto: Private Sub WReplace(wo, t1 As String, t2 As String) wo.Application.Selection.Find.ClearFormatting wo.Application.Selection.Find.Replacement.ClearFormatting With wo.Application.Selection.Find .Text = t1 .Replacement.Text = t2 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With wo.Application.Selection.Find.Execute With wo.Application.Selection If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With End Sub[/code] ai o codigo pra editar o .doc seria esse. é so você chamar o WReplace pra cada parametro q quiser substituir: [code]Set wo = CreateObject("Word.Document") wo.Application.Documents.Open App.Path & "\modelo.doc" WReplace wo, "[data]", Day(Date) & " de " & MonthName(Month(Date)) & " de " & Year(Date) WReplace wo, "[nome]", nome_do_cara WReplace wo, "[parametro]", valor WReplace wo, "[etc]", etc wo.Application.Documents(1).SaveAs FileName:=App.Path & "\contrato_preenchido.doc", FileFormat:=wdFormatDocument, _ LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False wo.Application.Documents.Close False

estranho, riatla, se a tabela existe mesmo era pra funcionar. qual a mensagem inteira de erro q ele mostra?? e em q linha ocorre esse erro?? já no primeiro exec?? pode ser alguma coisa na hora de associar o dataset ou coisa assim, mas não lembro direito dessa parte q já faz um tempo q não uso delphi.

tenta trocar: var item = '<li class="rec_thumbs"><a href="'+posturl+'"><img src="'+img[i]+'" width="'+imgwidth+'" height="'+imgheight+'"/></a><span><a href="'+posturl+'">'+posttitle+'</a> '+removeHtmlTag(postcontent,summaryPost)+'...</span></li>'; if(summaryPost == 0) { item = '<li class="rec_thumbs"><a href="'+posturl+'"><img src="'+img[i]+'" width="'+imgwidth+'" height="'+imgheight+'"/></a><span><a href="'+posturl+'">'+posttitle+'</a></span></li>'; }[/code] por: [code]var item = '<li class="rec_thumbs"><a href="'+posturl+'"><img src="'+img[i]+'" title="'+posttitle+'" width="'+imgwidth+'" height="'+imgheight+'"/></a></li>'; if(summaryPost == 0) { item = '<li class="rec_thumbs"><a href="'+posturl+'"><img src="'+img[i]+'" title="'+posttitle+'" width="'+imgwidth+'" height="'+imgheight+'"/></a></li>'; }

esse exemplo q você passou, so de olhar já da pra saber, ne. 1001 / 1001 = 1. agora, a multiplicacao q você passou ta errada, não sei se você postou qualquer numero de proposito, mas o certo seria 1001 * 1001 = 1010001 (ou 9 * 9 = 81). agora, a divisao você faz exatamente como você faz na base decimal. ou em qualquer otra base tb. como você faria pra dividir 137 por 4 por exemplo?? você vai pegando pedacos do dividendo e dividindo varias vezes. no exemplo, a primera divisao q você faz seria 13 / 4. o resultado é 3 com resto 1, então você sabe q o primero digito do resultado final sera 3. o 1 q sobrou de resto, você junto com o proximo pedaco do dividendo. então você fica com 17 pra dividir com 4. o resultado é 4 com resto 1. então você adiciona o digito 4 no resultado final, chegando a 34. o resto 1 é menor q o divisor, então a divisao inteira acaba aqui. então o resultado é 34 com resto 1. vo pegar de exemplo o 8 / 3 (ou 1000 / 11) q você pasou no post de cima. primero, você poe na chave: ai depois você agrupa os digitos do dividendo da esquerda pra direita, ate chegar num valor maior q o divisor: no caso, chegamos em 100 q é maior q 11. então a primera operacao q faremos sera 100 / 11. pra isso, você faz aquilo q eu disse no post anterior. qtas vezes 11 (3) cabe em 100 (4)?? uma vez só, certo?? então, você vai la e adiciona o digito 1 no resultado: isso é o bom dos numeros binarios, vai dar sempre 1 ou 0. depois disso, temos q achar o resto dessa primera divisao. isso é simples, você tem q multiplicar o resultado da primeria divisao pelo divisor e subtrair do pedaco do dividendo q você usou na divisao: bom, na verdade, como eu disse a divisao binaria é bem facil, pois sera sempre 0 ou 1, so de olhar você já sabe. mas essa dica da subtracao é importante quando você for fazer divisoes em hexa ou em otras bases, não esqueca. então, como o resto deu 1, escrevemos o 1 la: e baxamos o proximo digito: agora, qtos 11 (3) cabem num 10 (2)?? nenhum, certo?? então você adiciona um 0 la: e calculamos o resto de novo: 0 * 11 = 0 10 - 0 = 10 10 é menor q 11. então a divisao intera para por ai. chegamos então q 1000 / 11 = 10 com resto 10. ou 8 / 3 = 2 com resto 2. bom, pelo menos é essa a forma q conheco pra fazer divisao de numeros binarios. a explicacao deve ter ficado ruim, mas veja se isso te ajuda a resolver os exercicios ai.

tenho a seguinte duvida. se eu compilar um codigo c++ no gcc em qualquer versao do linux, o executavel poderia rodar sem problemas dentro de um so unix??

em q linha isso?? se for na do setdatasource, tenta isso: ActiveChart.SetSourceData Source:=Sel

na verdade, você tem q ir subtraindo 8 - 3 e não 8 - 8. a base de qualquer divisao é saber qtas vezes o divisor cabe dentro do dividendo. então: 8 - 3 = 5 5 - 3 = 2 2 é menor q 3, então as subtracoes acabam aqui. chegamos então q 8 dividido por 3 resulta em 2 (o numero de divisoes feitas) com resto 2 (o valor a q chegamos apos a ultima subtracao). agora, não sei se isso é chamado divisao binaria. pra mim divisao binaria é quando você tem dois numeros na base 2 e tem q dividir um pelo otro. nesse caso, a divisao é feita do mesmo modo como fazemos em base 10 ou em qualquer outra base.

tinha uma funcao no clipper chamada strzero() q fazia isso. como no visual basic nunca vi nd q faca isso, criei minha propria funcao strzero. esse é o codigo: Public Function StrZero(ByVal X As String, ByVal tam As Integer, ByVal char As String, Optional ByVal posicao As Integer = 0) As String Dim i As Integer StrZero = X If posicao = 0 Then For i = Len(StrZero) To tam Step Len(char) StrZero = char & StrZero Next StrZero = Right(StrZero, tam) ElseIf posicao = 1 Then For i = Len(StrZero) To tam Step Len(char) StrZero = StrZero & char Next StrZero = Left(StrZero, tam) End If End Function[/code] ela funciona assim, você passa uma string, e ele insere determinado caracter na esquerda ou na direita (assim você pode trasnformar "2" em "002"). o primeiro parametro X é a string original. o segundo, tam, é o tamanho q você quer q a string fique (no seu caso 3 caracteres). o tercero, char é o caracter com q você quer preencher (no seu caso "0"). o quarto parametro posicao é opcional e determina se o caracter deve ser inserido na frente ou atras. se você passa 0, ele insere na frente, se passar 1, insere atras. se não passar nd, ele considera 0. no seu caso, você faria assim: [code]text3 = "m" & StrZero(text2, 3, "0")

tente isso ó: $sql = mysql_query("Select * From (SELECT * FROM agenda WHERE id_franquia='$cidade' AND data>='$dt' order by data desc LIMIT 7) Order By data ASC");

se essa busca do excel não consegue localizar pelo tamanho, você pode tentar por fso.

estranho, em casa tava mostrando as respostas. quando eu voltar eu olho la e vejo. neste post tem uns exemplos: http://scriptbrasil.com.br/forum/index.php...st&p=503948

não costumo usar o InternetExplorer.Application, mas se a janela de alert realmente aparece, você poderia tentar usar as apis FindWindow() e SetForegroundWindow() pra colocar o foco na janela e ai o SendKeys() poderia funcionar. mas da uma olhada aqui tb: http://www.experts-exchange.com/Programmin...Q_20510962.html

junim, dando uma olhada bem rapida aqui, otros erros q encontrei foram q nas opcoes case, você ta pondo ponto e virgula no final (ou não ta pondo nd), mas o certo seria por dois pontos. tipo assim: case humano: fora isso, tem uns switch() q você ta abrindo com ponto e virgula no final e, como no main(), tb não pode. fora isso, você não abrindo as chaves pra esses switch() tb, tem q abrir (e fechar ne). corrija essa parte, q não parece ter mtos problemas alem disso.

riatla, qual o codigo no delphi q você ta usando pra executar esse insert?? acho q você ta tentando receber o retorno da query, mas insert não tras retorno. o certo acho q seria executar com o metodo ExecSQL() do SQLQuery por exemplo.

tira o ponto e virgula de int main().

como você relaciona o instrutor co exame pratico??

a mas olha q você ta adicionando a tabela locacao no select principal, mas não ta associando com nenhuma otra das duas tabelas. e ainda você nem usa ela no select, so ta usando na sub consulta. essa tabela locacao tem mesmo q aparecer no select principal?? se tiver, então você teria q linkar com uma das otras duas tabelas. e ainda, aquele distinct não vai servir pra nd, misturar distinct com group by acho q so ia atrapalhar, tenta tirar o distinct tb. mais o menos isso, tenta ai: SELECT tit.nome,count(it.idfilme),it.idfilme FROM titulo tit,item it WHERE tit.idtitulo = it.idtitulo AND it.idfilme NOT IN (SELECT loc.idfilme FROM locacao loc,reserva r where loc.data_locacao BETWEEN '2010-05-26' AND '2010-05-29' AND r.data_reserva BETWEEN '2010-05-26' AND '2010-05-29') group by tit.nome,it.idfilme;[/code] e ainda, na subconsulta, olha q tem duas tabelas (locacao e reserva), mas você tb não relaciona as duas. ou acho q o q você queria na verdade seria tipo um union, não??