Unqown
Seçkin Üye
Merhabalar!
Sizlere loader yapımından bahsedicem.
Öncelikle yeni bir proje oluşturuyoruz.
İlk adım olarak, timer ekliyoruz.
Ve, timer'ın davranışını aktif olarak değiştiriyoruz.
Ve label ekliyoruz.
Label'in özelliklerini ayarlıyoruz.
Ve bir tane daha label ekliyoruz.
Ve ismini, "Durum %100" koyuyoruz.
Şimdi ProgressBar ekliyoruz.
Ardından yeni bir form oluşturuyoruz.
Ve artık kodlamaya geçebiliriz.
Tasarım kısmından, timer'a 2 kez tıklıyoruz.
Önce değişken tanıtıyoruz. "unqown" yerine herhangi bir şey yazabilirsiniz.
Kodlar,
Ve artık başlatabiliriz. F5 tuşuna basıyoruz.
%100 olduğu zaman 1. ekranın kapanmasını istiyorsanız, kodlara şunu yazınız.
Konuya yorum yapmayı ve like atmayı unutmayın.
Sizlere loader yapımından bahsedicem.
Öncelikle yeni bir proje oluşturuyoruz.
İlk adım olarak, timer ekliyoruz.
Ve, timer'ın davranışını aktif olarak değiştiriyoruz.
Ve label ekliyoruz.
Label'in özelliklerini ayarlıyoruz.
Ve bir tane daha label ekliyoruz.
Ve ismini, "Durum %100" koyuyoruz.
Şimdi ProgressBar ekliyoruz.
Ardından yeni bir form oluşturuyoruz.
Ve artık kodlamaya geçebiliriz.
Tasarım kısmından, timer'a 2 kez tıklıyoruz.
Önce değişken tanıtıyoruz. "unqown" yerine herhangi bir şey yazabilirsiniz.
Kodlar,
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 ClassVe artık başlatabiliriz. F5 tuşuna basıyoruz.
%100 olduğu zaman 1. ekranın kapanmasını istiyorsanız, kodlara şunu yazınız.
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 ClassKonuya yorum yapmayı ve like atmayı unutmayın.