Hello!
I’m working on a Vb.net application tageting the PocketPc. So, it is
required that we write the code on .NetCompactFram ework.
I need to create a ListView with 4 coulumns. It must have images on the
first 3 columns and text on the 4th.
Thank you for your code..I tried using your VB code…for my POcketPC
application in VB.Net (.NetCompactFra mework) But was stuck with a few
errors…Can anybody help me out??
A few features like <marshal as> are not available in the
..NetCompactFra meWork.
So I had to make some modifications to your code…
Imports System.Runtime. InteropServices
------------------------------------------------------------------------------------------------
‘This class has a function to return the handle to any control
‘Since mylistview.Hand le is not available in .NetcompactFram ework
Class WinAPI
Public Declare Function SetCapture Lib "coredll.dl l" (ByVal hWnd As
IntPtr) As IntPtr
Public Declare Function GetCapture Lib "coredll.dl l" () As IntPtr
Public Shared Function GetHWnd(ByVal ctrl As Control) As IntPtr
Dim hOldWnd As IntPtr = GetCapture()
ctrl.Capture = True
Dim hWnd As IntPtr = GetCapture()
ctrl.Capture = False
SetCapture(hOld Wnd)
Return hWnd
End Function
End Class
----------------------------------------------------------------------------------------------
Public Class Form1
Inherits System.Windows. Forms.Form
Friend WithEvents MainMenu1 As System.Windows. Forms.MainMenu
'<StructLayout( LayoutKind.Sequ ential, CharSet:=CharSe t.Auto)> _
Friend Structure LVITEM
Friend mask As Integer
Friend iItem As Integer
Friend subItem As Integer
Friend state As Integer
Friend stateMask As Integer
'<MarshalAs(Unm anagedType.LPTS tr)>Friend lpszText As String
‘MARSHAL AS IS NOT SUPPORTED CAN I USE BYTE()????
Friend lpszText As Byte()
Friend cchTextMax As Integer
Friend iImage As Integer
Friend lParam As IntPtr
Friend iIndent As Integer
End Structure
Friend Const LVM_FIRST As Integer = &H1000
Friend Const LVM_GETITEMA As Integer = LVM_FIRST + 5
Friend Const LVM_GETITEMW As Integer = LVM_FIRST + 75
Friend Shared ReadOnly LVM_GETITEM As Integer = _
CInt(IIf(Marsha l.SystemDefault CharSize = 1, LVM_GETITEMA, LVM_GETITEMW))
Friend Const LVM_SETITEMA As Integer = LVM_FIRST + 6
Friend Const LVM_SETITEMW As Integer = LVM_FIRST + 76
Friend Shared ReadOnly LVM_SETITEM As Integer = _
CInt(IIf(Marsha l.SystemDefault CharSize = 1, LVM_SETITEMA, LVM_SETITEMW))
Friend Const LVM_SETEXTENDED LISTVIEWSTYLE As Integer = LVM_FIRST + 54
Friend Const LVIF_IMAGE As Integer = &H2
Friend Const LVS_EX_SUBITEMI MAGES As Integer = &H2
Friend Shared Function ListView_GetIte m(ByVal hwnd As IntPtr, ByRef lvi
As LVITEM) As Boolean
Return CBool(SendMessa ge(hwnd, LVM_GETITEM, IntPtr.Zero, lvi))
End Function
Friend Overloads Declare Function SendMessage Lib "User32.dll " (ByVal _
hwnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByRef
lParam _
As LVITEM) As Integer
Friend Overloads Declare Function SendMessage Lib "User32.dll " (ByVal _
hwnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal
lParam _
As Integer) As Integer
Friend Shared Sub ListView_SetSub ItemImageIndex( ByVal hwnd As IntPtr,
ByVal _
index As Integer, ByVal subItemIndex As Integer, ByVal imageIndex As _
Integer)
Dim lvi As LVITEM
lvi.iItem = index
lvi.subItem = subItemIndex
lvi.iImage = imageIndex
lvi.mask = LVIF_IMAGE
ListView_GetIte m(hwnd, lvi)
End Sub
Friend Shared Function ListView_GetSub ItemImageIndex( ByVal hwnd As
IntPtr, _
ByVal index As Integer, ByVal subItemIndex As Integer) As Integer
Dim lvi As LVITEM
lvi.iItem = index
lvi.subItem = subItemIndex
lvi.mask = LVIF_IMAGE
If ListView_GetIte m(hwnd, lvi) Then
Return lvi.iImage
Else
Return -1
End If
End Function
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeCompo nent()
'Add any initialization after the InitializeCompo nent() call
'ImageList
'==========
Dim Img As New ImageList
Dim myImage As New Bitmap("/Program Files/ListView2/file.png")
Img.Images.Add( myImage)
'ListView
'=========
Dim MyListView As New ListView
MyListView.Loca tion = New Point(0, 0)
MyListView.View = View.Details
MyListView.Smal lImageList = Img
Dim ListItem1 As New ListViewItem
ListItem1.Image Index = 0
'How to define a subitem to be used in the call to
'ListView_GetSu bItemImageIndex
'Dim ListSubItem1 As New ListViewItem.Li stViewSubItem
'ListSubItem1.
‘Holds the handle to myListView
Dim hMyListView As IntPtr = WinAPI.GetHWnd( MyListView)
'SendMessage(My ListView.Handle , LVM_SETEXTENDED LISTVIEWSTYLE, _
'LVS_EX_SUBITEM IMAGES, LVS_EX_SUBITEMI MAGES)
'MyListView.Han dle is not available, so had to use a userdefined function to
obtain its handle...
SendMessage(hMy ListView, LVM_SETEXTENDED LISTVIEWSTYLE, _
LVS_EX_SUBITEMI MAGES, LVS_EX_SUBITEMI MAGES)
ListView_SetSub ItemImageIndex( hMyListView, 0, 0, 0)
MyListView.Visi ble = True
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
MyBase.Dispose( disposing)
End Sub
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Private Sub InitializeCompo nent()
Me.MainMenu1 = New System.Windows. Forms.MainMenu( )
Me.Menu = Me.MainMenu1
Me.Text = "Form1"
End Sub
#End Region
End Class
=============== =============== =============== ====
On debugging….
Exception 1: SendMessage()
An unhandled exception of type 'System.Missing MethodException ' occurred in
ListView2.exe
Exception 2: ListView_GetIte m()
An unhandled exception of type 'System.NotSupp ortedException' occurred in
ListView2.exe
How can I use SendMessage() in the vb.net on .net compactFramewor k??
How to make a call to ListView_SetSub ItemImageIndex( ) with appropriate values.
Thanks for your help and valuble inputs :)
LProgrammer
"Claes Bergefall" wrote:
The following should work (hope I remembered everything). You can change
Friend to Public or so if you want:
<StructLayout(L ayoutKind.Seque ntial, CharSet:=CharSe t.Auto)> Friend
Structure LVITEM
Friend mask As Integer
Friend iItem As Integer
Friend subItem As Integer
Friend state As Integer
Friend stateMask As Integer
<MarshalAs(Unma nagedType.LPTSt r)> Friend lpszText As String
Friend cchTextMax As Integer
Friend iImage As Integer
Friend lParam As IntPtr
Friend iIndent As Integer
End Structure
Friend Const LVM_FIRST As Integer = &H1000
Friend Const LVM_GETITEMA As Integer = LVM_FIRST + 5
Friend Const LVM_GETITEMW As Integer = LVM_FIRST + 75
Friend Shared ReadOnly LVM_GETITEM As Integer =
CInt(IIf(Marsha l.SystemDefault CharSize = 1, LVM_GETITEMA, LVM_GETITEMW))
Friend Const LVM_SETITEMA As Integer = LVM_FIRST + 6
Friend Const LVM_SETITEMW As Integer = LVM_FIRST + 76
Friend Shared ReadOnly LVM_SETITEM As Integer =
CInt(IIf(Marsha l.SystemDefault CharSize = 1, LVM_SETITEMA, LVM_SETITEMW))
Friend Const LVM_SETEXTENDED LISTVIEWSTYLE As Integer = LVM_FIRST + 54
Friend Const LVIF_IMAGE As Integer = &H2
Friend Const LVS_EX_SUBITEMI MAGES As Integer = &H2
Friend Shared Function ListView_GetIte m(ByVal hwnd As IntPtr, ByRef lvi As
Win32.Native.LV ITEM) As Boolean
Return CBool(Win32.Nat ive.SendMessage (hwnd, Win32.Native.LV M_GETITEM,
IntPtr.Zero, lvi))
End Function
Friend Overloads Declare Auto Function SendMessage Lib "User32.dll " (ByVal
hwnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByRef lParam
As Win32.Native.LV ITEM) As Integer
Friend Overloads Declare Auto Function SendMessage Lib "User32.dll " (ByVal
hwnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam
As Integer) As Integer
Friend Shared Sub ListView_SetSub ItemImageIndex( ByVal hwnd As IntPtr, ByVal
index As Integer, ByVal subItemIndex As Integer, ByVal imageIndex As
Integer)
Dim lvi As LVITEM
lvi.iItem = index
lvi.subItem = subItemIndex
lvi.iImage = imageIndex
lvi.mask = LVIF_IMAGE
ListView_SetIte m(hwnd, lvi)
End Sub
Friend Shared Function ListView_GetSub ItemImageIndex( ByVal hwnd As IntPtr,
ByVal index As Integer, ByVal subItemIndex As Integer) As Integer
Dim lvi As LVITEM
lvi.iItem = index
lvi.subItem = subItemIndex
lvi.mask = LVIF_IMAGE
If ListView_GetIte m(hwnd, lvi) Then
Return lvi.iImage
Else
Return -1
End If
End Function
You need the following call to enable support for sub item images (put it in
a CreateControl event handler or override)
SendMessage(myL istView.Handle, LVM_SETEXTENDED LISTVIEWSTYLE,
LVS_EX_SUBITEMI MAGES, LVS_EX_SUBITEMI MAGES)
/claes
"Adam Honek" <Ad*******@Webm aster2001.frees erve.co.uk> wrote in message
news:eN******** ******@TK2MSFTN GP02.phx.gbl... This is probably a silly question but oh well, I can't find the answer
looking via code.
Having an imagelist already, how does one set an icon for a list view's
sub items?
I'm using the code below however the subitems doesn't have an overload
allowing an image index.
Adam
***Code***
lvItem = lvControl.Items .Add(sData, 0)
sData = ReadINIFileValu e(INI_SECTION_T YPE1 + " " + CType(iCounter,
String), "Program name", MyAccountsINIFi lePath)
lvItem.SubItems .Add(sData) <-------- Cannot add image index here
