MSFLEX PREENCHER LINHA COM IMAGEM
Pessoal ,
estou tentndo colocar uma imagem em outra linha do msflex, mais não estou conseguindo, no meu codigo,quando mando roda, ele coloca a imagem na 1ª linha, até ai beleza, só que quando mando colocar outra imagem em outra linha, ele apaga a primeira e cola em cima.
Alguem tem alguma sugesta ou ate solução.
Segue o código;
fg1 é o msflex,ok.
fg1.TextMatrix(key, 7) = TxtLocalImagem.Text
Me.Picture1.Picture = LoadPicture(fg1.TextMatrix(key, 7))
[ô]fg1.CellPicture(key, 8) = Picture1.Picture [ô] aqui não dá certo
With fg1
If key = 1 Then
.Col = 8
Set .CellPicture = Picture1.Picture
End If
If key = 2 Then
If .Rows = 3 Then
If .RowSel = 1 Then
.Col = 8
UCase (Chr(.CellPicture = Picture1.Picture))
[ô]Set Grid.CellPicture = LoadPicture(Picture1.Picture)
[ô]Set .CellPicture = Picture1.Picture
End If
End If
End If
If key = 3 Then
.Rows = 2 + 1
.Col = 8
Set .CellPicture = Picture1.Picture
End If
Linha = Linha + 1
End With
estou tentndo colocar uma imagem em outra linha do msflex, mais não estou conseguindo, no meu codigo,quando mando roda, ele coloca a imagem na 1ª linha, até ai beleza, só que quando mando colocar outra imagem em outra linha, ele apaga a primeira e cola em cima.
Alguem tem alguma sugesta ou ate solução.
Segue o código;
fg1 é o msflex,ok.
fg1.TextMatrix(key, 7) = TxtLocalImagem.Text
Me.Picture1.Picture = LoadPicture(fg1.TextMatrix(key, 7))
[ô]fg1.CellPicture(key, 8) = Picture1.Picture [ô] aqui não dá certo
With fg1
If key = 1 Then
.Col = 8
Set .CellPicture = Picture1.Picture
End If
If key = 2 Then
If .Rows = 3 Then
If .RowSel = 1 Then
.Col = 8
UCase (Chr(.CellPicture = Picture1.Picture))
[ô]Set Grid.CellPicture = LoadPicture(Picture1.Picture)
[ô]Set .CellPicture = Picture1.Picture
End If
End If
End If
If key = 3 Then
.Rows = 2 + 1
.Col = 8
Set .CellPicture = Picture1.Picture
End If
Linha = Linha + 1
End With
ex.:
TextMatrix.row = 1 [ô]linha
TextMatrix.col = 1 [ô]coluna
TextMatrix.cellpictute = image1 [ô]coloca sua imagem dentro do componente image1 do vb
ou
TextMatrix.cellpictute = loadpicture([Ô]C:\imagem.jpg[Ô])
ve ai.
TextMatrix.row = 1 [ô]linha
TextMatrix.col = 1 [ô]coluna
TextMatrix.cellpictute = image1 [ô]coloca sua imagem dentro do componente image1 do vb
ou
TextMatrix.cellpictute = loadpicture([Ô]C:\imagem.jpg[Ô])
ve ai.
Já tentei, einda continua apagando a imagem da 1ª linha e colando em cima, será que tem como ele verificar se tem uma imagem, e passar para a outa linha.
Tópico encerrado , respostas não são mais permitidas