Ir para conteúdo
Fórum Script Brasil

Graymalkin

Veteranos
  • Total de itens

    8.257
  • Registro em

  • Última visita

Tudo que Graymalkin postou

  1. Graymalkin

    Listview

    Brother, Saca só: .ColumnHeaders.Add , , "CEP", lsvClientes.Width / 3 .ColumnHeaders.Add , , "Estado", lsvClientes.Width / 8, lvwColumnCenter NewItem.SubItems(3) = " " & TabelaConsulta("Estado") NewItem.SubItems(4) = " " & TabelaConsulta("CEP") No primeiro, vem o CEP e depois o Estado. No segundo, vem o Estado e depois o CEP. Basta inverter um dos dois, não? Abraços, Graymalkin
  2. Graymalkin

    Criptografia

    Então, dê uma olhada nestes posts: http://scriptbrasil.com.br/forum/index.php?showtopic=31417 http://scriptbrasil.com.br/forum/index.php?showtopic=44679 A idéia seria percorrer todos os arquivos da pasta criptografando (com a função apresentada acima, ou qualquer outra que você invente) cada um dos arquivos. Abraços, Graymalkin
  3. Sim, perfeitamente. Se me lembro bem, já até disponibilizei um exemplo semelhante aqui no fórum, não? Abraços, Graymalkin
  4. Um artigo sobre como utilizar os elementos de design (construção gráfica dos forms) dentro de seu projeto (com códigos em C# e VB.NET): http://www.divil.co.uk/net/articles/designers/hosting.asp Abraços, Graymalkin
  5. Sim, ocorreria. Isso porque o seu executável vai procurar por uma DLL (como um arquivo de verdade) e não vai encontrá-la. Outro problema é que DLLs ActiveX (como as que são feitas e usadas no VB) precisam ser registradas antes da utilização (com o regsvr32). O mesmo se dá com OCXs. Como registrar essas bibliotecas se elas não existirem de forma isolada (cada uma no seu devido lugar)? E, ainda um outro problema, talvez o mais grave, todo programa em VB precisa de algumas bibliotecas (MSVBVM60.DLL, por exemplo) para ser executado. Se essas bibliotecas não existirem, o seu programa, literalmente, não roda. Como embutir essas DLLs dentro de um executável, se ele precisa delas para ser executado? É como querer colocar as rodas do carro, literalmente, dentro do porta-malas do mesmo... (aliás, para ilustar, eu ia citar que é como aquela história de "quem nasceu primeiro, o ovo ou a galinha?", mas não iria ter o mesmo efeito, já que já se sabe a resposta deste). Mas, acho que deu pra pegar a idéia, né? Abraços, Graymalkin
  6. Ele não coloca uma aspa dupla e sim duas aspas simples seguidas uma da outra. O problema ali é que você está fazendo: nome = Replace(nome.Text, "'", "''") Onde "nome" é a sua caixa de texto. Utilize outro nome qualquer, exemplo: xnome = Replace(nome.Text, "'", "''") E na SQL, mude também: sql = "INSERT INTO alunos (nome,endereco,numero,cep,telefone,rg) VALUES ('" & xnome & "', '" & endereco.Text & "', '" & numero.Text & "', '" & cep & "','" & telefone & "','" & rg & "');" Certo? Graymalkin
  7. Sim, "List" recebe um parâmetro que é o índice do elemento a ser retornado. Abra um "(" após e você verá. Se quiser o índice do item atualmente selecionado, utilize a propriedade ListIndex. Abraços, Graymalkin
  8. Engraçado... aqui executa diferente. O relógio é imediatamente escondido, porém o "buraco" que ele preenchia permanece lá (inclusive se eu der um duplo-clique lá ele abre a janela para eu acertar a hora!). Não aparece a tal setinha (aquela que aparece para mostrar ícones ocultos). E ele volta imediatamente também. Abraços, Graymalkin
  9. Algum desses objetos está com o nome errado: nome, endereco, numero, cep, telefone ou rg (mais provavelmente é um dos três primeiros, já que neles você pediu a propriedade Text; nos demais, o VB encararia como variáveis vazias (por isso, o ideal é sempre especificar a propriedade)). Abraços, Graymalkin
  10. Graymalkin

    Desenhar Linha

    Duas coisas: GraphicsPath é um tipo, por isso você deve instânciá-lo (com a palavra chave New); AddEllipse realmente não retorna valor algum, e você deve passar o "i" para o segundo parâmetro do DrawPath(). O código correto é: Dim i As New System.Drawing.Drawing2D.GraphicsPath() i.AddEllipse(150, 150, 20, 20) Me.Painel.CreateGraphics().DrawPath(New Drawing.Pen(Color.RosyBrown), i) Abraços, Graymalkin
  11. Se a imagem for do tamanho da listview, você pode mudar a propriedade PictureAlignment para 5 - lvwTile (e isto causará a repetição dela pela listview toda). Dependendo de como é a imagem, talvez você obtenha o efeito desejado. Abraços, Graymalkin
  12. Dê uma olhada nestes posts: http://scriptbrasil.com.br/forum/index.php?showtopic=34624 http://scriptbrasil.com.br/forum/index.php?showtopic=35876 Abraços, Graymalkin
  13. Não, eu acho que tentei foi colocar 30 forms em um projeto e abri-lo novamente, se não me engano (fiz isso semana passada). Abraços, Graymalkin
  14. Se você quer automatizar o processo, crie uma macro realizando os passos do ED, e o próprio Excel vai criar o código em VBA para você (você pode vê-lo pressionando ALT+F11). Abraços, Graymalkin
  15. Graymalkin

    Erro Na Inclusão

    Em qual linha, exatamente? Abraços, Graymalkin
  16. Dê uma olhada neste post: http://scriptbrasil.com.br/forum/index.php?showtopic=46871 Ficaria mais fácil de entender, com a utilização do "qu" ao invés do "k" (pronuncia-se "ca"... tente ler (com "ca"): "e o meu problema é k cria abrir a imagem atravez do campo Caminho, mas kria abri-la" - ou seja: "e o meu problema é ca cria abrir a imagem através do campo Caminho, mas caria abri-la")... Abraços, Graymalkin
  17. Graymalkin

    Mousemove

    O ideal é utilizar as APIs SetCapture e ReleaseCapture para dar esse efeito. Dê uma procurada aqui no fórum e acho que você encontrará exemplos. Abraços, Graymalkin
  18. É só dobrar (duplicar) a aspa simples, com Replace(): texto = replace("McDonald's", "'", "''") Abraços, Graymalkin
  19. Graymalkin

    Desenhar Linha

    Seu código está certo. Você só tem que limpar a tela a cada vez que ele for executado (antes de desenhar a linha), ou seja: Me.CreateGraphics().Clear(Me.BackColor) Me.CreateGraphics().DrawLine(New Drawing.Pen(Color.Black), 100, 100, e.X, e.Y) Abraços, Graymalkin
  20. Você quer dizer utilizando a instrução Open (e as demais instruções para arquivos) ou arquivos binários num contexto mais geral? Abraços, Graymalkin
  21. Ih... sei não. Nunca tinha nem visto isso aí. Dei uma olhada no VBA do Access e não nenhum método/propriedade que pudesse alterar isso (pelo menos não com um nome como "comment"). Abraços, Graymalkin
  22. Graymalkin

    Datagrid Ou Datalist

    Mas, você sabe pelo menos abrir o BD e a tabela, certo? Então, basta fazer: DataGrid1.DataSource = tabela Onde "tabela" pode ser um DataSet ou um DataTable. Abraços, Graymalkin
  23. Que eu me lembre ele só abre os forms que você deixou aberto da última vez que fechou o projeto. Alternativamente, você pode abrir os arquivos .frm diretamente (só não poderá executá-lo, provavelmente). Abraços, Graymalkin
  24. Graymalkin

    Hellworldconsole

    Não funciona, mas qual o erro apresentado? Você colocou o subdiretório bin da pasta do JDK na variável de ambiente PATH? Experimentou criar esse seu arquivo .java dentro desta pasta e depois chamar o javac de lá? Abraços, Graymalkin
  25. Graymalkin

    Lixo Na String

    Percorra a string toda (que na verdade é um vetor de char) atribuindo '\0' a cada uma das posições, ou simplesmente coloque esse caracter após o seu texto (ou seja, no próximo índice após o tamanho total do seu texto+1). Abraços, Graymalkin
×
×
  • Criar Novo...