Salve
che c'è che non va in questa sub?
Perché mi dice che l'oggetto deve essere inizializzato?
Uso la stessa sub in un'altra App e non mi crea problemi.
Grazie per ogni suggerimento
Qui come viene creata lblDesMat
Dim lblDesMat As B4XView
lblDesMat = CreateLabel("lblDesMat",0,0,0,0,fSegoe.DEFAULT_BOLD)
pnlRowMat.AddView(lblDesMat, lblQtaExp.Width+1dip, lblQtaExp.Top, (pnlRowMat.Width/8*6)-2dip, lblQtaExp.Height)
lblDesMat.Visible = True
lblDesMat.SetColorAndBorder(Colors.ARGB(255,32,64,96),1dip,Colors.ARGB(255,160,160,255),0dip)
lblDesMat.Text = sDesMat
lblDesMat.SetTextAlignment("CENTER", "CENTER")
lblDesMat.Tag = sCodMat & "-Des"
lblDesMat.TextColor = Colors.ARGB(255,255,255,255)
SetLabelTextSize(lblDesMat,lblDesMat.Text,lblQtaExp.TextSize,10)
che c'è che non va in questa sub?
Perché mi dice che l'oggetto deve essere inizializzato?
Uso la stessa sub in un'altra App e non mi crea problemi.
Grazie per ogni suggerimento
Qui come viene creata lblDesMat
Dim lblDesMat As B4XView
lblDesMat = CreateLabel("lblDesMat",0,0,0,0,fSegoe.DEFAULT_BOLD)
pnlRowMat.AddView(lblDesMat, lblQtaExp.Width+1dip, lblQtaExp.Top, (pnlRowMat.Width/8*6)-2dip, lblQtaExp.Height)
lblDesMat.Visible = True
lblDesMat.SetColorAndBorder(Colors.ARGB(255,32,64,96),1dip,Colors.ARGB(255,160,160,255),0dip)
lblDesMat.Text = sDesMat
lblDesMat.SetTextAlignment("CENTER", "CENTER")
lblDesMat.Tag = sCodMat & "-Des"
lblDesMat.TextColor = Colors.ARGB(255,255,255,255)
SetLabelTextSize(lblDesMat,lblDesMat.Text,lblQtaExp.TextSize,10)