Visual Basic 6 Kodu Vercem Visual Basic 2008 Express E uyumlu Yapıcak Çok Kısa Kod

18-05-2010, 21:24:17

Private Sub Form_KeyPress(KeyAscii As Integer)
For a = 1 To 100
Onay.ProgressBar1.Value = a
    For b = 1 To 2000000
   Next b
Next a

Close #1
Onay.Hide
  Gokhan.Show
End Sub

Arkadaşlar Bu Kod visual 6 da her hangi bir tuşa basınca progress bar çalışıyor ve progressbar ın o yeşilleri bittiğinde diğer sayfaya geçiyor bu kodu Visual Basic 2008 Express Edition a Uyumlu Yapıcak Arkadaşlarımız Şimdiden TEşekkürler

18-05-2010, 23:21:23

#2

NoVoLuMe

berkekolik adlı üyeden alıntı: mesajı görüntüle

Private Sub Form_KeyPress(KeyAscii As Integer)
For a = 1 To 100
Onay.ProgressBar1.Value = a
    For b = 1 To 2000000
   Next b
Next a

Close #1
Onay.Hide
  Gokhan.Show
End Sub

Arkadaşlar Bu Kod visual 6 da her hangi bir tuşa basınca progress bar çalışıyor ve progressbar ın o yeşilleri bittiğinde diğer sayfaya geçiyor bu kodu Visual Basic 2008 Express Edition a Uyumlu Yapıcak Arkadaşlarımız Şimdiden TEşekkürler

Oleyy.
Çok güzel bir yarışma
Ödülümüz ne olacak...

18-05-2010, 23:26:22

#3

FreeZe

Kimlik doğrulama veya yönetimden onay bekliyor.

Public Class Form1

    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        For a = 1 To 100
            Me.ProgressBar1.Value = a
            For b = 1 To 20000000
            Next b
        Next a
        Me.Hide()
        Form2.Show()
    End Sub
End Class

böyle olması lazım

18-05-2010, 23:30:11

#4

NoVoLuMe

FreeZe adlı üyeden alıntı: mesajı görüntüle

Public Class Form1

    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        For a = 1 To 100
            Me.ProgressBar1.Value = a
            For b = 1 To 20000000
            Next b
        Next a
        Me.Hide()
        Form2.Show()
    End Sub
End Class

böyle olması lazım

Bildiniz
Tebrikler 1 adet Rep kazandınız.

19-05-2010, 19:19:46

#5

berkekolik

FreeZe adlı üyeden alıntı: mesajı görüntüle

Public Class Form1

    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        For a = 1 To 100
            Me.ProgressBar1.Value = a
            For b = 1 To 20000000
            Next b
        Next a
        Me.Hide()
        Form2.Show()
    End Sub
End Class

böyle olması lazım

ÇooooK Saool +Rep

19-05-2010, 20:55:49

#6