ledmeter ekleme

[hassan26]

Selam Arkadaşlar
UserForm üzerine led meter eklemek istiyorum ama additional controlde göremedim yani varda dikey olanı var. Ben yatay olanından yapmak istiyorum. Kaydet yapınca status barda hazır yazan yerde doluyorya onu userformda nasıl gösterebiliriz. Application.Visible = False olarak çalışıyorumda.
Saygılar.

 

[Ferhat Pazarçevirdi]

Microsoft ProgressBar Control Versinon X.X işinizi görmüyor mu ?

 

[hassan26]

Sayın ferhat bey bu OCX bende gözükmüyordu
regsvr32.exe *****.ocx olarak çalıştırdım şimdi buldum ama Command Buttona nasıl entegre edeceğim. Yani ProgressBar1_MouseDown olayına birşeylermi yazılması gerekir yada aşağıdaki kodlaramı.
Velhasıl beraber nasıl aktif yapacağım bilmiyorum.
Private Sub CommandButton15_Click()
Dim cevap
cevap = MsgBox("KAYDEDİYORUM", vbYesNo, " DİKKAT")
Select Case cevap
Case vbYes: ActiveWorkbook.Save
Case Else
End Select
End Sub
Bilginiz dahilindeyse rica etsem yazarmısınız .
Saygılar

 

[Zeki Gürsoy]

Kaydetme işlemiyle progress durumu eş zamanlı olmaz. Keza Excel kaydederken de durum böyledir.

 

[hassan26]

Arkadaşlar ilginize teşekkür ederim aşağıdaki kodla hallettim aşağı yukarı zamanlama aynı ama dosya büyüdükçe yada büyük dosyaya uygulanınca For a ve b değerlerini yükseltmek gerekiyor max. min değerlerini yani fakat properties ayarlarına dokunmadan koddaki değerle penceredeki değer uyuşmayınca hata veriyor. Alttaki End ise kaydet işleminden sonra programdan çıkılacaksa aktif edilmeli. Tek sorun End aktif edilmeyip programda kalınacaksa Progressbarı temizleyemiyorum
Saygılar.
Private Sub CommandButton15_Click()
Dim cevap
cevap = MsgBox("KAYDEDİYORUM", vbYesNo, " DİKKAT")
Select Case cevap
Case vbYes: ActiveWorkbook.Save
For a = 1 To 100
UserForm8.ProgressBar1.Value = a
For b = 1 To 100
Next b
Next a
MsgBox "Islem tamamlandi", 0, "Sonuc"
Close #1
'End
Case Else
End Select
End Sub

 

[hassan26]

Yada süre işlemini waitsecond bölümünden süreyi uzarakta zaman kazanılabiliyor ama sorun aynı End aktif edilmeyip programda kalınacaksa Progressbarı temizleyemiyorum

Private Sub CommandButton15_Click()
Dim cevap
cevap = MsgBox("KAYDEDİYORUM", vbYesNo, " DİKKAT")
Select Case cevap
Case vbYes: ActiveWorkbook.Save
For i = 0 To 100 Step 20
UserForm8.ProgressBar1.Value = i
WaitSeconds 1
Next i
MsgBox "Islem tamamlandi", 0, "Sonuc"
'End
Case Else
End Select
End Sub