Userform yavaş büyüsün

[arslan]

merhaba. Userform height 155 iken commandbutton1'a basınca 290 a çıkartıyorum. hemen değilde ayarlanabilir bi hızda büyütülebilirmi. yani 155. den 290 a 2. saniyede çıksın istiyorum yada mümkün olabilen bi hızda çıksın

 

[Haluk]

Merhaba;

Ekli dosyadaki örnek işine yarar mı ?

 

[danersin]

Buda alternatif

[vb:1:b75cac21f9]
Private Sub CommandButton1_Click()
For i = Me.Height To 290 Step 10
PauseTime = 0.03
Start = Timer
Do While Timer < Start + PauseTime
Loop
Me.Height = i
Next i
End Sub
[/vb:1:b75cac21f9]

 

[danersin]

Araya doevents koyunca görüntü daha iyi oluyor.

Do While Timer < Start + PauseTime
DoEvents
Loop

 

[arslan]

sn raider ilgine teşekkür ben ilk açılışda büyüsün istememiştim önce normal bi user form açılıyor ihtiyaç halinde büyütüyorum. sanırım yanlış anlattım.
Sn. Danersin'in verdiği kodu uyarladım ve iyi oldu . ikinizede teşekkür ediyorum

 

[arslan]

Evet Araya DoEvents koyunca büyürken renklerde normalleşti tekrar teşekkür

 

[Haluk]

.... ben ilk açılışda büyüsün istememiştim önce normal bi user form açılıyor ihtiyaç halinde büyütüyorum. sanırım yanlış anlattım.

İşin o kısmını, uyarlayabileceğinizi düşünmüştüm...