Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
20/11/2008 17:53
Konu Sahibi
esrefigit
Yorumlar
12
Okunma
4524
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

esrefigit


 Belirtilmemiş
 599
 59
 30/10/2008
359
 Konya
 
 Ofis 2003
 20/09/2018,16:01
modüle

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Compare Database
Option Explicit

Private Const LABEL_RAISED_BackColor = 14474460
Private Const LABEL_SUNKEN_BackColor = 15785160
Dim lngLabelCurrentColor As Long


Public Sub LabelSpecialEffect(frm As Form, Optional intEffect As Integer = 2)
On Error Resume Next
Dim ctl As Control
Dim strControlName As String

For Each ctl In frm.Controls
    With ctl
    If .ControlType = acTextBox Or .ControlType = acComboBox Then
        .BorderStyle = 1
        .BorderColor = 0
        .BorderWidth = 3
        .SpecialEffect = intEffect
        With .Controls(0)
            strControlName = .Name
            .Caption = ctl.Name
            .BorderStyle = 1
            .BorderColor = 0
            .BorderWidth = 3
            .BackStyle = 1
            .BackColor = LABEL_RAISED_BackColor
            .SpecialEffect = 1
        End With
        .OnEnter = "=SetLableStyle(" & strControlName & ",2)"
        .OnExit = "=SetLableStyle(" & strControlName & ",1)"
    End If
    End With
Next
    
End Sub
Public Function SetLableStyle(ctl As Control, Optional intEffect As Integer = 2)
On Error Resume Next
Select Case intEffect
    Case 1
        lngLabelCurrentColor = LABEL_RAISED_BackColor
    Case 2
        lngLabelCurrentColor = LABEL_SUNKEN_BackColor
End Select
With ctl
    .BackStyle = 1
    .BackColor = lngLabelCurrentColor
    .SpecialEffect = intEffect
End With

End Function



formun yüklemesine

Kod:
Private Sub Form_Load()
  LabelSpecialEffect Me
End Sub


burada asıl ilginizi çekecek olan yapılan bir kodu diyelim bir formdaki bütün metin kutularının yada etiketlerin yada düğmelere ekliyeceksiniz işte bu kısım formdaki bütün metin kutularının giriş ve çıkışlarına SetLableStyle fonsiyonunu çağırmayı ekliyor bunu bir çok yerde kullanabilirsiniz

Kod:
.OnEnter = "=SetLableStyle(" & strControlName & ",2)"
        .OnExit = "=SetLableStyle(" & strControlName & ",1)"


Ek Dosyalar
.rar   Ornek.rar(Dosya Boyutu: 18,64 KB / İndirme Sayısı: 167)
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz

Kullanici Avatari

syrup


 196
 1
 30/10/2008
34
 Çanakkale
 
 Ofis 2003
 08/10/2011,16:43
güzelmiş eşref. attın havanı yine. Img-grin

.OnEnter = "=SetLableStyle(" & strControlName & ",2)"

bu kodların sonundaki sayısal değerleri 0 ile 5 arasında değiştirip uygulanan efect türünün kişiselleştirilebileceğinide söyle baride tam olsun Hoba


[Resim: image.php?s=df028e861d094075be82dfc55ca1...1225646923][Resim: mousey.gif]

Kullanici Avatari

Puletin


 Belirtilmemiş
 1.717
 40
 01/11/2008
416
 -
 
 Ofis 2003
 24/12/2016,00:18
Eşref hocam eline sağlık. Yenilerini de bekliyoruz..
Az


Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...

Kullanici Avatari

adnan


 55
 112
 11
 30/10/2008
0
 Ankara
 
 
 03/02/2018,13:18
Merhaba;

Sn. Eşfer hocam süpersiniz elinize sağlık.

Saygılarımla.



Kullanici Avatari

bayFARUK


BA.... FA....
 43
 85
 17
 30/10/2008
37
 Sivas
 müdür
 Ofis 2010 64 Bit
 14/04/2018,11:09
eline sağlık teşekkürler.
(kodlarını küçük bir örnekle paylaşırsan faydalanacak arkadaş sayısı daha çok olcak kanısındayım.) saygılar..


[Resim: gif48.gif]

Kullanici Avatari

ayhan2122


 41
 681
 26
 30/10/2008
451
 -
 
 Ofis 2003
 26/07/2018,20:20
Biri bana
FOR EACH ...
NEXT

olayını anlatsın yoksa Fur


Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  form üzerindeki metin kutusunun boyutunu otomatik ayarlama mehmetdemiral 7 4.972 08/04/2018, 20:58
Son Yorum: Mali06
  İşlemci & Mac Adresi & Anakart ve Harddisk Fiziksel seri noya göre Lisans Key üretme mehmetdemiral 38 23.183 31/01/2018, 11:06
Son Yorum: romanci
Photo Formdaki Veriye Göre Klasör Açıp, Açılan Klasöre Resim Ekleme donepezil 34 4.361 06/02/2017, 09:40
Son Yorum: burhanb
Çözüldü İlçe kriterine göre rapor alma sorunu Buldozer1 1 949 12/02/2016, 22:32
Son Yorum: atoz112
  Aynı listeyi yetkiye göre filtreleme mehmetdemiral 6 1.773 27/05/2015, 08:27
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444