Sub test1
hd.ToastMessageShow("Tutto quello che vuoi scrivere e anche quello che non vuoi.", True)
SetHudMultiline
End Sub
'Setzt Multiline für ToastMessageShow
Public Sub SetHudMultiline
Dim no1 As NativeObject = Main.App.KeyController
no1 = no1.GetField("view")
Dim no2 As NativeObject
Dim hud As NativeObject = no2.Initialize("MMBProgressHUD").RunMethod("HUDForView:", Array(no1))
If hud.IsInitialized Then
Dim L As Label = hud.GetField("label")
If L.Text.MeasureWidth(L.Font) > (GetDeviceLayoutValues.Width - 100) Then
Dim str As String
Dim txt() As String = Regex.Split(" ", L.Text)
L.Text = ""
For i = 0 To txt.Length - 1
str = str & txt(i)
If str.MeasureWidth(L.Font) < (GetDeviceLayoutValues.Width - 100) Then
txt(i) = txt(i) & " "
Else
txt(i) = txt(i) & CRLF
str = ""
End If
Next
For i = 0 To txt.Length - 1
L.Text = L.Text & txt(i)
Next
End If
L.Multiline = True
End If
End Sub