Da cosa è effettivamente composto l'oggetto LCDlabel

[vuott]

Senza andare a spulciare fra i sorgenti, potete vedere da cosa è essenzialmente composto l'oggetto LCDLabel con questo semplice codice (ponete su un Form un oggetto LCDLabel):   

Codice: gambas [Seleziona]

Private segreto As String


Public Sub Form_Open()

  Dim ob As Object
  
  For Each ob In LCDLabel1.Children
    segreto = Object.Type(ob)
  Next

  Object.Attach(ob, FMain, "OggettoSegreto")

End


Public Sub OggettoSegreto_Draw()

  With Paint
    .DrawRichText(segreto, 0, 0, 100, 20)
    .End
  End With

End

[sotema]