[Resolvido]Converter VB em VBA para adicionar valores a uma lista

Tenho este código em VB que adiciona digitais capturadas em um leitor atraves da dll do fabricante.. depois de abrir a dll ele adiciona os valores em uma lstBox..Capturar já consegui, porem tenho que adicionar o resultado a uma list Box

Este é o codigo em VB para isso



' Add item to list of SearchDB
For Each objResult In objIndexSearch

ListItem = ListSearchDB.Items.Add()
ListItem.Text = CStr(objResult.UserID)
If ListItem.SubItems.Count > 1 Then
ListItem.SubItems(1).Text = CStr(objResult.FingerID)
Else
'ListItem.SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, CStr(objResult.FingerID)))
End If
If ListItem.SubItems.Count > 2 Then
ListItem.SubItems(2).Text = CStr(objResult.SampleNumber)
Else
' ListItem.SubItems.Insert(2, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, CStr(objResult.SampleNumber)))
End If
'ListItem = Nothing

Next objResult

txtUserID.Text = CStr((txtUserID.Text) + 1)
'ListSearchDB.FocusedItem.Selected = False

End Sub

Novidades por aqui?

Novidades por aqui?

Hary,

Não entendo o código, porque parece-me acrescentar items em caixa de listagem e, depois, verifica se existem sub-itms. Ora, não existem sub-items
Para acrescentar item utilize o método AddItem
Cumprimentos,

O Código é exatamente este amigão, porém em VB... Tentarei te exlicar a utilização dele em VB para ver se comprende e possa me ajudar...

For Each objResult In objIndexSearch 'Neste objeto está inserido o Valor de uma ID vinda de uma textBox + o Valor de Identificação do dedo...Isto é feito pela dll do Leitor biométrico. São 10 os dedos e ele faz a captura de duas imagens por dedo, cada imagem de dedo terá o mesmo ID da textBox (ID da Pessoa)

Observe estar imagens para a captura de um dedo... selecionei primeiro o dedo, depois o inseri.







ListItem = ListSearchDB.Items.Add()
ListItem.Text = CStr(objResult.UserID) 'Aqui é adicionado a ID do usuário
If ListItem.SubItems.Count > 1 Then
ListItem.SubItems(1).Text = CStr(objResult.FingerID) 'Aqui a ID do Dedo]

***Ambos são em realidades colunas da list.. mas em VB está como subítem

Hary
Desculpe, mas apenas vejo a imagem estática e não a imagino a funcionar.
Ou não estou a ver o problema como ele é ou não se está a expressar bem.
Vamos passo-a-passo, de forma suposta
1º O leitor carrega dados em tabela - Consegue fazer este passo?
2º código para carregar os dados da tabela numa caixa de listagem - aqui indique qual a lógica de carregar os dados (de que campo para qual coluna ou linha)

é assim amigão.. Esta tela onde está a figura dos dedos é aberta (dll do aparelho)

A ddl carrega os dedos escolhidos nela e os adiciona neste objeto

objIndexSearch
Este contem as informações adiquirida através do form onde tem o desenho das maos, portanto nele (objIndexSearch) esta os valores da captura que são:
A ID do usuário (textBox onde tem o numero 2 no print acima)
A ID do dedo (se mais de um selecionado (Cor Rosa), tambem contem as dos demais)



bem como o ObjIndexSearch contem este valores ele os passa a adicionar na lista com o comando

' Add item to list of SearchDB
For Each objResult In objIndexSearch

'Aqui começa a inserir na lista os valores contidos no ObjIndexSearch que foram carregados através do form que tem o desenho das mãos..

ListItem = ListSearchDB.Items.Add()
ListItem.Text = CStr(objResult.UserID)
If ListItem.SubItems.Count > 1 Then
ListItem.SubItems(1).Text = CStr(objResult.FingerID)
Else
'ListItem.SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, CStr(objResult.FingerID)))
End If
If ListItem.SubItems.Count > 2 Then
ListItem.SubItems(2).Text = CStr(objResult.SampleNumber)
Else
' ListItem.SubItems.Insert(2, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, CStr(objResult.SampleNumber)))
End If
'ListItem = Nothing

Next objResult 'Aqui faz o Loop para os outros dedos contidos no objIndexSearch

Hary,

Não percebi a mecânica, mas vou atirar meio no escuro
Coloque

For Each objResult In objIndexSearch
Lista1.AddItem (objResult.UserID; objResult.FingerID; objResult.SampleNumber)
Next objResult

txtUserID.Text = (txtUserID.Text) + 1

Amigão... Amanha vejo isto... não estou muito bem agora...

Agradeco pela sua sempre pronta atenção..

Saudações

Mas digamos que o ObjIndexSearch é uma listBox em forma de variavel contendo 3 colunas e no máximo 20 registros (2 por dedos)

So puxando pra cima.. pra nao perder este tópico hehehe

Hary,

Se o controlo equivale a caixa de listagem, coloque um exemplo com caixa de listagem que o código possa ser trabalhado a partir dele.

é assim Aliexandre... Talvez tenha me expressado mal...

O ObjectIndex é semelhante um recordSet.... com Campos e registros onde contem os campos...

ID Usuário - ID Dedo - ID Objeto

O código realiza o loop no OBjectIndex e vai lançando os valores em uma listBox no form....

Código VB Completo

Código:

   Private Sub btnRegist_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles btnRegist.Click
      
      Dim i As Object
      Dim j As Short
      Dim nUserID As Integer
      Dim szFir As String
      Dim ListItem As System.Windows.Forms.ListViewItem
      
      Dim objResult As NBioBSPCOMLib.ICandidateList ' CandidateList or Result object
      
      nUserID = 0
      szFir = ""
      
      ' Get User ID
      If Not IsNumeric(txtUserID.Text) Then
         MsgBox("User ID must be have numeric type and greater than 0.", MsgBoxStyle.OKOnly, "Error")
         Exit Sub
      End If
      
      nUserID = CShort(txtUserID.Text)
      
      ' Get FIR data
      Call objDevice.Open(NBioAPI_DEVICE_ID_AUTO_DETECT)
      'UPGRADE_WARNING: Use of Null/IsNull() detected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="2EED02CB-5C0E-4DC1-AE94-4FAA3A30F51A"'
      Call objExtraction.Enroll(System.DBNull.Value)
      If objExtraction.ErrorCode <> NBioAPIERROR_NONE Then
         MsgBox(objExtraction.ErrorDescription & " [" & objExtraction.ErrorCode & "]")
         Call objDevice.Close(NBioAPI_DEVICE_ID_AUTO_DETECT)
         Exit Sub
      End If
      
      Call objDevice.Close(NBioAPI_DEVICE_ID_AUTO_DETECT)
      
      szFir = objExtraction.TextEncodeFIR
      
      ' Regist FIR to IndexSearch DB
      Call objIndexSearch.AddFIR(szFir, nUserID)
      If objIndexSearch.ErrorCode <> NBioAPIERROR_NONE Then
         MsgBox(objIndexSearch.ErrorDescription & " [" & objIndexSearch.ErrorCode & "]")
         Exit Sub
      End If
      
      
      ' Add item to list of SearchDB
      For   Each objResult In objIndexSearch
         
         'UPGRADE_ISSUE: MSComctlLib.ListItems method ListSearchDB.ListItems.Add was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
         ListItem = ListSearchDB.Items.Add()
         ListItem.Text = CStr(objResult.UserID)
         'UPGRADE_WARNING: Lower bound of collection ListItem has changed from 1 to 0. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"'
         If ListItem.SubItems.Count > 1 Then
            ListItem.SubItems(1).Text = CStr(objResult.FingerID)
         Else
            ListItem.SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, CStr(objResult.FingerID)))
         End If
         'UPGRADE_WARNING: Lower bound of collection ListItem has changed from 1 to 0. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"'
         If ListItem.SubItems.Count > 2 Then
            ListItem.SubItems(2).Text = CStr(objResult.SampleNumber)
         Else
            ListItem.SubItems.Insert(2, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, CStr(objResult.SampleNumber)))
         End If
         'UPGRADE_NOTE: Object ListItem may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
         ListItem = Nothing
         
      Next objResult
      
      txtUserID.Text = CStr(CShort(txtUserID.Text) + 1)
      ListSearchDB.FocusedItem.Selected = False
      
   End Sub

Puxando o tópico para não perdê-lo rsrs

Não resolvido ainda?

é que estou a fazer dois pra biometria..
o primeiro que ficou pronto utiliza o SDK de terceiros..
Este é com do proprio aparelho.. porem todos os codigos em vb.. estou fazendo sem pressa...

Resolvido