Foros del web, para los que viven de bits

apofis · 15-abr-2008, 09:34

tengo un problema que no se como resolverlo y es el siguiente:

tengo un formulario para envio de correos(solo envio)con adjunto mediante smtp,
todo funciona perfectamente,pero tambien e creado un listview con 3 columnas
correos,sexo y ciudad, y ahi viene el problema y es que la primera columna se puede editar para introducir datos,pero no las otras dos y no se como hacerlo

tambien quiero que al selecionar el nombre del correo de la primera columna se introduzca directamente en el texbox del correo a enviar y tampoco lo logro.

p.d.(¿es aconsejable codificar el archivo adjunto?)

David el Grande · 15-abr-2008, 11:26

Cita:

Iniciado por apofis

tengo un problema que no se como resolverlo y es el siguiente:

tengo un formulario para envio de correos(solo envio)con adjunto mediante smtp,
todo funciona perfectamente,pero tambien e creado un listview con 3 columnas
correos,sexo y ciudad, y ahi viene el problema y es que la primera columna se puede editar para introducir datos,pero no las otras dos y no se como hacerlo

tambien quiero que al selecionar el nombre del correo de la primera columna se introduzca directamente en el texbox del correo a enviar y tampoco lo logro.

p.d.(¿es aconsejable codificar el archivo adjunto?)

Puedes hacerlo con SubItems:

Código:

 
ListView.SelectedItem.SubItems(1) = "Columna2"
ListView.SelectedItem.SubItems(2) = "Columna3"

Para mostrar en un TextBox el Ítem seleccionado:

Código:

 
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Text1.Text = Item.Text
End Sub

apofis · 16-abr-2008, 07:29

menudo lio me e armado,tanto que e tenido que volver a empezar de nuevo todo entero,pero bueno asi se aprende(o eso creo)

la cuestion es que no e logrado editar las 2 columnas asi que lo e dejado(ya probare otra cosa),lo que si e podido es añadir una obcion de añadir datos al listview y guardarlos,asi como poder listar todos los datos.

el lio viene por querer codificar el archivo adjunto,que no me aclaro

Código:

Open Archivo For Binary As #1
   Open Destino For Output As #2
   Print #2, "begin 644 " + Archivo
   bl& = 45: fl& = LOF(1): bf$ = Space$(bl&)
   While fl&
   If fl& < bl& Then bl& = fl&: bf$ = Space$(bl&)
   Get #1, , bf$: fl& = fl& - bl&
   If bl& Mod 3 <> 0 Then bf$ = bf$ + String$(3 - bl& Mod 3, 0)
   For i = 1 To bl& Step 3
   c1 = Asc(Mid$(bf$, i, 1))
   l$ = l$ + Chr$((c1 * 16 + c2 \ 16 And &H3F) + 32)
   Next
   Print #2, Chr$(32 + bl&); l$: l$ = ""
   Wend
   Print #2,: Print #2, "  "
   Close #1, #2

15-abr-2008, 09:34	#1 (permalink)
apofis Fecha de Ingreso: enero-2008 Ubicación: españa Mensajes: 77	listview tengo un problema que no se como resolverlo y es el siguiente: tengo un formulario para envio de correos(solo envio)con adjunto mediante smtp, todo funciona perfectamente,pero tambien e creado un listview con 3 columnas correos,sexo y ciudad, y ahi viene el problema y es que la primera columna se puede editar para introducir datos,pero no las otras dos y no se como hacerlo tambien quiero que al selecionar el nombre del correo de la primera columna se introduzca directamente en el texbox del correo a enviar y tampoco lo logro. p.d.(¿es aconsejable codificar el archivo adjunto?)

15-abr-2008, 11:26	#2 (permalink)
David el Grande Colaborador Fecha de Ingreso: abril-2005 Ubicación: In this planet Mensajes: 5.346	Re: listview Cita: Iniciado por apofis tengo un problema que no se como resolverlo y es el siguiente: tengo un formulario para envio de correos(solo envio)con adjunto mediante smtp, todo funciona perfectamente,pero tambien e creado un listview con 3 columnas correos,sexo y ciudad, y ahi viene el problema y es que la primera columna se puede editar para introducir datos,pero no las otras dos y no se como hacerlo tambien quiero que al selecionar el nombre del correo de la primera columna se introduzca directamente en el texbox del correo a enviar y tampoco lo logro. p.d.(¿es aconsejable codificar el archivo adjunto?) Puedes hacerlo con SubItems: Código: ListView.SelectedItem.SubItems(1) = "Columna2" ListView.SelectedItem.SubItems(2) = "Columna3" Para mostrar en un TextBox el Ítem seleccionado: Código: Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Text1.Text = Item.Text End Sub __________________ "En la vida muchas veces tenemos que ser aprendices, y muchas veces maestros" P.S.: Pregunta siempre en el foro correcto. Última edición por David el Grande; 15-abr-2008 a las 11:51.

16-abr-2008, 07:29	#3 (permalink)
apofis Fecha de Ingreso: enero-2008 Ubicación: españa Mensajes: 77	Re: listview menudo lio me e armado,tanto que e tenido que volver a empezar de nuevo todo entero,pero bueno asi se aprende(o eso creo) la cuestion es que no e logrado editar las 2 columnas asi que lo e dejado(ya probare otra cosa),lo que si e podido es añadir una obcion de añadir datos al listview y guardarlos,asi como poder listar todos los datos. el lio viene por querer codificar el archivo adjunto,que no me aclaro Código: Open Archivo For Binary As #1 Open Destino For Output As #2 Print #2, "begin 644 " + Archivo bl& = 45: fl& = LOF(1): bf$ = Space$(bl&) While fl& If fl& < bl& Then bl& = fl&: bf$ = Space$(bl&) Get #1, , bf$: fl& = fl& - bl& If bl& Mod 3 <> 0 Then bf$ = bf$ + String$(3 - bl& Mod 3, 0) For i = 1 To bl& Step 3 c1 = Asc(Mid$(bf$, i, 1)) l$ = l$ + Chr$((c1 * 16 + c2 \ 16 And &H3F) + 32) Next Print #2, Chr$(32 + bl&); l$: l$ = "" Wend Print #2,: Print #2, " " Close #1, #2

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado