TRATAMENTO DE ERRO
Boa tarde , tenho um programa para envio de emails markting
porem quando ele envia o ultimo ,
ele da um ero de tratamento
alguem poderia me ajudar a arumar isso??
porem quando ele envia o ultimo ,
ele da um ero de tratamento
alguem poderia me ajudar a arumar isso??
An unhandled exception of type [ô]System.ArgumentOutOfRangeException[ô] occurred in System.Windows.Forms.dll
Additional information: InvalidArgument=Value [ô]0[ô] não é um valor válido para [ô]index[ô].
Additional information: InvalidArgument=Value [ô]0[ô] não é um valor válido para [ô]index[ô].
Alguem?
nos mostre como esta utilizando essa rotina
assim
Dim abrircomo As OpenFileDialog = New OpenFileDialog
Dim caminho As DialogResult
Dim arquivo As String
With abrircomo
.Title = [Ô]Abrir Como[Ô]
.Filter = [Ô]Arquivos de texto (*.txt)|*.txt[Ô]
caminho = .ShowDialog
arquivo = .FileName
End With
ListBox1.Items.AddRange(Split(My.Computer.FileSystem.ReadAllText(arquivo), vbNewLine))
Call repartir()
Dim abrircomo As OpenFileDialog = New OpenFileDialog
Dim caminho As DialogResult
Dim arquivo As String
With abrircomo
.Title = [Ô]Abrir Como[Ô]
.Filter = [Ô]Arquivos de texto (*.txt)|*.txt[Ô]
caminho = .ShowDialog
arquivo = .FileName
End With
ListBox1.Items.AddRange(Split(My.Computer.FileSystem.ReadAllText(arquivo), vbNewLine))
Call repartir()
Alguem?
acho que é
ListBox1.Items.Add(Split(My.Computer.FileSystem.ReadAllText(arquivo), vbNewLine))
e não
ListBox1.Items.AddRange(Split(My.Computer.FileSystem.ReadAllText(arquivo), vbNewLine))
ListBox1.Items.Add(Split(My.Computer.FileSystem.ReadAllText(arquivo), vbNewLine))
e não
ListBox1.Items.AddRange(Split(My.Computer.FileSystem.ReadAllText(arquivo), vbNewLine))
Ai ele nao carega coretamente , o lance ai e que quando ele envia pro ultimo email
ele da um ero!
ele da um ero!
Cara,
Para o programa dar erro de OutOfRange, o problema está na maneira como você percorre os itens do ListBox.
Para percorrer os itens, segue exemplo genérico:
Ou
Para o programa dar erro de OutOfRange, o problema está na maneira como você percorre os itens do ListBox.
Para percorrer os itens, segue exemplo genérico:
For Each Item As String In ListBox1.Items
MsgBox(Item)
NextOu
For A = 0 To ListBox1.Items.Count - 1
MsgBox(ListBox1.Items(A))
Next
KKkk
Vc me salvando mais uma vez , vlw parceiro!
Vc me salvando mais uma vez , vlw parceiro!
Tópico encerrado , respostas não são mais permitidas