D_BOB

pessoal, ainda estou batendo cabeça com esse problema. eu achei esse link. http://www.codeproject.com/KB/list/PrintableListView.aspx muito interessante, é o que eu preciso. baixei o arquivo, ao rodar o executavel funciona perfeitamente mas quando abro o projeto e compilo não funciona. tentei olhar o codigo e utilizá-lo, mas tb não funcionou. dá varios erros de referencia, bibliotecas e outras coisas. utilizo o VS2010 se alguém puder me ajudar , muito obrigado.

Galera, sou novo em c# e estava procurando uma maneira de gerar um relatorio crystal reports com os dados de um listview, não tenho nem ideia de por onde começar. desde já obrigado.

Obrigado Graymalkin , já tinha tentado até algo parecido mas tinha problemas na hora de retornar o valor, essa rotina vai me ajudar a testar uma sequencia de caracteres que tem algumas restrições. Caso alguém precise, segue codigo para c# string texto = "teste"; foreach (Char c in texto) { MessageBox.Show( Convert.ToString©); }

Galera a dúvida é a seguinte, quero extrair apenas determinada letra de uma string. por exemplo, tenho a string e quero extrair apenas a letra "s" aux = "teste" preciso de uma rotina que compare cada letra acima, e uma segunda varável recebendo só a letra "s". fui claro?

Ok pessoal, mas eu preciso trabalhar com variaveis nas linha e nas colunas.

Pessoa, estou com uma duvida básica. quando utilizo o parametro abaixo: i = 1 j= 1 x = 10 Range(Cells( i, j), Cells(i, x)) eu me refiro as celulas A1 até a A10 como faço dessa mesma forma para me referir as celulas A1 e A10, eu preciso usar conforme acima pois os valores das variáveis irão mudar com frequencia. obrigado

xistyle, funcionou dessa forma: if (dr.Read()) { if (dr["codigo"].ToString() == "") textBox1.Text = "1"; else textBox1.Text = Convert.ToString(Convert.ToInt32(dr["codigo"].ToString())+ 1); } else { textBox1.Text = "1"; } vlw cara

Pessoal, estou com um problema estou tentando verificar se meu banco está vazio, já pesquisei bastante mas nada até agora funcionou, segue codigo try //tenta abrir a conexao com o banco de dados { conn.Open(); SqlCommand cmd = new SqlCommand("select MAX (codigo) as codigo from produto", conn); SqlDataReader dr = cmd.ExecuteReader(); if (dr.Read()) { textBox1.Text = Convert.ToString(Convert.ToInt32(dr["codigo"].ToString())+ 1); }else { textBox1.Text = "1"; } conn.Close(); } catch //Se não conseguir abrir a conexao executa o comando abaixo { MessageBox.Show("Não foi possivel estabelecer a conexão com o banco!", "Erro de conexão", MessageBoxButtons.OK, MessageBoxIcon.Error); } pelo que vi, teoricamente a linha if (dr.Read()) resolveria meu problema, mas ela sempre retorna true tentei if (dr.HasRows) e tb só retorna true e outrar milhares de tentativas com outras formas de codigo e nada... alguém pode me ajudar uso c# e sql server, obrigado

já tive um problema parecido e achei na net o codigo abaixo, Sub Inicio() Columns("A:A").ClearContents linha = 1 Call Varre("C:\Documents and Settings\administrador\Desktop\temp") End Sub Public Function Varre(endereço) Set FSO = CreateObject("Scripting.FileSystemObject") Set aqui = FSO.GetFolder(endereço) For Each Arquivo In aqui.Files Aux1 = Len(Arquivo.Path) - InStr(1, StrReverse(Arquivo.Path), "\") Range("A" & linha).Value = Mid(Arquivo.Path, 1, Aux1 + 1) Range("A" & linha).Value = Arquivo.Name Range("B" & linha).Value = Arquivo.Size linha = linha + 1 Next For Each Pasta In aqui.SubFolders Varre (Pasta.Path) Next End Function no seu caso é só adaptar o codigo para jogar o arquivo na matriz e não na planilha.

Pessoal, achei na net o cod abaixo para inserir imagens: Dim p As Object, t As Double, l As Double, w As Double, h As Double If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub If Dir(PictureFileName) = "" Then Exit Sub ' import picture Set p = ActiveSheet.Pictures.Insert(PictureFileName) ' determine positions With TargetCells t = .Top l = .Left End With ' position picture With p .Top = t .Left = l .Width = 300 .Height = 300 End With Set p = Nothing End Sub o problema é que ao inserir uma imagem com resolução 300 x 50, os valores atribuidos nas propriedades .Width e .Height não redimenciona a imagem, qual propriedade que eu ainda tenho que adicionar? desde já obrigado.

Pessoal, criei uma função para fazer as bordas em minha planilha, conforme código abaixo: Public Function Borda() dim celulas as string celulas = "B6:Y7,Z6:AW7" Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeLeft).LineStyle = xlContinuous Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeLeft).Weight = xlThin Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeTop).LineStyle = xlContinuous Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeTop).Weight = xlThin Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeBottom).LineStyle = xlContinuous Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeBottom).Weight = xlThin Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeRight).LineStyle = xlContinuous Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeRight).Weight End Function ok o código funciona perfeitamente, até eu fechar a planilha. quando abro novamente ele apresenta: "erro em tempo de execução '1004' Não é possível definir a propriedade weight da classe border" e não funciona mais, se eu abrir uma nova planilha, e copiar o codigo pra lá, o codigo volta a rodar, se eu fechar e abrir de novo, para tudo. Alguém tem alguma ideia?

pessoal, como declarar uma matriz de um tamanho que não é fixo? por exemplo, achei que se fizesse isso daria certo, mas não dá. i = 10 dim teste(i , 1) as string andei lendo em alguns foruns e achei que se declarasse dim teste () as string , funcionaria. mas dá o erro " subinscrito fora do intervalo quando tento usar a matriz. é possivel fazer isso, declarar sem definir um tamanho?

Pessoal, estou fazendo uma planilha que faz conexão com um bd, ao informar o data source como faço para informar que o bd está na mesma pasta da planilha que estou usando ao invés de ter que informar o vaminho como abaixo? Call cnconexao.Open("provider = microsoft.jet.oledb.4.0;" & " data source=C:\VBA\edu.mdb") obrigado

Olá amigos. Estou com um problema parecido, quando tento executar uma macro em algumas células aqui, acontece o mesmo erro. Isso é problema do excel ou é erro no código?

Bom dia pessoal , sou novo em vba e queria saber qual função eu uso para retornar o número de dias de um detrminado mês informado pelo usuario. obrigado.

Bom dia a todos, sou novo aqui no forum e estou com um problema, eu tenho um formulario que é carregado no momento em que a planilha é aberta e quando o form é fechado a planilha também é fechada para que o usuario não tenha acesso a planilha, mas o problema é que eu não consigo desabilitar o uso do ALT + F4 no form, eu pesquisei aqui no forum e tudo que encontrei foi como desabilita-lo na planilha. que linha de código posso utilizar para desabilitar o uso do ALT + F4 quando um determinado FORM estiver ativo? desde já obrigado pela atenção.