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.