Diğer Formlarda Kullanma.

[unalh]

S.a Arkadaşlar.


Bir modülde aşağıdaki makroyu kullanıyorum bu makroyu diğer formlardada kullanmak istiyorum nasıl bir işlem yapmam gerekiyor.


Sub Prgm()

Program.BackStyle = fmBackStyleTransparent
Program.BorderStyle = fmBorderStyleNone
Program.ForeColor = &H8000000C
Program.Caption = "Deneme"

End Sub



Diğer formlarda aşağıdaki gibi yazıp kullanmak istiyorum nasıl yapabilirim acaba.


Private Sub UserForm_Initialize()

Call Prgm

End Sub


İlginize teşekkürler.

 

[Mehmet Şahin]

Merhaba,
"Program." şeklinde tanımlanmış olan kontrol nedir?

 

[unalh]

merhaba.

Program.BackStyle = fmBackStyleTransparent
Program.BorderStyle = fmBorderStyleNone
Program.ForeColor = &H8000000C
Program.Caption = "Deneme"

Label nesnesine verilmiş bazı özellikler yukarıda

 

[mustafaine1]

yaptiginiz Prgm modulunu, calistirmak istediginiz tum workbooklara tasimaniz gerekmekte aksi halde call komutu ile calistiramazsiniz..

 

[Mehmet Şahin]

Merhaba,
aşağıdaki kodu userforma kopyalayıp initialize olayında çağırırsanız, tüm label nesnelerine (ya da sizin belirlediklerinize) uygulanacaktır, saygılar.

Private Sub Prgm()
Dim i As Integer
    For i = 0 To Controls.Count - 1
       If Mid(Controls(i).Name, 1, 3) = "Lab" Then
            Controls(i).BackStyle = fmBackStyleTransparent
            Controls(i).BorderStyle = fmBorderStyleNone
            Controls(i).ForeColor = &H8000000C
            Controls(i).Caption = "Deneme"
           End If
    Next i
End Sub

 

[unalh]

dentex ilginize teşekkür ederim.

Ben şöyle düşünmüştüm bu kodu module birkere yazıp sonrasında diğer formlara çağırmak bu şekilde olması mümkünmüdür.

 

[Mehmet Şahin]

bir modüle

Sub Prgm(form_ad)
Dim frm As UserForm
Set frm = form_ad
Dim i As Integer
    For i = 0 To frm.Controls.Count - 1
       If Mid(frm.Controls(i).Name, 1, 3) = "Lab" Then
            frm.Controls(i).BackStyle = fmBackStyleTransparent
            frm.Controls(i).BorderStyle = fmBorderStyleNone
            frm.Controls(i).ForeColor = &H8000000C
            frm.Controls(i).Caption = "Deneme"
           End If
    Next i
End Sub

yazıp
Userformdan,

Private Sub UserForm_initialize()
Call Prgm(Me)
End Sub

şekinde deneyebilirsiniz.

 

[unalh]

Sn dentex ilginize çok teşekkür ederim.

Aslında yapmak istediğimi örnek dosya ile anlatmalıydım şimdi ekliyorum


1 Modüle yazdığımız kodla
veri sayfasındaki H1 hücresindeki Deneme yazısını birçok formda göstermek (Program) Labelinde göstermek.

 

[Mehmet Şahin]

Merhaba,
dosyayı incelermesiniz. Label nesnelerinin adlarını değiştirdim.

 

[Mehmet Şahin]

Eğer label adları "Program" olarak kalacaksa, kodu

If Mid(frm.Controls(i).Name, 1, 4) = "Prog" Then

olarak değiştirebilirsiniz.

 

[unalh]

Evet bu şekli ile istediğim gibi oldu çok teşekkür ederim


Hayırlı işler.

 

[Mehmet Şahin]

Rica ederim, iyi çalışmalar.