oyun.zip
(Dosya Boyutu: 90,96 KB | İndirme Sayısı: 282)
Yine bir Access oyunu. Örnek olması açısından ekliyorum.
oyun.zip
(Dosya Boyutu: 90,96 KB | İndirme Sayısı: 282)
oyun.zip
(Dosya Boyutu: 90,96 KB | İndirme Sayısı: 282)
Bazen "bu Access ile sanırım yakında yemek de yaparız" diye düşünüyorum. Access komutlarıyla yapılmış bir klasik tetris oyunu. Birçok komutu öğrenmek için ideal çalışma...
tetris.zip
(Dosya Boyutu: 87,62 KB | İndirme Sayısı: 222)
tetris.zip
(Dosya Boyutu: 87,62 KB | İndirme Sayısı: 222)
modüle
formun yüklemesine
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
Ornek.rar
(Dosya Boyutu: 18,64 KB | İndirme Sayısı: 172)
Kod:
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 Functionformun yüklemesine
Kod:
Private Sub Form_Load()
LabelSpecialEffect Me
End SubKod:
.OnEnter = "=SetLableStyle(" & strControlName & ",2)"
.OnExit = "=SetLableStyle(" & strControlName & ",1)"
Ornek.rar
(Dosya Boyutu: 18,64 KB | İndirme Sayısı: 172)
bu klasörü c dizini altına kopyalayın
ahbs programındaki kesin kayıtlı hastalarınızı kopyala yapıştır ile sutun kkh1 Excel dosyasına başlıklarını değiştirmeden ekleyin
sevk.mdb yi çalıştırıp güncelle butonuna bastığınızda kesin kayıtlı hastalarınızı sevk etmek için artık program hazırdır
sevk.rar
(Dosya Boyutu: 789,47 KB | İndirme Sayısı: 309)
ahbs programındaki kesin kayıtlı hastalarınızı kopyala yapıştır ile sutun kkh1 Excel dosyasına başlıklarını değiştirmeden ekleyin
sevk.mdb yi çalıştırıp güncelle butonuna bastığınızda kesin kayıtlı hastalarınızı sevk etmek için artık program hazırdır
sevk.rar
(Dosya Boyutu: 789,47 KB | İndirme Sayısı: 309)
Hoşgeldin, Ziyaretçi
Forum İstatistikleri
Kimler Çevrimiçi
Şu anda 424 aktif kullanıcı var.
AdsenseBot, AhrefsBot, Applebot, Bing Bot, Core, Google Bot, SemrushBot, Trendiction, UptimeRobot, grapeshot, majestic12, proximic, ali.70, C*e*l*o*y*c*e, yavuz66
(3 Üye - 409 Ziyaretçi)
Son Yazılanlar
Otopark - (Yediemin) - ( ...
Yorum
13
•
Okunma
9.624
