meinst du ein andere Form die bereits geladen ist in den Vordergrund setzen?
Wie wärs mit der eigenschaft Setfokus oder so....ka wie die genau heißt ^^ _________________
Chickenman_ Poster
Anmeldedatum: 24.04.2007 Beiträge: 149
Verfasst am: 30.05.2007, 17:51
Also
man klickt auf den button und es öffnet sich bzw schieb sich ein menü /oder sowas unter dem button bzw unter der form1 auf.ähnlich wie beim handy.
Mal überlegen wie das gehen kann Ich denke mann müsste die form 2 die potion geben unter der form zu sein und das die form 1 immer im vorder grund ist vor der form 2
!
Aber wie blos
PS: kannst du mal auf die pn antworten wegen mathe ding da
Form2.height packst du in einen Timer wo die Größe immer etwas erhöht wird.
So müßtest du einen Fließeffekt hinbekommen.
Zusätzlich müßtest du dafür sorgen, dass die erste Form immer im Vordergrund bleibt.
mfg, ZiG _________________ Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
Chickenman_ Poster
Anmeldedatum: 24.04.2007 Beiträge: 149
Verfasst am: 30.05.2007, 18:04
habe es geschaft zieht zwar nicht so gut aus
aber naja
[code]
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Form_Load()
Load Form1
Form1.Show , Me
End Sub
[/code]
dann habe ich halt die form ohne alles gemacht und so platziert das
sie unter dem button erscheint problem sieht doof aus
besser ist glaub ich die form einfach kleiner zu machen und
per button sie dann größer zu machen
mfg, ZiG _________________ Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
r4z3r_ « Webmaster »
Anmeldedatum: 06.02.2007 Beiträge: 252
Verfasst am: 30.05.2007, 18:33
meinst du vll sowas?:
Benötigt werden 2 Timer, jeweils mit den Namen "oeffnen" und "schliessen"
ein commandbutton "Command1" mit der caption "Öffnen" bzw. "Schließen"
[code]Private Sub Command1_Click()
If Command1.Caption = "Öffnen" Then
oeffnen.Enabled = True
Command1.Caption = "Schließen"
Else
oeffnen.Enabled = False
schliessen.Enabled = True
Command1.Caption = "Öffnen"
End If
End Sub
Private Sub oeffnen_Timer()
If Form1.Height < 5000 Then
Form1.Height = Form1.Height + 10
Else
oeffnen.Enabled = False
End If
End Sub
Private Sub schliessen_Timer()
If Form1.Height > 3400 Then
Form1.Height = Form1.Height - 10
Else
schliessen.Enabled = False
End If
End Sub
[/code]
das ist jetzt eine lösung mit nur einer form, hoffe es ist trotzdem das was du willst
ps: achte auf die größe der form! die height eigenschaft sollte etwa 3400 sen
Die Lösung von r4z3r ist gut..und sieht auch gut aus..mit 2 formen is das nich so dolle _________________
ZiG_ Überflieger
Anmeldedatum: 07.03.2007 Beiträge: 1248
Verfasst am: 30.05.2007, 19:07
Nach zwei Formen wurde gefragt. Zwei Formen wurden geliefert.
Was ihr draus macht ist eure Sache.^^ _________________ Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)