Imagem no FlexGrid

[gustanabe 0]

Estou com problemas para inserir imagem no flexgrid:

 

Dim con As New ADODB.Connection
Dim tbsql As New ADODB.Recordset
Dim consultasql As String
Dim lin As Integer

Private Sub ChkListarTodos_Click()
If ChkListarTodos.Value = 1 Then
msfgradequad.Clear
Call Form_Activate
lin = 1
consultasql = "select * from Cadastro order by Nome"
Set tbsql = con.Execute(consultasql)
Do Until tbsql.EOF
msfgradequad.Rows = lin + 1
msfgradequad.TextMatrix(lin, 0) = tbsql("Codigo")
msfgradequad.TextMatrix(lin, 1) = tbsql("Nome")
msfgradequad.TextMatrix(lin, 2) = tbsql("Editora")
msfgradequad.TextMatrix(lin, 3) = tbsql("Lancamento")
msfgradequad.TextMatrix(lin, 4) = tbsql("Descricao")
msfgradequad.Row = lin
msfgradequad.Col = 5
Set msfgradequad.CellPicture = LoadPicture(tbsql("Caminho"))
lin = lin + 1
tbsql.MoveNext
Loop
Else
msfgradequad.Clear
Call Form_Activate
End If
End Sub

Private Sub Form_Activate()
Me.Top = 0
Me.Left = 0
Me.Width = 6900
Me.Height = 6930
msfgradequad.Rows = 2
msfgradequad.Cols = 6
msfgradequad.FixedRows = 1
msfgradequad.FixedCols = 0
msfgradequad.TextMatrix(0, 0) = "Código:"
msfgradequad.TextMatrix(0, 1) = "Nome:"
msfgradequad.TextMatrix(0, 2) = "Editora:"
msfgradequad.TextMatrix(0, 3) = "Lancamento:"
msfgradequad.TextMatrix(0, 4) = "Descricao:"
msfgradequad.TextMatrix(0, 5) = "Capa:"
End Sub

Private Sub Form_Load()
con.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\quadrinhos.mdb;"
End Sub

O problema eh o seguinte ele exibe a imagem porem nao exibe a imagem inteira, vou postar uma screenshot para verem o problema:

 

 

Aguardando ajuda.

[Claudio Neto 3]

Nunca trabalhei com imagens em flex, ficou legal seu projeto.

Vou tentar achar uma solução aqui e posto de novo.

 

Só me diga uma coisa. Você quer redimensionar a imagem pro tamanho da célula ou a célula pro tamanho da imagem?

[gustanabe 0]

Nunca trabalhei com imagens em flex, ficou legal seu projeto.

Vou tentar achar uma solução aqui e posto de novo.

 

Só me diga uma coisa. Você quer redimensionar a imagem pro tamanho da célula ou a célula pro tamanho da imagem?

 

Primeiramente, valeu pelo elogio.

 

Gostaria de redimensionar a imagem pro tamanho da celula!

Ja procurei em tudo, mas nao achei nada!

Aguardando alguma solucao.

 

Att,

Gustanabe

[Claudio Neto 3]

Sua resposta era o que eu temia.

Não consegui encontrar nada que dimensione a imagem pro tamanho da célula.

Ao contrário sim:

 

Private Sub ChkListarTodos_Click()
If ChkListarTodos.Value = 1 Then
msfgradequad.Clear
Call Form_Activate
lin = 1
consultasql = "select * from Cadastro order by Nome"
Set tbsql = con.Execute(consultasql)
Do Until tbsql.EOF
msfgradequad.Rows = lin + 1
msfgradequad.TextMatrix(lin, 0) = tbsql("Codigo")
msfgradequad.TextMatrix(lin, 1) = tbsql("Nome")
msfgradequad.TextMatrix(lin, 2) = tbsql("Editora")
msfgradequad.TextMatrix(lin, 3) = tbsql("Lancamento")
msfgradequad.TextMatrix(lin, 4) = tbsql("Descricao")
msfgradequad.Row = lin
msfgradequad.Col = 5
Set msfgradequad.CellPicture = LoadPicture(tbsql("Caminho"))
msfgradequad.RowHeight(lin) = LoadPicture(tbsql("Caminho")).Height
msfgradequad.ColWidth(5) = LoadPicture(tbsql("Caminho")).Widht
lin = lin + 1
tbsql.MoveNext
Loop
Else
msfgradequad.Clear
Call Form_Activate
End If
End Sub

Tentei procurar alguma forma de abrir sua imagem salvar em um tamanho reduzido e carregar de novo a pequena, mas não achei nada de como reduzir o tamanho.

 

Espero que sirva o que fiz ou que alguém tenha outra dica.

 

Abraço.