AW: Position untergeordneter Userforms bestimmen
18.07.2019 10:35:22
mmat
Hallo Sven,
du könntest ein Userform programmieren, das die Aufgabe einer Messagebox erfüllt. Das lässt sich leicht über dem aufrufenden Form plazieren.
Beispiel: In dem Userform "Aufrufer" wird ein Knopf betätigt um die Meldung im Userform "Melder" anzuzeigen:
Private Sub CommandButton4_Click()
Load Melder
Melder.Meldung = "Was nun, ja oder nein?"
Melder.Show
End Sub
Der Code von der Massagebox:
Option Explicit
Public Meldung As String
Private Sub CommandButton2_Click()
Me.Hide: Unload Me
End Sub
Private Sub UserForm_Activate()
Dim x As Long, y As Long, h As Long, w As Long
x = Aufrufer.Left
y = Aufrufer.Top
h = (Aufrufer.Height - Me.Height) / 2
w = (Aufrufer.Width - Me.Width) / 2
Me.Left = x + w
Me.Top = y + h
Label1 = Meldung
End Sub
vg, mm