Merhabalar!
Sizlere loader yapımından bahsedicem.
Ekli dosyayı görüntüle 35348
Öncelikle yeni bir proje oluşturuyoruz.
Ekli dosyayı görüntüle 35349
Ekli dosyayı görüntüle 35350
İlk adım olarak, timer ekliyoruz.
Ekli dosyayı görüntüle 35351
Ve, timer'ın davranışını aktif olarak değiştiriyoruz.
Ekli dosyayı görüntüle 35352
Ve label ekliyoruz.
Ekli dosyayı görüntüle 35353
Label'in özelliklerini ayarlıyoruz.
Ekli dosyayı görüntüle 35354
Ve bir tane daha label ekliyoruz.
Ekli dosyayı görüntüle 35355
Ve ismini, "Durum %100" koyuyoruz.
Şimdi ProgressBar ekliyoruz.
Ekli dosyayı görüntüle 35356
Ardından yeni bir form oluşturuyoruz.
Ekli dosyayı görüntüle 35358
Ve artık kodlamaya geçebiliriz.
Tasarım kısmından, timer'a 2 kez tıklıyoruz.
Ekli dosyayı görüntüle 35357
Önce değişken tanıtıyoruz. "unqown" yerine herhangi bir şey yazabilirsiniz.
Kodlar,
Ekli dosyayı görüntüle 35360
VB.Net:
Public Class Form1
Dim unqown As String
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
unqown = unqown + 1
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
MsgBox("Başarılı, aktarılıyorsunuz.")
Form2.Show()
Me.Close() 'Eğer kapanmasını istiyorsak, close gizli kalmasını istiyorsak, Me.Hide yazınız
Else
ProgressBar1.Value = unqown
Label2.Text = "Durum: %" + unqown
End If
End Sub
End Class
Ve artık başlatabiliriz.
F5 tuşuna basıyoruz.
Ekli dosyayı görüntüle 35361
Ekli dosyayı görüntüle 35362,
Ekli dosyayı görüntüle 35363
%100 olduğu zaman 1. ekranın kapanmasını istiyorsanız, kodlara şunu yazınız.
Ekli dosyayı görüntüle 35365
VB.Net:
Public Class Form1
Dim unqown As String
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
unqown = unqown + 1
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
MsgBox("Başarılı, aktarılıyorsunuz.")
Form2.Show()
Me.Close() 'Eğer kapanmasını istiyorsak, close gizli kalmasını istiyorsak, Me.Hide yazınız
Else
ProgressBar1.Value = unqown
Label2.Text = "Durum: %" + unqown
End If
End Sub
End Class
Konuya yorum yapmayı ve like atmayı unutmayın.