Colorir linha em controlo ListBox

Como pintar linhas em um control ListBox? (VB.NET 2010)

Primeiro temos que definir a propriedade DrawMode para DrawMode.OwnerDrawFixed, para que seja disparado o evento DrawItem.


E no evento escrevemos:
Vou chamar ao control ListBox de Lista

Private Sub Lista_DrawItem(sender As Object, e As System.Windows.Forms.DrawItemEventArgs) Handles Lista.DrawItem         Dim cor As Brush = Brushes.Black         If e.Index = 5 Then 'Por exemplo colorir a linha 5 de uma cor diferente.             cor = Brushes.Blue         End If         e.DrawBackground()         Dim mybrush As Brush = Brushes.Beige         e.Graphics.FillRectangle(mybrush, e.Bounds)         If (e.Index > -1) Then             e.Graphics.DrawString(Lista.Items(e.Index).ToString, e.Font, cor, e.Bounds)         End If         e.DrawFocusRectangle()     End Sub

Ficheiros XML

XML (Extensible Markup Language) é um formato organizado de dados.

Neste artigo vou mostrar de uma forma simples, como escrever, ler, alterar e eliminar dados nestes ficheiros.
Estrutura de ficheiro xml, deve existir sempre um elemento principal (root tag) e os elementos secundários.

<?xml version="1.0" encoding="utf-8"?>
<!--Lista de Compras-->
<Compras>
  <Vegetais>
    <Vegetal1>Couves</Vegetal1>
    <Vegetal2>Alfaces</Vegetal2>
    <Vegetal3>Espinafre</Vegetal3>
  </Vegetais>
  <Frutos>
    <Fruto1>Maça</Fruto1>
    <Fruto2>Banana</Fruto2>
    <Fruto1>Laranja</Fruto1>
    <Fruto2>Cereja</Fruto2>
  </Frutos>
</Compras>

- Criar

' Cria um novo ficheiro XML com a codificação UTF8

Dim xmlw As New XmlTextWriter(Environment.CurrentDirectory & "\MyXML.xml", System.Text.Encoding.UTF8)
        xmlw.Formatting = Formatting.Indented
        xmlw.WriteStartDocument()
        ' Adiciona um comentário geral
        xmlw.WriteComment("Lista de Compras")
        ' Criar um elemento geral
        xmlw.WriteStartElement("Compras")
        ' Criar o elemento "Vegetais" e alguns dados
        With xmlw
            .WriteStartElement("Vegetais")
            .WriteElementString("Vegetal1", "Couves")
            .WriteElementString("Vegetal2", "Alfaces")
            .WriteElementString("Vegetal3", "Espinafre")
            .WriteEndElement()
        End With
        ' Criar o elemento "Frutos" e alguns dados
        With xmlw
            .WriteStartElement("Frutos")
            .WriteElementString("Fruto1", "Maça")
            .WriteElementString("Fruto2", "Banana")

            .WriteElementString("Fruto1", "Laranja")
            .WriteElementString("Fruto2", "Cereja")
            .WriteEndElement()
        End With
        xmlw.WriteEndElement()
        xmlw.WriteEndDocument()
        ' Fecha o documento XML
        xmlw.Flush()
        xmlw.Close()

- Fim Criar

Para ler um elemento

 xml.Load(Environment.CurrentDirectory & "\MyXML.xml") 'Pegar nomes para as colunas do DGV_SEL

Dim s As String = xml.DocumentElement.GetElementsByTagName("Vegetal1").Item(0).InnerText
MsgBox(s)

Para modificar um elemento

 'Para alterar valores
        Dim xDoc As New XmlDocument : xDoc.Load(Environment.CurrentDirectory & "\MyXML.xml")
        Dim nodelist As Xml.XmlNodeList
        nodelist = xDoc.GetElementsByTagName("Vegetal1")
        nodelist.Item(0).InnerText = "1"

        xDoc.Save(Environment.CurrentDirectory & "\MyXML.xml")

E por ultimo apagar um elemento

        Dim xmlFile = XDocument.Load(Environment.CurrentDirectory & "\MyXML.xml")
        xmlFile...<Numeros>.Remove() 'Remove um elemento geral (por completo)
        xmlFile...<N1>.Remove() 'Remove um único elemento
        xmlFile.Save(Environment.CurrentDirectory & "\MyXML.xml")

Neste artigo pretendo demonstrar como trabalhar com ficheiros xml de uma forma simples.

Até breve...

SQLite (continuação)

Finalizando o artigo anterior, vamos então editar ou  eliminar o registo da nossa tabela.

Recorrendo ao uso do SQL

Para actualizar usamos o UPDATE

 Dim sql As String = "UPDATE contactos SET telefone='999000999' WHERE nome='João'"
 Dim cmd As New SqLiteCommand(sql, connection)
 cmd.ExecuteNonQuery()

Para eliminar usamos DELETE
 Dim sql As String = "DELETE FROM contactos WHERE nome='João';"
 Dim cmd As New SqLiteCommand(sql, connection)
 cmd.ExecuteNonQuery()

Gravar dados em SQLite com vb.net

Neste artigo vou mostrar como guardar dados na nossa tabela.

  Guardar com a passagem de parâmetros, no inicio também não olhava bem para esta técnica. Mas tem grandes vantagens. Procedimentos Armazenados ou SP são tarefas ou objectos guardados dentro da base de dados que contém uma colecção pré-esquematizada de instruções SQL, que são executadas directamente no servidor. O que possibilita a passagem dinâmica de parâmetros, maior rapidez, melhor manutenção e mais segurança.
 

 Rotina para guardar dados na nossa tabela. Adicione a um form duas textboxes txt_nome e txt_tel, e um botão. No evento do botão faça a chamada a rotina guardar().

Public Class Form2 Dim connection As New SQLiteConnection(myConnectionString) Private Sub guardar() connection.Open() 'Abre a conexão 'Na instrução sql indico quais os campos que são passado atravez dos parametros Dim sql As String = "INSERT INTO contactos(nome,telefone) VALUES (@nome,@tel)" Dim cmd As New SQLiteCommand(sql, connection) 'Parametros a serem inseridos na tabela cmd.Parameters.Add("@nome", SqlDbType.VarChar).Value = txt_nome.Text cmd.Parameters.Add("@tel", SqlDbType.Int).Value = txt_tel.Text cmd.ExecuteNonQuery() 'Executa a operação mas não resultam registos cmd.Dispose() 'Liberar a memória usada Cursor.Current = Cursors.Default connection.Close() 'Fecha a conexão End Sub Private Sub btn_guardar_Click(sender As System.Object, e As System.EventArgs) Handles btn_guardar.Click guardar() End Sub End Class

Até ao próximo artigo, como editar e eliminar dados.

SQLite (Base de Dados)

Continuando o artigo anterior sobre base de dados...

    Para quem quer trabalhar com base de dados, vai necessitar de uma string de conexão. Mais em informações em http://www.connectionstrings.com/ onde podemos encontrar vários servidores de base de dados, bem como e mais importante as strings de conexão com vários exemplos, a não perder.

    Alguns uns anos atrás usei muito o Access mas quando  começou a surgir o termo de software livre, resolvi experimentar novos sistemas de base dados gratuitos tais como PostreSQL, SQLCe, e hoje o SQLite, de que vou falar neste artigo.

    O SQLite é uma biblioteca desenvolvida em C , que permite a sua interacção com dados através de instruções sql. É um mini sistema de gestão de base dados (SGBD) com a possibilidade de ler e escrever directamente num ficheiro local. Actualmente (em 25/10/2011) encontra-se na versão 3.7.8. Implementa a maior parte dos recursos do SQL 92. Não precisa de ser configurando. Capaz de manipular alguns tetrabytes. Estas são apenas algumas das suas características.

SQLite é o servidor.

Vamos então passar a prática:

Algumas das ferramentas disponiveis http://sqlitestudio.one.pl/index.rvt , ou um plugin para o firefox https://addons.mozilla.org/pt-pt/firefox/addon/sqlite-manager/ , ambos são gratuitos.  Claro que existem outros, no entanto gostei mais destes dois.

Vamos então criar uma pequena base dados, para o nosso exemplo. Usei o addon para o firefox SQLite Manager

Depois aberta a aplicação e em Databse - New Database damos um nome a nossa base dados. De seguida vamos criar uma Tabela - Create Table (como mostra a figura em baixo)

Depois de criada a tabela contactos, campos(nome,telefone) coisa simples. Vamos então a visual basic .net
Baixar e instalar o provedor para a plantaforma .net do site http://www.sqlite.org/
Referenciar a dll (system.data.sqlite) ao nosso projecto

Coloquei num modulo, para que fique disponivel em todo o nosso projecto, aqui vamos criar a nossa connection.

Module Module1

Public myConnectionString As String = "Data Source=D:\dados\basedados.sqlite;Version=3;New=True;Compress=True;"

Public connection As New SQLite.SQLiteConnection(myConnectionString)

End Module

Adicionamos um form, ao nosso form adicionamos um datagridview e um button.

 

Ao seleccionamos aqui no imported namespaces a dll system.data.sqlite ou no form adicionamos Imports System.Data.SQLite

e o restante código

'Imports System.Data.SQLite

Public Class Form1

'Declaramos o dataset e o dataadapter

Dim ds As DataSet

Dim da As SQLiteDataAdapter

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'A instrução sql, retorna todos os campos da tabela contactos

Dim sql As String = "select * from contactos"

'Declaramos a nossa conexão a base de dados

Dim connection As New SQLiteConnection(myConnectionString)

' Cria um novo SqliteDataAdapter

da = New SQLiteDataAdapter(sql, connection)

' Cria um novo DataSet

ds = New DataSet("Tabela")

'Define o esquema da tabela

da.FillSchema(ds, SchemaType.Source, "Tabela")

' Preenche o dataset

da.Fill(ds, "Tabela")

'Povoa o nosso datagridview

DataGridView1.DataSource = ds.Tables("Tabela")

' Limpa a ligação à base de dados

connection = Nothing

End Sub

Private Sub guardar()

' Comando para actualizar o dataset

Dim cb As New SQLiteCommandBuilder(da)

' Actualiza a tabela

da.Update(ds, "Tabela")

'Se na nossa tabela contactos não existir PRIMARY KEY

'não vai actualizar a nossa base de dados

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

guardar()

End Sub

End Class

Vamos executar...no caso que surja o erro:

"A assemblagem de modo misto foi criada com base na versão 'v2.0.50727' do tempo de execução e não é possível carregá-la no tempo de execução 4.0 sem informações de configuração adicionais." (System.IO.FileLoadException) Exception Message = "A assemblagem de modo misto foi criada com base na versão 'v2.0.50727' do tempo de execução e não é possível carregá-la no tempo de execução 4.0 sem informações de configuração adicionais.", Exception Type = "System.IO.FileLoadException"                                        

O SQLite foi criado na versão 2 do .net, então no menu projecto vamos ter que adicionar um novo item e seleccione Arquivo de configuração do aplicativo (Application Configuration File) . Torná-lo parecido com este:

<?xml version="1.0" encoding="utf-8" ?>

<configuration>

<startup useLegacyV2RuntimeActivationPolicy="true">

<supportedRuntime version="v4.0"/>

</startup>

</configuration>

Finalmente eis o a funcionar

Até ao próximo artigo...

Base de Dados

    Penso que todos que visitarem este blog já sabem o que é uma base de dados. No entanto deixo-vos um pequeno comentário. Uma Base de dados é um conjunto de registos que contém uma determinada informação, capaz de armazenar dados de forma organizada e estruturada.
    Uma base de dados geralmente é gerida um software conhecido como Sistema Gerenciador de Banco de Dados (SGBD).  As base de dados armazenam informação sobre todo o tipo de coisas, produtos, pessoas,…
    Os sistemas de base dados são ferramentas que nos ajudam na recolha e na organização da informação, que depois pode ser tratada para obtermos os mais diversos resultados.
    Alguns exemplos de bancos dados conhecidos no mundo da informática Access, SQL Server, dBase, Oracle,SyBase, Firebird, Informix, MySQL, PostgreSQL, SQLite,…

Continua no próximo artigo sobre SQLite...

Criar listbox em tempo de execução

Simples

Dim lista As New ListBox

lista.Size = New Size(120, 433) 'Tamanho

lista.Location = New Point(936, 21) 'Localização
Controls.Add(lista) 'Adiciona control ao form