r@nger

Merhaba,
bu konumuza visual basic hakkında her türlü sorularınızı sorunlarınızı yazabilirsiniz.En kısa sürede cevap bulacaktır.

Soru ve sorun mesajları buraya değil de,konu olarak açılırsa konular silinecektir...


Soru ve sorunlarınızı bekliyorum...

Teşekkürler.

__________________
Geri döndüm

dukkk

ARKADAŞLAR ImageList, ImageCombo ve Updown hakkında bilgi arıyorum .. yardım edebilir misiniz acaba

r@nger

İmage List Hakkında:
IMAGELİST (İMAJ LİSTESİ)

Başka nesneler tarafından kullanılan resimleri saklar.

PROPERTİES (ÖZELLİKLER)

ListImages
ImageList kontrolüne eklenecek resimler ListImages özelliğinin aşağıdaki alt özellik ve metotları ile yönetilir.
ListImages.Add (Index,Key,Picture)
ImageList kontrolüne yeni resimler eklemek için bu metot kullanılır. Buradaki Index ve Key parametreleri verilmezse resim sona,verilirse verildiği yere eklenir.
ListImages.Add(, , LoadPicture(“Deneme.bmp”) satırı Deneme.Bmp dosyasını listedeki son resim olarak ekleyecektir.
Bu tip listelerde Index parametresi ile listenin bir elemanına ulaşabiliyorduk.Buradaki Key parametresi bize alternatif bir erişim şekli sunar.Programcı isterse Index özelliği ile isterse string olan Key özelliği ile o elemana ulaşabilir.
ListImages.Add(1,”İlk Resim”,LoadPicture (“İlk Resim”)satırı ile ulaşılabilir.Görüldüğü gibi Key özelliği resimleri yönetmek için sayılar yerine yazıları da kullanabilme imkanı verdiği için programlamayı kolaylaştırmaktadır.
Tasarım zamanında Custom özelliği ile açılan aşağıdaki pencereyi kullanarak gerekli resimleri kolayca ekleyip çıkarabilirsiniz.

ListImages.Count
Liste içindeki resim sayısı bu özellikle öğrenilir.

ListImages.Remove Index
Liste içindeki Index numaralı elemanı siler.İlk elemanın index’i 1 dir.

ListImages.Clear
Liste içindeki bütün elemanları siler.

ListImages(i).Picture
Listedeki i numaralı resmi öğrenmek için bu özellik kullanılır.Buradaki ilk elemanın indexi 1’dir.Index yerine Key için verilen metin de kullanılabilir.

Form1.Picture=ImageList1.ListImages(1).Picture

ListImages(i).ExtractIcon
Numarası verilen resimden bir ikon oluşturur.Buradan geriye dönen değer herhangi bir Icon özelliğine atanabilir.

Form1.Icon=ImageList1.ListImages(1).ExtractIcon

ListImages(i).Draw(hDC,x,y,sstyle)
Liste içindeki bir resmi Picture özelliği ile alabileceğimiz gibi,Draw metodunu kullanarak başka bir kontrolün içine de çizdirebiliriz.

Buradaki hDC parametresine çizdirilecek yerin hDC numarası, x,y ile koordinatları Style ile de uygulanacak efect belirlenebilir.Çoğumlukla ImageŞist komut düğmeleri için düşünüldüğünden dolayı verilecek efektlerde bir komut düğmesinin alabileceği değişik durumları temsil eder. Style parametresinin alabileceği değerler şunlardır;

0,,im1Normal: Aynen çizilir.
1,,im1Trasparent:Kopyalandığı yerin altını gösterecek şekilde çizilir.
2,,im1Selected: Seçilmiş bir kontrol efekti verilerek çizilir.
3,,im1Focus: Klavye kontrolünü elinde bulunduran bir kontrol efekti verilerek çizilir.

ImageList1.ListImages(1).Draw Form1.hDC,0,im1Selected

ListImages(i).Key

Eleman eklenirken ona bir Key verebileceğini de belirtmiştik. Bu değer daha sonra Key
özelliği ile öğrenilip değiştirilebilir.

METHODS

Overlav(Index1,Index2)

Verilen iki resmin geçişini oluşturur.Yani Index2 ile belirtilmiş resmi,Index1 ile de belirtilmiş resmin üzerine çizer. Birden fazla resmin bu şekilde arka arkaya gösterilerek yumuşak geçişli animasyonlar yapılabilir.

Picture1.Picture=ImageList1.Overlay(1,2)

Örneğin bir animasyonun parçalarını oluşturan 7 tane resmi ListImage kontrolüne ekleyerek bir Timer aracılığı ile bunları arka arkaya göstererek,normal gösterimle,Overlay gösterim arasındaki farkı görebilirsiniz.

Private Sub Form_Load()
Dim i
For i = 1 to 7
‘Anim1.bmp- Anim7.Bmp dosyaları yükleniyor.
Call ImageList1.ListImages.Add(, , LoadPicture(“anim” & i & “.bmp”))
Next
End Sub
Private Sub Timer1_Timer()
Static i
Dim j
İ =i mod 6
İ =i+1
j =i+1
j = (i mod 7)+1
‘Overlay gösterim
Picture1.Picture=ImageList1.Overlay(i,j).
‘Normal gösterim
Picture2.Picture=ImageList1.ListImages(i).Picture
End Sub





İMAGELİST'e KOD İLE RESİM EKLEMEK

Private Sub Form_Click()

CommonDialog1.ShowOpen

ImageList1.ListImages.Add , "open", LoadPicture(CommonDialog1.FileName)

End Sub

İMAGELİST'teki İKİ RESMİ BİRLEŞTİRMEK


Private Sub Form_Click()

Set Picture3.Picture = ImageList1.Overlay (index1, index2)

‘ Set Picture3.Picture = ImageList1.Overlay ("key1", "key2")

End Sub


Program ile birlikte bilgisayarınıza kurulan fakat siz onu bulmadıkça gizlenen ImageList kontrolü sayesinde bir kaç satır kodla bu işi gerçekleştirebiliyorsunuz. Programı çalıştırdığınız anda ImageList içindeki küçük simgeler menü seçeneklerine yerleştirilecek ve program sonlanana kadar orada kalacaktır.

Private Sub Form_Load()
Dim i%
Dim hMenu, hSubMenu, menuID, x
hMenu = GetMenu(hwnd)
hSubMenu = GetSubMenu(hMenu, 0)
For i = 1 To 4
menuID = GetMenuItemID(hSubMenu, i - 1)
x = SetMenuItemBitmaps(hMenu, menuID, &H4, img.ListImages(i).Picture,
img.ListImages(i).Picture)
Next
menuID = GetMenuItemID(hSubMenu, 5)
x = SetMenuItemBitmaps(hMenu, menuID, 0, img.ListImages(5).Picture, 0&)
End Sub








İMAGELİST

TANIM

Visual Basic'de ExtractIcon metodunu kullanarak herhangi bir resmi simge haline getirebilirsiniz.

Bunu yapmak için Imagelist kontrolünün ListImage özelliğini kullanmalısınız



VB 3'de bazı API fonksiyonlarını kullanarak her menü komutunun kenarına bir resim yerleştirebiliyorduk. VB4'te ise bu işlem çok daha kolay bir hale getirilmiş.VİSUAL BASİC 6.0 Programı ile birlikte bilgisayarınıza kurulan fakat siz onu bulmadıkça gizlenen ImageList kontrolü sayesinde bir kaç satır kodla bu işi gerçekleştirebiliyorsunuz. Programı çalıştırdığınız anda ImageList içindeki küçük simgeler menü seçeneklerine yerleştirilecek ve program sonlanana kadar orada kalacaktır.

Private hwnd)
SubMenu = GetSubMenu(hMenu, 0)
For i = 1 To 4
menuID = GetMenuItemID(hSubMenu, i - Sub Form_Load()
Dim i%
Dim hMenu, hSubMenu, menuID, x
hMenu = GetMenu(1)
x = SetMenuItemBitmaps(hMenu, menuID, &H4, img.ListImages(i).Picture, img.ListImages(i).Picture)
Next
menuID = GetMenuItemID(hSubMenu, 5)
x = SetMenuItemBitmaps(hMenu, menuID, 0, img.ListImages(5).Picture, 0&)
End Sub




Unload komutuyla bir formu bellekten atamayacağınızı bilin. Formu bellekten atmanın tek yolu Set [FORMA ADI] = Nothing komutunu kullanmaktır.
Bir BMP’yi kolayca simge olarak kaydedebilirsiniz. Sadece "ImageList" kontrolünde "ListImage" özelliğinin "ExtractIcon" methodunu kullanmanız yeterlidir

Eklediğiniz butonlara resim yerleştirmek için öncelikle forma bir ImageList ekler ve resimleri bundan aktarırız

__________________
Geri döndüm

dukkk

çok teşekkür ederim

peki Imagecombo ve Updown hakkında bilgi var mı acaba?

r@nger

Elimden geldiğince bulmaya çalışıyorum kısa sürede burada olur bilgiler

__________________
Geri döndüm

dukkk

teşekkür ederim hala bekliyorum

emreaydin_gs

slm arkadaşlar ben bir kayıt programı yaptım components'ten microsoft data bound grid control 5.0'i seçtim bir tablo oluturdum bu tabloda tc kimlik no'da var benim istediğim form üzerindeki ayrı bir text kusu koymak ve bu text kutusuna kayıtlarda olan bir tc kimlik no girdğimde bana bu kişinin tüm kayıtlarını bana göstermesi şimdiden teşekkür ederim...

blackdog

merhaba ya bu benim içime dert oldu yardım ederseniz sevinirim.ben şimdi sürücü kısayolları c: d: e: fln filan onların kısayollarını yaptım.bu pencere acık dururken gorev cbugunda olmasın istiyorum yani gorev cubugunda gorunmesin istiyorum.aceba onu gorev cubugundan nasıl gizlerim.Şimdiden teşekkürler.

yüyücel

arkadaşlar ben visual basice resim eklemek istiyorum data ile ama olmuyor yardımcı ole-ursanız sevinirim

yüyücel

Private Sub Command1_Click()
b = InputBox("Ad Giriniz:", "KAYIT ARAMA")
data.Recordset.MoveFirst

While Not Adodc1.Recordset.EOF
If b = data1.Recordset.Fields(1) Then
Text7 = data1.Recordset.Fields(1)
a = MsgBox("Kayıt Bulundu...", vbOKCancel, "KAYIT ARAMA")
If a = 1 Then GoTo git
End If
data1.Recordset.MoveNext


Wend
C = MsgBox("Kayıt Bulunamadı", 0, "KAYIT ARAMA")
git:
End Sub


inşalah bu işne yarar