label nesnesi süreli görünüm ?

[marimar]

merhaba arkadaşlar userforma eklenen bir label nesnesi bir de buton var. açılışta visible özelliği false olarak gelen label nesnesinin butona basınca 5 saniye görünüp tekrar gizlenmesini istiyorum. teşekkürler.

 

[hamitcan]

Aşağıdaki kodları, sırasıyla,
Modul içine...

Sub GIZLE()
    UserForm1.Label1.Visible = False
End Sub

UserForm1 içine...

Private Sub CommandButton1_Click()
    Label1.Visible = True
    Application.OnTime Now + TimeValue("00:00:05"), "GIZLE"
End Sub

yerleştirin.

 

[Galus]

Butona basmadan otomatik userfom açılınca 5 sn gözüküp kapaması için kodlar nasıl olmalı?

Saygılar...

 

[hamitcan]

Butona basmadan otomatik userfom açılınca 5 sn gözüküp kapaması için kodlar nasıl olmalı?

Saygılar...

Aşağıdaki kodları, sırasıyla,

Module1 içine...

Sub auto_open()
    UserForm1.Show
End Sub
Sub GIZLE()
    UserForm1.Label1.Visible = False
End Sub

UserForm1 içine...

Private Sub UserForm_Activate()
    Label1.Visible = True
    Application.OnTime Now + TimeValue("00:00:05"), "GIZLE"
End Sub

yerleştirin.

 

[Galus]

Teşekkürler üstadım..