activex örnekleri

[gulsum1]

burda activex leri kullanma hakkında bilgi vermeyi düşünüyorum o nedenden dolayı bu bölüme haftada bir activex in kullanımını ekleyecem fakat bunu bir tek benim yapmam mantıklı değil eğer arkadaşlada yardımcı olur ve bildikleri activex leri koyarlarsa daha kısa zamanda yeni girenleri bilgilendirmiş oluruz

öncelikle
ekle activex denetimi ordan Microsoft progres bar 6.0 seç

ismini aaa diye değiştir

yanına bir kaydet butonu ve şekillendir

sonra kaydet butonun tıklatıldığında olayına

Private Sub Komut94_Click()
Dim a
aaa.DisplayWhen = "2"
Me.aaa.value = 1
If MsgBox("Değişiklikler kaydedilsin mi?", 36, "K A Y D E T") = 6 Then

Dim X
For X = 1 To 1000
Me.aaa.value = X
Next X




End If
If Me.aaa.Max = "1000" Then
aaa.DisplayWhen = "1"
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub


progres barda iki çşit ilerleme ve iki çeşit görünüm var 1 ilerleme standart tane tane ilerleyen birde düz ilerleyen çeşitse bir yatay bir de dikey ilerleme progres barın özelliklerinden diğer ordan özele tıklayıp gerekli değişiklikleri yapabilirsiniz

 

[gulsum1]

treewiev

öncelikle siteminizde comctl.ocx yüklü olmalı yoksa çalışmaz diyelim var

ozaman ekle activex ordan microsoft treewiev 6.0 tıkla

yine aynı yerden imagelist control 6.0 ekle

bu sizin treewievdeki menülere tıklayınca ve vetıkladıktan sonrki görünecek ikonları koymanıza yarayacak

treewievi koydunuz diyelim referanslardanda comctl ocx ini eklediniz
treewievin bir çok özeliği var görünüm olayında onları burda tektek anlatmayacağım yani menülerin yanında çizgiler çıksın hepsi colabse olsun yada tıkladığım menünün altmenüleri açılsın daha öncekiler kapansın yada açtığım açık kalsın gibi bir çok şey onları deneme yanılma usülü özellikler diğer özele tıklayıp yaparsınız

imageliste ikonları eklediniz en basit ikon + ve - şeklinde paintte yapılmış iki resimdir tıklamadan önce + ikonu görünür tıkladığınızda - ikonu görünür siz istediğiniz ikonuda koyabilrsiniz yani yazdırma menüsü için yazıcı ikonu gibi

ikonları eklediniz şimdi bu imagelisti treewieve göstermeye geldi trewiev özellikler diğer özel kutusunun ordaki 3 noktalı zımbırtıya tıklayın açılan menüde
imagelist bölümünde sizin hazırladığınız imagelistin adını seçin

buraya kadar sadece tasarım olayıydı şimdi menüleri eklemeye geldi access de delphideki bir sihirbaz yok kendiniz kod olarak yazacaksınız

Private Sub Form_Load()

Dim nodobject As Node
With Me.TreeView4.Nodes
Set nodobject = .Add(, , "g", "GELEN EVRAK", 1, 3)
Set nodobject = .Add("g", tvwChild, "F_3", "GELEN GİRİŞ")
Set nodobject = .Add("g", tvwChild, "F_4", "GELEN ARŞİV", 2)


Set nodobject = .Add(, , "giden", "GİDEN EVRAK", 1)
Set nodobject = .Add("giden", tvwChild, "F_1", "GİDEN GİRİŞ", 1, 3)
Set nodobject = .Add("giden", tvwChild, "F_1_TURLERI_LISTE", "GİDEN ARŞİV")
Set nodobject = .Add(, , "RAPOR", "RAPORLAMA", 1)
Set nodobject = .Add("RAPOR", tvwChild, "F_rapor1", "GELEN EVRAK DEFTERİ")
Set nodobject = .Add("RAPOR", tvwChild, "F_rapor2", "GİDEN EVRAK DEFTERİ")

Set nodobject = .Add(, , "ÇIKIŞ", "ÇIKIŞ", 1)

End With


End Sub

Set nodobject = .Add("giden", tvwChild, "F_1", "GİDEN GİRİŞ", 1, 3)
burdaki 1 tıklamadan önceki ikon 3 ise tıkladıktan sonraki ikonun nosu peki bu no nerden geliyor imageliste eklediğimiz ikonların numarası

dikkat ettinizmi birincide asıl menü iknci satırda altına açılacak menü tvwChild olayı alta açılan demektir peki altına açılanın altına açılanı olmazmı oda olur tvwChild tvwChildi yani biz birnci alta g harfiyele tanıttıkya onuda F_3 altakine tanıtacağız a ahmet
a oğuuları,ahmet
oğulları,ahmet,kızları
ahmet,kızları,ayşe
a,oğuuları,mehmet

gibi altın altı gibi sıralayabiriliriz


buda olay kodları tıklayınca ne yapacağına kara verecek olay ben alt form kullanmıştım siz üste açılan form rapaor olay sorgu gönlünüz ne isterse

Private Sub TreeView4_NodeClick(ByVal Node As Object)
Select Case Node
Case "GELEN GİRİŞ"
Alt56.SourceObject = "EVRAK"
Case "GELEN EVRAK"
Alt56.SourceObject = "ANASAYFA"
Case "GİDEN EVRAK"
Alt56.SourceObject = "ANASAYFA"
Case "GİDEN GİRİŞ"
Alt56.SourceObject = "GİDENEVRAK"
Case "GELEN ARŞİV"
DoCmd.OpenForm "gelenevrakarsiv"
Case "GİDEN ARŞİV"
DoCmd.OpenForm "gidenevrakarsiv"

Case "GELEN EVRAK DEFTERİ"
Dim stDocName As String

stDocName = "2006"
DoCmd.OpenReport stDocName, acPreview
Case "GİDEN EVRAK DEFTERİ"



Case "ÇIKIŞ"
DoCmd.Quit
End Select
End Sub

gelecek hafta nın programı treewiev benzeri olan imagecombo activex i pek yakında listwiev activex i ondan sonra flexgrid activex i böylece devam edecek tabii arkadaşlar da eklerse belki benim kullanamadığım kodunu bulamadığım activex ler çıkabilr ortaya birde accessin activex ekledeki activex lerin hepsi access için değil bir çoğu visual basic yada excell için yapılmış yada office nin developer sürümünde çalışanlardır sanırım kaldırmaya erinmişler

 

[gulsum1]

listwiev kullanımı

genel olarak kullanımı treewiev ile aynıdır
'formdaki listwiev e verileri alıyoruz
Private Sub Form_Open(Cancel As Integer)
Ordered.DisplayWhen = 1
cmdAddOrder.DisplayWhen = 1
Call FillEmployees
Call FormatListView
End Sub

'buda veri alma kodu
Public Sub FillEmployees()

On Error GoTo ErrorHandler

'set variables
Dim rs As DAO.Recordset
Dim db As Database
Dim lstItem As ListItem
Dim strSQL As String
Dim strCategory As String

Set db = CurrentDb()
strSQL = "SELECT * FROM Query1"
Set rs = db.OpenRecordset(strSQL)

With Me.ListView1
'Set ListView style

.SmallIcons = Me.ilstCategories.Object
'This is not supported by ListView 5

'Clear Header and ListItems
.ListItems.Clear
.ColumnHeaders.Clear
End With
'Set up column headers
With Me.ListView1.ColumnHeaders
.Add , , "ADI", 2000, lvwColumnLeft
.Add , , "STOK", 2500, lvwColumnLeft


End With
' Add items and subitems to list control.

rs.MoveFirst
Do Until rs.EOF
Set lstItem = Me.ListView1.ListItems.Add()
lstItem.Text = Nz(rs!ADI)
lstItem.SubItems(1) = Nz(rs!STOK)

strCategory = Nz(rs!ADI, "AYVA")
lstItem.SmallIcon = strCategory






rs.MoveNext
Loop
'close recordset
rs.Close
DoCmd.Echo True
ErrorHandlerExit:
Exit Sub
ErrorHandler:
If Err = 3021 Then ' no current record
Resume Next
Else
MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
Resume ErrorHandlerExit
End If

End Sub

Private Sub FormatListView()

Dim Item As ListItem
Dim Counter As Long
Dim FreightAmount As Currency
' Set the variable to the ListItem.

For Counter = 1 To Me.ListView1.ListItems.Count
Set Item = Me.ListView1.ListItems.Item(Counter)
' Set the variable to the Freight
FreightAmount = Nz(Item.SubItems(1))
With Me.ListView1
If FreightAmount = 0 Then
.ListItems.Item(Counter).ForeColor = vbRed
.ListItems.Item(Counter).ListSubItems(1).ForeColor = vbRed
.ListItems.Item(Counter).Bold = True
.ListItems.Item(Counter).ListSubItems(1).Bold = True
End If
If FreightAmount = 1 Then
.ListItems.Item(Counter).ForeColor = 8388736
.ListItems.Item(Counter).ListSubItems(1).ForeColor = 8388736
.ListItems.Item(Counter).Bold = True
.ListItems.Item(Counter).ListSubItems(1).Bold = True
End If

If FreightAmount > 10 Then
.ListItems.Item(Counter).ForeColor = vbBlue
.ListItems.Item(Counter).ListSubItems(1).ForeColor = vbBlue
.ListItems.Item(Counter).Bold = True
.ListItems.Item(Counter).ListSubItems(1).Bold = True

End If
If FreightAmount >= 100 Then
.ListItems.Item(Counter).ForeColor = 39423
.ListItems.Item(Counter).ListSubItems(1).ForeColor = 39423
.ListItems.Item(Counter).Bold = True
.ListItems.Item(Counter).ListSubItems(1).Bold = True





End If
End With
Next Counter
Me.ListView1.Refresh

End Sub


.Add , , "ADI", 2000, lvwColumnLeft bu listedeki stun başlıklarının ad olayı

lstItem.SubItems(1) = Nz(rs!STOK) bu listedeki satırları ekleme olayı

strCategory = Nz(rs!ADI, "AYVA")
lstItem.SmallIcon = strCategory

buda listedeki her satıra ilgili resimleri ekleme olayı


Private Sub FormatListView() başlayan bölüm listedeki satırları belirli kriterlere göre renkli ve koyu gösterme olayı
diğer açıklama örnekte var

 

[gulsum1]

flexgrid hexflexgrid activex

flexgrid hexflexgrid activex olaylarını bir kaç gün içinde koyarım bizden ayrılmayın sonrası imagecombo olayı

 

[attila52]

statusbar

ekte statüs bar kendi yaptığınız bir statusbar (ilerleme çubuğunu da kullanabilirsiniz saniye kalan süreleri gösteren örnek içindeki form1 in üstündeki kaydet butonunu deneyiniz ve ardındaki olay yordamda statusbar ın çalışmasını göstermekte ve sizin formunuza uygulamanızda oran diye form üzerinde bir bölüm var text değeri 100 siz bu oran alanını değilde örneğin form üzerinde kayıtları girdikten sonra toplam miktar alanını da değer olarak gösterebilirsiniz yanlız dikkat etmeniz gereken örnekteki modülü mutlak kendi uygulamanıza alın birde frmstatusbox adlı formu aksi takdirde çalışmayacaktır.
iyi çalışmalar.

 

[attila52]

SQL Sorgu sorgu yapmadan sorgulamak

açılan konuyla pek ilgisi olmasada farklı konu açmak yerine aynı konunun altında örnekleri atmak istedim umarım kullanıcıların işine yarar.
örneğimiz sizin tablolarınızı nekadar dablonuz varsa bunları listede gösteriyor ve siz tablonuzu seçerek onun üzerinde sorgulama yapıp sonucu görebiliyorsunuz bi nevi 40 yılda bir lazım olacak raporlama türü için boşuna sorgu oluşturup yer kaplamasını önlemek ve anlık sorgularınızı bu form üzerinden yapmak için kendi sorgunu kendin üret mantığı. iyi çalışmalar

 

[attila52]

ProgressBar farklı bir türü

buda renkli çubukların dolgu şeklinde hareket eden progress bar türü
formlarınıza veya açılışınıza renk katması için iyi çalışmalar.