zooflow: msgbox

This commit is contained in:
Jonathan Jenne
2022-05-24 12:16:23 +02:00
parent 6cefffc2a6
commit ba3b4c7bf5
12 changed files with 117 additions and 90 deletions

View File

@@ -28,7 +28,7 @@ Public Class frmDialog
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
txtContent.Text = pMessageText
txtContent2.Text = pMessageText
txtTitle.Text = pTitle
Select Case pDialogType
@@ -62,7 +62,7 @@ Public Class frmDialog
End Select
Dim oLineBreaks = txtContent.Text.Split(vbNewLine).Count
Dim oLineBreaks = txtContent2.Text.Split(vbNewLine).Count
If oLineBreaks > 6 Then
Dim oHeightOffset = oLineBreaks * 20