Durchsichtiges Textfeld

[developer]

Hallo,

ist es möglich ein Textfeld zu erzeugen, bei dem man keinen weissen Hintergrund, sondern das eigentliche Hintergrundbild sieht? Es müsste quasi durchsichtig sein, wie ein Caption-Feld.

[Gast]

Weiss nicht ob es Dir vielleicht weiterhilft, aber hier ist eine Methode zur Formulartransparenz. Vielleicht kannst Du das eine, oder andere für Dich ableiten.

[developer]

Mhhh... Nicht wirklich.

Habe nun ein (hoffentlich) gutes work-around implementiert:

Die Textfelder sind visible=false gesetzt. Vor den eigentlichen Textfelder sind Caption-Felder (auch ein Array). Wenn nun auf ein Caption-Feld geklickt wird erscheint das Text-Feld. Bei einem Lost-Focus werden die Caption-Felder den Text-Felder angeglichen....

Private Sub Label_Click(Index As Integer)

Dim i As Integer


    For i = 0 To Text().UBound

        Text(i).Visible = False

    Next i


    Text(Index).Visible = True

    Text(Index).SetFocus


End Sub



Private Sub Text_LostFocus(Index As Integer)

    Label(Index).Caption = Text(Index).Text

    Text(Index).Visible = False

End Sub

[Gast]

Der Label.Backstyle müsste noch auf transparent geschaltet werden. Und dann das ganze noch als UserControl zu realisieren. Schon hast Du ein Element mehr in Deiner Sammlung.

[developer]

Label.Backstyle hatte ich natürlich auf transparent gesetzt. Hatte ich vergessen zu erwähnen. WEiterhin habe ich auch noch ein KeyPress Event von den Text-Feldern abgefangen und zwar bei ASCII(13) := RETURN verliert das Textfeld den Focus, ergo wird der Text in das Label-Feld übernommen.

[Fallin]

Falls noch der Bedarf an einem transparenten Textfeld besteht, gibt es hier ein Tutorial.

Ist zwar ein wenig "umständlich" aber dafür hat man endlich durchsichtige Textfelder.