user form vergrößern
13.01.2004 20:39:52
Tina
ich habe mir ne bsp mappe runtergeldaen, die beim öffnen ne userform offnet, die sich immer vergrößert.....
hier der code der userform:
Private Sub CommandButton1_Click()
Willkommen.Hide
Unload Willkommen
End Sub
Private Sub UserForm_Activate()
Dim sngVergr As Single, sngSpeed As Single, intWarteZeit As Integer
With Me
.Width = 32
.Height = Willkommen.Width * 0.75
.Left = (ActiveWindow.Width - .Width) / 2
.Top = (ActiveWindow.Height - .Height) / 2 + 50
End With
sngVergr = 4
sngSpeed = 2.5
x_vergr = Willkommen.Width * sngVergr
intWarteZeit = 100
CommandButton1.Visible = False
Label1.Visible = False
With Me
Do While x_vergr > .Width
.Width = Willkommen.Width * (1 + sngSpeed / 100)
.Height = Willkommen.Width * (1 + sngSpeed / 100) * 0.75
.Left = (ActiveWindow.Width - .Width) / 2
.Top = (ActiveWindow.Height - .Height) / 2 + 50
.Repaint
Loop
End With
H = 50
L = (Me.Width - Label1.Width) / 2
Label1.Move L, H
Label1.Visible = True
Me.Repaint
If intWarteZeit < 1000 Then
H = (Me.Height - CommandButton1.Height) - 36
L = (Me.Width - CommandButton1.Width) / 2
CommandButton1.Move L, H
CommandButton1.Visible = True
Me.Repaint
Else
t = Timer + intWarteZeit / 1000
T2 = Int(t - Timer)
Do While t > Timer
T1 = Int(t - Timer)
If T1 < T2 Then
Label1.Caption = T1
Me.Repaint
T2 = T1
End If
Loop
Label1.Caption = "Tschüss!"
Me.Repaint
t = Timer + 1
Do Until Timer > t: Loop
Me.Hide
Unload Me
End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = False Then Cancel = True
End Sub
dazu habe ich ein paar fragen, da ich das aussehen und den text der userform verändern will!
> wo kann ich die endgültige größe angeben?
> wie kann ich weitere Textfelder hinzufügen?
> wann wird die msgbox "tschüss" ausgelöst?
versteh den code überhaupt nicht......
Danke Euch!