Angelo Augusto

AI AMIGO TENTA ISSO AI !!! mes = (Mid(txtCheque.Value, 4, InStr(1, txtCheque.Value, "/") - 1)) if mes == 01 then ..... ..... ..... .....

Bom dia pessoal. Estou com uma pequena duvida no meu codigo .... E o seguinte. Estou querendo colocar o evento onclick em uma imagem que eu eu busco do banco .Para que na hora que o usuario clicar na imagem ela abrir para ele no tamanho normal da imagem mas não estou conseguindo fazer o mesmo..... alguém ai poderia me ajudar <asp:DataGrid ID="dgGeral" AutoGenerateColumns="False" Runat="server" GridLines="None" > <Columns> <asp:TemplateColumn> <ItemTemplate> <asp:Image ID="Image1" Width="150" Height="125" ImageUrl='<%# FormataURL(Convert.ToString(DataBinder.Eval(Container.DataItem, "idimagem"))) %>' Runat="server" /> </ItemTemplate> </asp:TemplateColumn> </Columns> </asp:DataGrid> AI PESSOAL COMO FICARIA O ONCLICK AI ?????? Muito obrigado!

Caro. O problema é que eu não consigo carregar ela no grid ..... Simplesmente em uma outra pagina! Ajudeee!!! Grato!

Bom dia a todos . Pessoal, estou com um problema aqui estou desenvolvendo uma pagina para gravar imagens e essas imagens devem ser salvas no SQL SERVER. beleza ate ai tudo bem , conseigo gravar as imagens no banco e ttbem consigo carregalas . O problema é o seguinte Eu preciso é de carregar as imagen pequenas "esttilo orkut" e quando o usuario clicar na imagem a imagem abrir em tamanho normal..... a imagem carregar em tamanho normal eu consigo também fazer .. o Problema é na hora de carregala em um tamanho pequeno...... protected void btnSalvarGeral_Click(object sender, System.EventArgs e) { SqlConnection conn = null; SqlCommand cmd = null; string strComando = ""; try { string Tipo = ArqUploadGeral.PostedFile.ContentType; int Tamanho = Convert.ToInt32(ArqUploadGeral.PostedFile.InputStream.Length); byte[] Imagem = new byte[Tamanho]; ArqUploadGeral.PostedFile.InputStream.Read(Imagem, 0, Tamanho); conn = new SqlConnection(this._strConexao); strComando = "proc_AdicionarImagem"; cmd = new SqlCommand(strComando, conn); cmd.CommandType = CommandType.StoredProcedure; cmd.Parameters.AddWithValue("@Imagem", Imagem); cmd.Parameters.AddWithValue("@Tamanho", Tamanho); cmd.Parameters.AddWithValue("@Tipo", Tipo); conn.Open(); cmd.ExecuteNonQuery(); conn.Close(); } catch (Exception ex) { throw ex; } } private void ExibirImagem() { try { // estabelece a conexão string cnString = _strConexao; SqlConnection cn = new SqlConnection(cnString); cn.Open(); // cria o objeto SqlCommand SqlCommand cmd = new SqlCommand(); cmd.Connection = cn; cmd.CommandType = CommandType.StoredProcedure; cmd.CommandText = "proc_ExibirImagem"; // adiciona o parâmetro @ImagemID obtido através da variável de URL SqlParameter prmImagemID = new SqlParameter("@ImagemID", SqlDbType.Int); prmImagemID.Value = 1;//Request.QueryString["ImagemID"]; cmd.Parameters.Add(prmImagemID); // cria o objeto SqlDataReader e alimenta-o com a respectiva imagem SqlDataReader dr; dr = cmd.ExecuteReader(); dr.Read(); ******************************************** aqui eu consigo abrir a imagem do tamanho normal ******************************************** // utiliza o objeto Response para enviar o conteúdo para o browser //Response.ContentType = dr["Tipo"].ToString(); //Response.OutputStream.Write((byte[])dr["Imagem"], 0, System.Convert.ToInt32(dr["Tamanho"])); Ai pessoal quem souber me ajuda ai!!!!! valewwwwwwwwwwwwwww

Grave uma macro do tipo! Sub workbook_open() 'Para rodar quando abrir a planilha Worksheets("Plan1").Activate 'ativa a planilha plan1 Range("a3").Select ' seleciona a célula A3 ActiveWorkbook.Protect structure:=True ' aqui caso queira proteger a plan1 end sub abraços

poste o codigo da parte onde está tendo a lentidão para pode ser analizado e quem sabe possivelmente solucionado o problema!!! Abraços

pessoal , masi um resolvido !!! Agradecimentos a Kuroi!!! vou postar quem sabe algume precise do codigo: For CONT2 = 3 To NUMLINHA If CB_NOME.Value = .Cells(CONT2, 1).Text Then ITEMPROC = .Cells(CONT2, 2).Text existe = False For CONTFOR = CONT2 + 1 To NUMLINHA If (ITEMPROC = .Cells(CONTFOR, 2).Text) Then existe = True End If Next CONTFOR If Not (existe) Then CB_NUMERO.AddItem ITEMPROC End If next CONT2

pessoal, resovido mais um problema! cosegui fazer com que a lista da combo ficasse do tamanho dos item que estiverem nela preenchidas o codigo segue abaixo : Private Sub Combobox1_Click() Dim contfor As Integer Dim maior As String Dim maiorcompara As Integer maiorcompara = 0 contfor = 0 maior = "" For contfor = 0 To Combobox1.ListCount If Len(Combobox1.List(contfor)) > Len(maior) Then maior = Combobox.List(contfor) maiorcompara = CInt(Len(maior)) * 5.0353 Combobox1.ListWidth = maiorcompara End If If contfor = Combobox1.ListCount - 1 Then contfor = contfor + 1 End If Next contfor end sub A multiplicação e pelo seguinte Um ponto é igual a 0,0353 centímetros. Costuma-se medir em pontos os tamanhos de fonte. Abraços Qualaquer dúvida aqui estou!!!

????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? Pessoal, muito obrigado pela "ajuda"! Mas consegui resolver o problema de deixar a palavra que eu quiser sempre em negrito !!!! vou postra aqui quem sabe alguém um dia não precise desse código!!!! é o seguinte: tem, que gravar uma macro no word do Tipo AutoOpen (toda vez que o arquivo for aberto) e depois colocar o seguinte código: With ActiveDocument.Content.Find .ClearFormatting .Font.Bold = False .Format = True .Replacement.ClearFormatting .Replacement.Font.Bold = True .Execute Forward:=True, Replace:=wdReplaceAll, FindText:="AQUI A PALAVRA A SER SUBTITUIDA", ReplaceWith:="AQUI A PALAVRA A SER SUBTITUIDA" End With Qualquer dúvida estou a disposição ! Abraços

Olá pessoal! E o seguinte sempre que quando o documento do word receber uma palavra escrita "@item" automaticamente ela fique em negrito! tem jeito?? estou fazendo uma aplicação em VBA que gera relatórios no word e vão ser inclusos vairios "@item" e os mesmo precisaram ficar em negrito para dar um destaque, mas não sei como fazer isso , não sei se tenho que gravar uma macro no word, ou tenho que fazer isso no proprio script do excel, ou sei lá , não tenho a minima ideia Minha rotina chama uma função que substitui algumas variaveis "@item" no word, pelas strings itens que tenho no fromulario. A cada chamada da função ele subistitui as variaveis no documento, e acrescenta mas @item e assim por diante , esse @item será subistituido e o valor que ele receber tem aque ficar em negrito! explicando melhor:::: toda vez que aparecer a palavra @item no documento, automaticamente ela fique em negrito!! deu pra entender ? !!! Conto com a ajuda de todos vocês!!!!! Um grande abraço!

fera da uma olhada acho que não é bem isso não mas, explica qual a logica das combos para saber o que quer realmente Ahhh e tem amis uma coisa no evento click da combo1 você da o comando combo1.clear If combo1.value = 10 then with combo2 .additem 50 .additem 60 end with elseIf combo1.value = 20 then with combo2 .additem 50 .additem 70 end with elseIf combo1.value = 30 then with combo2 .additem 50 .additem 70 .additem 80 end with endif [code]

meu caro amigo fiz ele dentro de um for For contfor = 0 To CB_Item.ListCount If Len(CB_Item.List(contfor)) > Len(maior) Then maior = maior + CB_Item.List(contfor) CB_Item.ListWidth = Len(maior) 'contfor = contfor + 1 End If If contfor = CB_Item.ListCount - 1 Then contfor = contfor + 1 End If Next contfor mas parece que o tamanha de uma letra não é do tamanho de Pts, pos o listwidth é em pontos , ele ate chega a mudar o tamanho do listwidth mas não é do tamanho da string recebida .... Será que você sabe ou alguém sabe como resolver isso ? muito obrigado

Pessoal me ajuda ai !!!! To preciasndo d+ dessa ajuda!!!! Muito obrigado!

Pessoal, por favor me ajudem !!1 Abraços!!

se não for isso explique-se quem sabe não posso te ajudar !!!! T+ Abraços

if combo1.value = "valor" then with combo2 .additem "os valores que você quer" .additem "os valores que você quer" .additem "os valores que você quer" end if seria isso !!!

CONY=TO COM A AJUDA DE TODOS você'S! JÁ FAZEM TRES DIAS que ESTOU TENTANDO ISSO

Ai pessoal também tentei assim e não to conseguindo !!! está dando pau no indice (1) Me ajudem!!! For CONT2 = 3 To NUMLINHA If CB_NOME.Value = .Cells(CONT2, 1).Text Then ITEMPROC = .Cells(CONT2, 2).Text For CONTFOR = 1 To CB_NUMERO.ListCount If (CB_NUMERO.List(CONTFOR) = ITEMPROC) Then jaExiste = True End If Next CONTFOR If (CB_NUMERO.ListCount = 0) Then CB_NUMERO.AddItem ITEMPROC End If If (jaExiste) Then CB_NUMERO.AddItem ITEMPROC NOTA = CInt(.Cells(CONT2, 76).Text) SOMA = SOMA + NOTA CONTMEDIA = CONTMEDIA + 1 MEDIA = (SOMA / CONTMEDIA) End If jaExiste = False End If Next CONT2

Amigos , tentei o codigo passado. Não deu erro nenhum , mas também não abriu nenhum arquivo !!! O que será que pode estar de errado no codigo ??? Pessoal ! consegui resolver o problema , faltava duas linhas de codigos, vou colocar o exemplo ai !!! valewwwssss pela ajuda masi uma vez! Set gAcro = CreateObject("AcroExch.app") Set newPD = CreateObject("AcroExch.PDDoc") Set newAv = CreateObject("AcroExch.AVDoc") 'Abri o Acrobat gAcro.Show 'Para abrir o PDF OK = newPD.Open("NOME DO ARQUIVO") If Not OK Then MsgBox "Não foi possivel abrir o arquivo" Exit Sub End If 'título do aquivo Set newAv = newPD.openAVDoc("TITULO DO ARQUIVO")

Pessoal, bom dia, boa tarde, boa noite! O seguinte estou querendo saber como faço para remover um item repetido dentro da combobox, Primeiro eu preencho a combobox com numeros de contratos, mas no meio destes contratos exitem repetidos, e não estou conseguindo fazer isso , remover os items repetido , alguém pode me ajudar com isso !! For CONTFOR = 0 To CB_NUMERO.ListCount If CB_NUMERO.ListCount >= CONTFOR Then If (CB_NUMERO.List(CONTFOR) = ITEMPROC) Then CB_NUMERO.RemoveItem (CONTFOR) CONTFOR = CONTFOR - 1 End If End If Next CONTFOR 1 - dou um loop preenchendo a combo 2 - depois procuro se tem algum item repetido se tiver remover ! MAS NÃO TA DANDO CERTO ! Ai pessoal fiz isto ai mas não ta dando certo ta dandao erro na linha If (CB_NUMERO.List(CONTFOR) = ITEMPROC) Then mas não sei porque ? alguém me ajuda

Pessoal , como faço para poder abrir um arquivo em PDF . So quero abrir e mostra -lo no mo modo de visualização de impresão ! So consegui fazer isso com o documeto Word, Vai o codigo! Dim word As Object Set word = CreateObject("Word.Application") 'Abre o documento word.Documents.Open "C:\Nome documento.doc" 'mostra o documento para usuario word.Visible = True 'Modo de visualização de impressão word.Documents("Nome documento.doc").PrintPreview Agora no PDF, é muito diferente!!! alguém me ajuda! Muito Obrigado

Rochedo, não entendi muito bem, mas você quiz dizer que é para já deixar o proprio campo no word em negrito ? pois é se fizer assim tem jeito, mas o problema é que eu não sei quantos campos vão ser mesclados no word, vou colocar o exemplo do codigo aqui ! Call Substitui_Var("@item", (itemmaiusculo)) //////Aqui é o item que eu quero que va em negrito . Call Substitui_Var("@especificacao", (RTB_especificacao.Value) & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf)///// aqui é outro item a ser mesclado no word mas não precisa ser en negrito Call Substitui_Var("", (Label9.Caption) & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf) //// aqui ele inclui @item novamente no documento word Call Substitui_Var("", (Label10.Caption) & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf)/////e aqui @especificacao novamente no documento aqui a função que subtitui o as variaveis no Word Dim Troca As DataObject Set Troca = New DataObject With word.Selection.Find .ClearFormatting .Text = Header .Execute Forward:=True End With Troca.SetText data Troca.PutInClipboard word.Selection.Paste Troca.SetText "" o programa vai gerando o relatorio de acordo com a quantidade de itens que o usuario quiser. Muito obrigado ! Aguardo resposta!

Ai pessoal me ajudem nisso ai , to precisando d+

Olha aqui o que tentei quase deu certo mas não pega a maior string aqui é um pedaço do código ElseIf FAM = "Serviços complementares" And SubFAM = "Lastro" Then For CONT38 = 3 To NUMLINHA If (.Cells(CONT38, COLFAM).Text = "x" Or .Cells(CONT38, COLFAM).Text = "X") And (.Cells(CONT38, COLSUBFAM).Text = "x" Or .Cells(CONT38, COLSUBFAM).Text = "X") Then ITEMPROC = .Cells(CONT38, 2).Text CB_Item.AddItem ITEMPROC End If Next CONT38 ElseIf FAM = "AMV" And SubFAM = "Trilho" Then For CONT39 = 3 To NUMLINHA If (.Cells(CONT39, COLFAM).Text = "x" Or .Cells(CONT39, COLFAM).Text = "X") And (.Cells(CONT39, COLSUBFAM).Text = "x" Or .Cells(CONT39, COLSUBFAM).Text = "X") Then ITEMPROC = .Cells(CONT39, 2).Text CB_Item.AddItem ITEMPROC End If Next CONT39 ElseIf FAM = "AMV" And SubFAM = "Remodelação" Then For CONT40 = 3 To NUMLINHA If (.Cells(CONT40, COLFAM).Text = "x" Or .Cells(CONT40, COLFAM).Text = "X") And (.Cells(CONT40, COLSUBFAM).Text = "x" Or .Cells(CONT40, COLSUBFAM).Text = "X") Then ITEMPROC = .Cells(CONT40, 2).Text CB_Item.AddItem ITEMPROC End If Next CONT40 ai eu fiz isso para variar o tamanho da combobox if len(ITEMPROC) > 0 then CB_Item.listwidth = CB_Item.width + len(ITEMPROC) end if O problema é que ele sempre pega a primeira variavel e se tiver uma maior que ela fica escondida no listwidth da combo. Obrigado!

Olá pessoal! E o seguinte sempre quero que quando o documento do word receber uma palavra escrita "@item" automaticamente ela fique em negrito! tem jeito?? estou fazendo uma aplicação em VBA que gera relatórios no word e vão ser inclusos vairios "@item" e os mesmo precisaram ficar em negrito para dar um destaque, mas não sei como fazer isso , não sei se tenho que gravar uma macro no word, ou tenho que fazer isso no proprio script do excel, ou sei lá , não tenho a minima ideia !!! explivando melhor: tipo assim, toda vez que no texto for escrito ou aparecer a palavra @item, ela ficar em negrito automaticamente Conto com a ajuda de todos vocês!!!!! Um grande abraço!