ListView
Publicado por CaTaLiNa_o_o (5 intervenciones) el 29/01/2007 21:17:46
Tengo un problema con un listview... es respecto a un programa de chat...y al ignorer de usuario..se como ignorar un usuario...este es el code..desde Menu..
Private Sub mignore_Click()
If mignore.Caption = "Ignorar" Then
Call ignoranick(slnick, "+") ' ignora nick
Else
Call ignoranick(slnick, "-") ' designora nick
End If
End Sub
esto en un MODULO
Sub ignoranick(nicks As String, modo As String)
' Procedimiento que ignora a un nick
On Error Resume Next
Dim a As Long
For a = 0 To 100
If modo = "+" Then
If nignorados(a) = "" Then nignorados(a) = nicks: Call iconignore(nicks, modo): Exit For
ElseIf modo = "-" Then
If nignorados(a) = nicks Then nignorados(a) = "": Call iconignore(nicks, modo): Exit For
End If
Next
End Sub
El problema es ke kiero ke al selecionar varios usuarios un comando me sirva como multignore...osea ke ignore/designore los usuarios ke e seleccionado con el mouse en el listview..
ke puedo hacer please...
Private Sub mignore_Click()
If mignore.Caption = "Ignorar" Then
Call ignoranick(slnick, "+") ' ignora nick
Else
Call ignoranick(slnick, "-") ' designora nick
End If
End Sub
esto en un MODULO
Sub ignoranick(nicks As String, modo As String)
' Procedimiento que ignora a un nick
On Error Resume Next
Dim a As Long
For a = 0 To 100
If modo = "+" Then
If nignorados(a) = "" Then nignorados(a) = nicks: Call iconignore(nicks, modo): Exit For
ElseIf modo = "-" Then
If nignorados(a) = nicks Then nignorados(a) = "": Call iconignore(nicks, modo): Exit For
End If
Next
End Sub
El problema es ke kiero ke al selecionar varios usuarios un comando me sirva como multignore...osea ke ignore/designore los usuarios ke e seleccionado con el mouse en el listview..
ke puedo hacer please...
Valora esta pregunta


0