Foro de elhacker.net

Good  evening   
I use a picture to load a gif from a dll .
When  add a picture in Imagelist use <<Call Form1.img.ListImages.Add(, , Form1.Flag.Picture)>>
want to Load severals gifs in the Imagelist
How can call the Items  from the Imagelist in ListView ?
thanks for the time  .
No want to add All together  .....

Ps This  project use GetLocaleInfo  to find what Country u are from and add the flag(gif)in the ListView.

 

.
WHAT WE WANT IS PUT IMAGES in a ListView?


Relacionar ImageList

 
    ListView.Icons = ListIcon         'Relaciona una coleccion de images Normales      (Optional)
    ListView.SmallIcons = ListIcon 'Relaciona una coleccion de imagenes pequeñas (Optional)
 
 

Relacionar Iconos con los Items

 
        ListView.ListItems.Add , , "Hola Mundo", IndexIconNormal, IndexICOnPequeño
        ListView.ListItems.Item(IndexITem).Icon = IndexIconNormal
        ListView.ListItems.Item(IndexITem).SmallIcon = IndexIconoPequeño
 
 

Nota: Las imagenes Gif No son animadas en los Items ya que en el imagelist las convierte a Iconos al cargar en el mismo.

(translate.google.com.mx)
Note: Gif images are not animated in the Items because in the imagelist icons convert them to upload it.

Temibles Lunas!¡.

Thanks for the Reply my Friend
I know the gif  not animated  .
i will check it  tomorow 
I load the Gif from dll in the imagelist and want to use it from there
if u have time  givea look




http://www.mediafire.com/?8nf5c24ypk5ih09

.
I' Not Clear You SourceCode only Relate the imagelist with ListView

 
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
 
Private Const LOCALE_SYSTEM_DEFAULT As Long = &H400
Private Const LOCALE_SENGCOUNTRY = &H1002
 
Private objCnSRes           As Object
 
Private Sub Command1_Click()
    With Lv.ListItems.Add(, , "aaa", GetFlag(GetCountry), GetFlag(GetCountry))
        .SubItems(1) = "0.0.0.0"
        .SubItems(2) = "1111"
    End With
End Sub
 
Private Sub Form_Load()
Dim lvitem              As ListItem
 
    With Lv
 
        '   Initialize ImageList
        Set objCnSRes = CreateObject("Flags.cRec")
        '   //  In the DLL Declare CountImages  ( Cant of Images ), 
        For lng_i = 1 To objCnSRes.CountImages 
            '  // is added 100 for the id of the image resources
            Call img.ListImages.Add(, , objCnSRes.GetPicture(lng_i+100, GIF))
        Next lng_i
        Set objCnSRes = Nothing
 
 
        .Icons = img    'Relate ImageList With The ListView.
        .View = lvwReport
        Call .ColumnHeaders.Add(, , ".#.", 2000, vbLeftJustify)
        Call .ColumnHeaders.Add(, , "Proxy IP ", 2000, vbLeftJustify)
        Call .ColumnHeaders.Add(, , "Port", 1300, vbLeftJustify)
 
    End With
End Sub
 
Public Function GetCountry() As String
Dim sName As String * 256, lBuffSize As Long
    lBuffSize = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SENGCOUNTRY, ByVal sName, Len(sName))
    GetCountry = Left(sName, lBuffSize - 1)
End Function
 
Public Function GetFlag(sCountry As String) As Long
    Select Case LCase(sCountry)
        Case "greece"
            GetFlag = 1
        Case "argentina"
            GetFlag = 2
        Case "mexico"   '   //  This my State
            GetFlag = 1
        'Case Else
            'GetFlag = 0 '   //  Case Defaul Image
    End Select
End Function
 
 

Dulce Infierno Lunar!¡.
.

Thanks  man   i will check it  now 

.
 :silbar: :silbar:

Sin Dependencias de OCX...

http://foro.elhacker.net/programacion_visual_basic/srcuc_listviewex_20_reprogramado_05012011_no_skiner-t315820.0.html

 :silbar: :silbar:


Dulces Lunas!¡.

I  cant  fix it to work with the
Thanks  for the time 

 
GetFlag(GetCountry)
 
 

Esta funcion retorna el indice de la imagen en el ImageList.

http://translate.google.com.mx/
This function returns the index of the image in the ImageList.

Dulces Lunas!¡.

My stupid mistake
i use (Greece)
and the correct is greece
havea good  night  bro