ATUALIZAR LABEL, PRECISANDO MUITO DE AJUDA....

LEOBOCARDI 20/10/2010 21:15:28
#355564
é o seguinte, estou com uma função criada pelo nosso amigo ELUCIMAR. Ela funciona que uma beleza. O que eu preciso é o seguinte.

Eu estou utilizando uma skin no meu Projeto. Está funcionando e tudo mais. A Skin não reconhecia Label. Daí estou usando esta função. Onde está minha dúvida.

Eu tenho uma consulta, só que nesta consulta eu simulei um GRID. Como: Uma PictureBox, dentro desta picture eu coloquei várias LABELs (simulando as grades) e um Scroll.

Uso uma função para Atualizar a Grade. Blz até ai. O meu problema está que a Skin e a função da Label reconhece tudo as cores da Label a picturebox enfim só que não está reconhecendo quando vc faz uma consulta para aparecer na Label.

Segue o código:

If TypeOf Ctl Is Label Then
Set Cpt2 = Frm.Controls.Add([Ô]CaptionEam.Caption[Ô], [Ô]C¥[Ô] & j)
j = j + 1
With Cpt2
Set .Container = Ctl.Container
.Visible = True [ô] visivel
.Font.Name = Verdana [ô]Ctl.Font.Name [ô] nome da fonte
.Font.Bold = Ctl.Font.Bold [ô] negrito Empty
.Font.Size = 8 [ô]Ctl.Font.Size [ô] tamanho
.Caption = Ctl.Caption [ô] texto
.Height = Ctl.Height [ô] altura
.Width = Ctl.Width [ô] largura
.Top = Ctl.Top [ô] topo
.Left = Ctl.Left [ô] esquerda
.CaptionINColor = Ctl.ForeColor
.CaptionINColor = vbBlack
.CaptionOUTColor = vbWhite [ô]Ctl.ForeColor
.CaptionOUTColor = Ctl.ForeColor
.CaptionOutlined = False
.CaptionShadowed = True
.CaptionAligmend = Ctl.Alignment
.Enabled = False
[ô] If Ctl.BackColor = &HC0C0C0 Or Ctl.BackColor = &HC0C0C0 Then
.Transparent = True

Else
.BackColor = Ctl.BackColor
.Transparent = False
End if
Ctl.Visible = False
End With
End If
Next
End Function

Me ajudam?
SZBRUUNO 20/10/2010 21:57:49
#355567
Desculpe, mas juro que tentei entender oq vc escreveu
LEOBOCARDI 20/10/2010 21:59:12
#355568
=P ...
LEOBOCARDI 20/10/2010 22:08:21
#355569
Como está na foto. o Skin reconheceu tudo. Só naquele primeira linha do [Ô]Simulador do Grid[Ô] era para estar escrito o código e o nome do vendedor só que não está. Isto que a função não recenheceu!
LUIZCOMINO 20/10/2010 22:13:28
#355570
mas pq vc n coloca um grid?
LEOBOCARDI 20/10/2010 22:15:35
#355572
LUIZ é que estou adaptando a Skin ao projeto se eu for por Grid vai acabar com o codigo dai eu tenho que modificar e muito o codigo este é um dos forms que eu uso este [Ô]Simulador de Grid[Ô].
IRENKO 21/10/2010 06:39:20
#355574
Mas qual a rotina para carregar os dados da sua tabela?
LEOBOCARDI 21/10/2010 09:02:05
#355587
IRENKO
Private Sub Atualizar_Grade()

If Tabela.RecordCount > 0 Then
Tabela.MoveLast
VScroll1.Max = Tabela.AbsolutePosition
Tabela.MoveFirst
For nCont = 0 To 7
If Not Tabela.EOF Then
LbSequencial(nCont).Caption = [Ô] [Ô] & Format(Tabela.AbsolutePosition, [Ô]0000[Ô])
LblCodigo(nCont).Caption = IIf(IsNull(Tabela!NFISC_PGT) = True, [Ô][Ô], Tabela!NFISC_PGT)
LbDescrição(nCont).Caption = IIf(IsNull(Tabela!DTCOMPRA) = True, [Ô][Ô], Tabela!DTCOMPRA)
LblVencto(nCont).Caption = IIf(IsNull(Tabela!DTVENC_PGT) = True, [Ô][Ô], Tabela!DTVENC_PGT)
LblGrupo(nCont).Caption = IIf(IsNull(Tabela!nome) = True, [Ô][Ô], Tabela!nome)
LblvPagar(nCont).Caption = IIf(IsNull(Tabela!VALOR_PGT) = True, [Ô][Ô], Format(Tabela!VALOR_PGT, [Ô]##,##0.00[Ô]))
LblParc(nCont).Caption = IIf(IsNull(Tabela!fracao) = True, [Ô][Ô], Tabela!fracao)

Tabela.MoveNext
Else
LblCodigo(nCont).Caption = [Ô][Ô]
LbDescrição(nCont).Caption = [Ô][Ô]
LblVencto(nCont).Caption = [Ô][Ô]
LblGrupo(nCont).Caption = [Ô][Ô]
LblvPagar(nCont).Caption = [Ô][Ô]
LblParc(nCont).Caption = [Ô][Ô]

End If
Next nCont

Call LbSequencial_Click(0)
VScroll1.SetFocus
Else

For nCont = 0 To 7
LblCodigo(nCont).Caption = [Ô][Ô]
LbDescrição(nCont).Caption = [Ô][Ô]
LblVencto(nCont).Caption = [Ô][Ô]
LblGrupo(nCont).Caption = [Ô][Ô]
LblvPagar(nCont).Caption = [Ô][Ô]
LblParc(nCont).Caption = [Ô][Ô]
Next nCont

MsgBox [Ô]Não há Conta a ser Paga ![Ô], vbSystemModal + vbInformation, [Ô]Atenção...[Ô]
Text1.SetFocus

End If

nValorMax = 7
nValorMin = 0
nAtualFocus = 0
End Sub

Esta é a rotina.
IRENKO 21/10/2010 09:21:08
#355588
LEOBOCARDI, me passe o seu SELECT tambem.
IRENKO 21/10/2010 09:23:36
#355589
O interessante seri vc anexar um exemplo pratico, se possivel.
MARCELO.TREZE 21/10/2010 10:53:25
#355597
também acho que um exemplo pratico ajudaria muito.

eu mesmo não faria este grid personalizado direto no Form, e sim criaria um user control do mesmo, podendo até transformar em ocx.
Página 1 de 3 [25 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar