Private Sub Workbook_Open()  

      

        Dim WshShell  

        Dim inttext As Integer  

      

        Set WshShell = CreateObject("WScript.Shell")  

          

        inttext = WshShell.popup("Mesaj", 3, "Başlık", vbSystemModal)  

          

    End Sub  

Bu kod ile Excel sayfasının açılışnda messagebox ı 10 sn bekletip kendiliğinden kapanmasını sağlıyorum. Fakat bunu vb.nete nasıl çevirebilirim. vb.net de 10 sn sonra kendiliğinden kapanmıyor.

Teşekkürler

Vb.net de splash ekranı için;
öncelikle splash screen'ına bir adet "timer" kontrolü ekleyelim. "timer1"'in sağ taraftaki "özellikler" (properties) penceresin'de "enabled" özelliğini "true" yapalım. "Interval" değerinide istediğin saniyeye ayarlayabilirsin. (oradaki alan milisaniye değerindendir mesela 5000 yaparsan 5 saniye demektir. ona göre istediğin süreyi belirlersin) daha sonra "timer"'ına çift tıkla açılan kod penceresinde (timer1_click olayına) aşağıdaki kodu yapıştır

Me.close()

Anaformununismi.Show()

Timer1.Stop()

bunları yazdıktan sonra sağ yukarda "solution explorer" penceresinde oluşturduğun "Proje adına" sağ tıkla ve "Properties" bölümünü seç. Açılan ekranda "Startup form" adlı bir bölüm gelecek bu bölümün altındaki listeden "Splash screen"'ini seç.

Hepsi bu kadar. umarım iyi bir anlatım olmuştur.

(26/09/2012, 18:17)chopper07 yazdı: Vb.net de splash ekranı için;
öncelikle splash screen'ına bir adet "timer" kontrolü ekleyelim. "timer1"'in sağ taraftaki "özellikler" (properties) penceresin'de "enabled" özelliğini "true" yapalım. "Interval" değerinide istediğin saniyeye ayarlayabilirsin. (oradaki alan milisaniye değerindendir mesela 5000 yaparsan 5 saniye demektir. ona göre istediğin süreyi belirlersin) daha sonra "timer"'ına çift tıkla açılan kod penceresinde (timer1_click olayına) aşağıdaki kodu yapıştır

Me.close()

Anaformununismi.Show()

Timer1.Stop()

bunları yazdıktan sonra sağ yukarda "solution explorer" penceresinde oluşturduğun "Proje adına" sağ tıkla ve "Properties" bölümünü seç. Açılan ekranda "Startup form" adlı bir bölüm gelecek bu bölümün altındaki listeden "Splash screen"'ini seç.

Hepsi bu kadar. umarım iyi bir anlatım olmuştur.

Teşekkürler