05-07-18, 01:49 AM
اخواني ممكن حدا يساعدني واجهتني هي المشكلة وقت بدي شوف النتيجة
Private Sub VisualizarNaImagemToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VisualizarNaImagemToolStripMenuItem.Click
For Each I As ListViewItem In LV_Arquivos.SelectedItems
If I.Tag = "Verificando" Then
MsgBox("ESTE ARQUIVO AINDA NÃO FOI ESCANEADO AGUARDE OU ENVIE NOVAMENTE", MsgBoxStyle.Exclamation, "Informações")
Exit Sub
End If
Dim SP As String() = Split(ID.Item(I.Index), "|H|")
Dim F As FrmImagem = FrmImagem
If F.IsHandleCreated Then
F.Text = I.Text
F.Resultado(SP(2))
Else
F.Text = I.Text
F.Resultado(SP(2))
F.Show()
End If
Next
End Sub
Private Sub VisualizarNaImagemToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VisualizarNaImagemToolStripMenuItem.Click
For Each I As ListViewItem In LV_Arquivos.SelectedItems
If I.Tag = "Verificando" Then
MsgBox("ESTE ARQUIVO AINDA NÃO FOI ESCANEADO AGUARDE OU ENVIE NOVAMENTE", MsgBoxStyle.Exclamation, "Informações")
Exit Sub
End If
Dim SP As String() = Split(ID.Item(I.Index), "|H|")
Dim F As FrmImagem = FrmImagem
If F.IsHandleCreated Then
F.Text = I.Text
F.Resultado(SP(2))
Else
F.Text = I.Text
F.Resultado(SP(2))
F.Show()
End If
Next
End Sub
