Sub Text_Beschreibung_TextChanged (Old As String, New As String)
If New.Length > 40 And Faktor_X < 1.0 Then
Text_Beschreibung.TextSize = Faktor_X * 20
Else
Text_Beschreibung.TextSize = Faktor_Y * 20
End If
If New.Length > Max_Eingabe_Zeichen Then
Text_Beschreibung.Text = Old
New = Old
Private XUI As XUI
Dim sf As Object = XUI.Msgbox2Async("Max. Eingabezeichen erreicht!", "Fehler", "OK", "", "", Null)
Wait For (sf) Msgbox_Result
End If
If Text_Beschreibung.Text.Trim = "" Then
Dim c As ColorDrawable
c.Initialize2(Colors.White,10dip,3dip,Colors.Black)
Dim m As ColorDrawable
m.Initialize2(Colors.White,10dip,3dip,Colors.Transparent)
Text_Beschreibung.Background = m
Panel_Beschreibung.Background = c
Else
Dim c As ColorDrawable
c.Initialize2(Colors.Green,10dip,3dip,Colors.Black)
Dim m As ColorDrawable
m.Initialize2(Colors.Green,10dip,3dip,Colors.Transparent)
Dim n As ColorDrawable
n.Initialize2(Colors.Green,0dip,3dip,Colors.Transparent)
Panel_Beschreibung.Background = c
Text_Beschreibung.Background = m
End If
End Sub