[Sedat KARACA]

İyi Geceler Arkadaşlar; Yapmayı planladığım bir proğramımda 180 adet CommanButton ve 180 adet TextBox var. cmd1, cmd2, cmd3....cmd180 ve txt1, txt2, txt3... txt180 şeklinde karşılıklı sıralanmış. Her cmd butona sol fare ile tıkladığımda aynı numaralı txt 1 sayı artsın, sağ fare ile tıkladığımda 1 eksilsin şeklinde bir fonksiyon yazılabilirmi? Yoksa 180 buton için ayrı ayrı kod yazmam gerekecek. Mümkünmüdür acaba.

[Ersoy AYDIN]

Üstad , hemşehrim iyi akşamlar...

180 adet CommandButton mu ? yapmaya çalıştığınız uygulamanın amacını anlatabilir misiniz ?..Bu akşam benim şaşırma akşamım sanırım...180 adet buton tek ekranda...

sol click i hallederiz de sağ click olayını hiç denemedim , ama hallederiz herhalde...

[Sedat KARACA]

Üstad , hemşehrim iyi akşamlar...

180 adet CommandButton mu ? yapmaya çalıştığınız uygulamanın amacını anlatabilir misiniz ?..Bu akşam benim şaşırma akşamım sanırım...180 adet buton tek ekranda...

sol click i hallederiz de sağ click olayını hiç denemedim , ama hallederiz herhalde...

İyi Geceler Esoy Bey; Hemşehri olduğumuza çok sevindim. Kısaca olayı anlatayım. Trafik ceza işlemlerinde görev yapıyorum. Yaya ve ekip olarak 10 tane denetim görevlimiz var. Günlük icraatları çok kısa süre içerisinde almak durumunda kalıyoruz çoğu zaman. 180 adet ceza türü var ve bunlar telsiz ile bildiriliyor. Bunun için hepsini ekranda görerek verilen sayılar ilgili kutuya yazıldıktan sonra bir buton ile ilgili ekibin sayfasına aktarmak. Örnek 5423 ekibi 23. madde 5 tane dediği zaman ilgili text e 5 yazıp 5423 butonu ile sayfasına aktarılması gerek. Aynı anda başka ekip de bildirimde bulunduğunda onu da aynı şekilde aktarılması gerekiyor. Bilmem anlatabildim mi. Bu fonksiyon yazılabilirse diğer işlemlerini halledebilirim zannetiyorum. Ayrıca ben Trabzon' luyum Giresun' da çalışıyorum. Yolunuz düşer bir kahvemi içerseniz çok memnun kalırım. Çalışmalarınızda başarı ve kolaylıklar diliyorum.

[Bülent]

Sedat Bey, bahsettiğiniz iş için SpinButton var.
Orientation özelliğini Horizontal yapıp, sağlı-sollu tıklayarak değer değiştirebilirsiniz. Tek kalan Textbox'ları değerinin değişmesi için kodları yazmak.

[Sedat KARACA]

Sedat Bey, bahsettiğiniz iş için SpinButton var.
Orientation özelliğini Horizontal yapıp, sağlı-sollu tıklayarak değer değiştirebilirsiniz. Tek kalan Textbox'ları değerinin değişmesi için kodları yazmak.

Bülent Bey teşekkürler. SpinButton güzel bir uygulama ancak ceza maddelerini yazmam için ayrı bir label gerekeceğinden fazla yer kaplıyor. Commanbutton olursa caption a cezaları yazdığımda daha uygun düşüyor.

[Sedat KARACA]

İyi Geceler Arkadaşlar; Yapmayı planladığım bir proğramımda 180 adet CommanButton ve 180 adet TextBox var. cmd1, cmd2, cmd3....cmd180 ve txt1, txt2, txt3... txt180 şeklinde karşılıklı sıralanmış. Her cmd butona sol fare ile tıkladığımda aynı numaralı txt 1 sayı artsın, sağ fare ile tıkladığımda 1 eksilsin şeklinde bir fonksiyon yazılabilirmi? Yoksa 180 buton için ayrı ayrı kod yazmam gerekecek. Mümkünmüdür acaba.

İyi günler Sedat Bey,

Spinbutton veya CommandButton tercih size kalmiş, yinede size cmd üzeri fareye solu tıkladığınızda Textbox´un sayısının artması ve sağı tıkladığınızda eksilmesi için kodu vermek istedim.

Kod: Tümünü seç

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then TextBox1.Text = Val(TextBox1.Text) + 1
If Button = 2 Then TextBox1.Text = Val(TextBox1.Text) - 1
End Sub

Metin Bey teşekkürler.


Kolay gelsin

M.Uzun

Metin Bey teşekkürler. Bu şekilde güzel olacak.

[Tarkan VURAL]

Arkadaşın verdiği örnek bence güzel ve mantıklı. Ama bunu bütün butonlara uygulamak için 180 prosedür eklemek gerek. Class ile kısaltılabilir. Ayrıca butonun amacı sadece arttır-eksilt ise butona da gerek yok, TextBox nesnesinin kendi de olur. Benimki alternatif bir fikir. Uygulamak isterseniz örnek ekliyorum.

Class module içine ;

Kod: Tümünü seç

Public WithEvents Textkutusu As MSForms.TextBox

Private Sub Textkutusu_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If dusuldu = True Then GoTo cikis
Textkutusu.Value = sifirmi(Textkutusu.Value, Button)
Exit Sub
cikis:
dusuldu = False
End Sub


Module içine ;

Kod: Tümünü seç

Public evn() As New Class1, dusuldu As Boolean
Function sifirmi(ByVal NesneDegeri As Variant, Button As Integer) As Long
If NesneDegeri = "" Then Exit Function
Select Case Button
    Case Is = 1
        If NesneDegeri <= 0 Then
            sifirmi = 1
        Else
            sifirmi = NesneDegeri + 1
        End If
    Case Is = 2
        If NesneDegeri > 0 Then
            dusuldu = True
            sifirmi = NesneDegeri - 1
        End If
End Select
End Function

Static Sub Kontrol()
For Each n In UserForm1.Controls
    i = i + 1
    ReDim Preserve evn(1 To i)
    If TypeName(n) = "TextBox" Then
        Set evn(i).Textkutusu = n
    End If
Next
End Sub


UserForm içine ;

Kod: Tümünü seç

Private Sub UserForm_Initialize()
Call Kontrol
End Sub


Herhangi bir TextBox üzerinde sol tuşa bastıkça sayı artar, sağa bastıkça sayaç düşer. Bu mantığın fikir babası Metin Uzun' dur. Fikir üzerinde sadece geliştirme yaptım. Düşüncesi için kendisine teşekkür ediyorum.

[Tarkan VURAL]

Hatırlatma için teşekkürler.
Oradaki class ismi elle değiştirilebilir şekilde o yüzden class module hangi ismi yazarsanız, tanımı da kodlamada öyle yapmanız gerekecek.

[Sedat KARACA]

Türkiye'nin yapacağı yeni uzay gemisinin kodlarını bulmuş gibi oldum. Elinize emeğinize sağlık.