DATAGRIDVIEW

JCMAFIOZO 27/10/2012 16:44:41
#412979
CN1.Open()
Try
data.Clear()
Dim query As String = ([Ô]SELECT * from login [Ô])
comando1 = New MySqlCommand(query, CN1)
Adapter.SelectCommand = comando1
Adapter.Fill(data)
dbgriduser.DataSource = data

If dbgriduser.Width > 100 Then dbgriduser.AutoSize = False
Dim scolumn As DataGridViewColumn = dbgriduser.Columns(1)
scolumn.Width = 130
If dbgriduser.Height > 100 Then dbgriduser.AutoSize = False
Dim row As DataGridViewRow = dbgriduser.Rows(0)
row.Height = 98

Catch ex As MySqlException
MsgBox(ex.ToString)
End Try
CN1.Close()
----------------------------------------------
Assim to Carregando o Meu DataGridView.

Pergunta...
Queria Saber Como Eu Faço Para dar um Strech de uma Imagen no DataGridView?
Se nao Entendeu Pode Pergunta Que eu explico..
Obrigado!
PROFESSOR 16/12/2012 00:41:40
#416023
Bom, a pergunta é clara. Você quer que as imagens gravadas na base de dados apareçam na grade, cobrindo por inteiro a área definida para a célula. Se você estivesse falando sobre Asp.NET ou sobre WPF, seria bem fácil, na verdade. No WinForms, a coisa é um pouco diferente, eu mesmo faria um novo componente, herdando desde os DataGridViewImageColumn, o que seria mais complicadinho. Mas se preferir algo mais simples, supondo que sempre haverá uma imagem e que ela seja compatível com um Drawing.Bitmap, você pode arriscar o seguinte, no evento CellFormatting:

    Private Sub DataGridView1_CellFormatting(sender As Object, _
                                                                          e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
        [ô][ô]n[ô] é a posição da coluna onde a imagem será [Ô]plotada[Ô].
        Dim n As Integer = 10
        If e.ColumnIndex = n Then
            [ô]Aqui você carrega as dimensões da célula.
            Dim rct As Rectangle = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).ContentBounds
            [ô]Largura
            Dim w As Integer = rct.Width
            [ô]Altura.
            Dim h As Integer = rct.Height
            [ô]Converte-se o valor da célula em bitmap
            Dim bmp As Bitmap = CType(e.Value, Bitmap)
            [ô]Enviar á célula a [Ô]miniatura[Ô] da imagem real.
            e.Value = bmp.GetThumbnailImage(w, h, Nothing, IntPtr.Zero)
        End If
    End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar