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.

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.

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

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.

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.

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.