Mensajes

el form 5 si esta activado, de echo es el main.

lo que he hecho es en vez de cargar las imagenes en ejecucion en el imagelist las he añadido en el diseño, pero aun asi no me funciona. el codigo que tengo seria este (pero para un icono, todavia no hago ningun bucle para saber que tipo de archivo es y elegir un icono u otro)

Código (vb) [Seleccionar] Expandir

Public Function llenar_list()

Dim contador As Integer
Dim item As ListItem
Dim tamaño As Double

Form5.ListView1.ColumnHeaders.Clear

Form5.ftp.GetTextDirListing "*.*"
Form5.ListView1.ListItems.Clear

contador = 0

Form5.ListView1.ColumnHeaders.Add , , "Files", Form5.ListView1.Width / 2
Form5.ListView1.ColumnHeaders.Add , , "Size", Form5.ListView1.Width / 2


Do While Form5.ftp.GetFilename(contador) <> ""
   
    Set item = Form5.ListView1.ListItems.Add(, , Form5.ftp.GetFilename(contador), Form5.ImageList1.ListImages(6))   'aqui el imagelist deberia poner el icono en el list
   
    tamaño = Val(Form5.ftp.GetSize(contador)) / 1022
    item.SubItems(1) = Val(Mid(Str(tamaño), 1, 4)) & " " & "Kb"
   
    contador = contador + 1
   
Loop

End Function

a ver como consigo hacerlo porque no se me ocurre como :S

sigue sin funcionarme, sera una tonteria pero no lo veo. me da un error que dice que el imagelist debe ser inicializado antes de usarlo. pero no se a que se refiere con eso :S

bueno ya encontre el fallo, resulta que el fallo no estaba en la conversion, sino que yo en un textbox3 no puedo meter la suma de lotros textbox siendo un tipo int, antes de meterlo en el textbox3 tengo que hacerle un convert.tostring (x+y)

muchas gracias por la ayuda eh ^^

bueno, hoy he empezado con C# y me ha surgido una duda totna que no consigo resolver.

intento convertir el valor de un textbox en int, y me dice que no puedo convertir implicitamente un string en un int.

por que es esto?? en ninguno de los sitios que busco me aclara la duda porque me da el mismo error.

alguien podria poderme un ejemplo con algun pequeño codigo o decime como hacerlo??

he probado el convert.toint32(textbox1.text), el int.parse(textbox1.text) y de ninguna de las dos formas -.-

saludos y gracias

bueno, tengo un problema al poner iconos en un listview.

lo que hago es cargar al principio los iconos en un imagelist, y lego cuando añado los items al listview en la parte de icono le digo que ponga el listimage(x) del imagelist.

pero a la hora de ejecutar el programa me da un fallo que dice que para usar el imagelist primero debo inicializarlo.

espero que alguien pueda ayudare. aqui dejo el codigo para que lo veais

Código (vb) [Seleccionar] Expandir

Public Function cargar_imgs()

Dim indice As Integer
Dim img As ListImage
Dim directorio As String

directorio = App.path & "\iconos"

For indice = 1 To 8

   
   Form5.Picture1.Picture = LoadPicture(directorio & "\" & indice & ".jpg")
   Set img = Form5.ImageList1.ListImages.Add(indice, , Form5.Picture1.Picture)

Next indice



End Function

Código (vb) [Seleccionar] Expandir

Public Function llenar_list()

Dim contador As Integer
Dim item As ListItem
Dim tamaño As Double

Form5.ListView1.ColumnHeaders.Clear

Form5.ftp.GetTextDirListing "*.*"
Form5.ListView1.ListItems.Clear

contador = 0

Form5.ListView1.ColumnHeaders.Add , , "Files", Form5.ListView1.Width / 2
Form5.ListView1.ColumnHeaders.Add , , "Size", Form5.ListView1.Width / 2

Do While Form5.ftp.GetFilename(contador) <> ""
   
   If InStr(LCase(Form5.ftp.GetFilename(contador)), ".jpg") <> 0 Then
   
       Set item = Form5.ListView1.ListItems.Add(, , Form5.ftp.GetFilename(contador), Form5.ImageList1.ListImages(1))
   
   End If
   
   If InStr(LCase(Form5.ftp.GetFilename(contador)), ".rar") <> 0 Then
   
       Set item = Form5.ListView1.ListItems.Add(, , Form5.ftp.GetFilename(contador), Form5.ImageList1.ListImages(6))
   
   End If
   
   If InStr(LCase(Form5.ftp.GetFilename(contador)), ".txt") <> 0 Then
   
       Set item = Form5.ListView1.ListItems.Add(, , Form5.ftp.GetFilename(contador), Form5.ImageList1.ListImages(7))
   
   End If
   
   If InStr(LCase(Form5.ftp.GetFilename(contador)), ".pdf") <> 0 Then
   
       Set item = Form5.ListView1.ListItems.Add(, , Form5.ftp.GetFilename(contador), Form5.ImageList1.ListImages(8))
   
   End If
   
   If InStr(LCase(Form5.ftp.GetFilename(contador)), ".mp3") <> 0 Then
   
       Set item = Form5.ListView1.ListItems.Add(, , Form5.ftp.GetFilename(contador), Form5.ImageList1.ListImages(2))
   
   End If
   
   If InStr(LCase(Form5.ftp.GetFilename(contador)), ".avi") <> 0 Or InStr(LCase(Form5.ftp.GetFilename(contador)), ".mpg") <> 0 Or InStr(LCase(Form5.ftp.GetFilename(contador)), ".mpeg") <> 0 Then
   
       Set item = Form5.ListView1.ListItems.Add(, , Form5.ftp.GetFilename(contador), Form5.ImageList1.ListImages(3))
   
   End If
   
    If InStr(LCase(Form5.ftp.GetFilename(contador)), ".doc") <> 0 Then
   
       Set item = Form5.ListView1.ListItems.Add(, , Form5.ftp.GetFilename(contador), Form5.ImageList1.ListImages(6))
   
   End If
   
   
   
   tamaño = Val(Form5.ftp.GetSize(contador)) / 1022
   item.SubItems(1) = Val(Mid(Str(tamaño), 1, 4)) & " " & "Kb"
   
   contador = contador + 1
   
Loop

End Function

bueno, se que el codigo se peude optimizar y el programa esta hecho con chilkatftp2, no con un API.
pero cualquier critica y consejo sera bien recibido

saludos

ka0s, si quieres cambiar el estilo y la apariencia de los botones prueba con este ocx

http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/74-ocx-botones-office-xp-office-2003.htm

espero haberte ayudado. un saludo

hola ka0s, mira, lo que seba te dice es que para abrir la base de datos, uses un modulo.bas y ahi te creas una funcion donde abres la base de datos.
luego en el form load o en el initialize haces la llamada a esa funcion, cuando introduzcas los datos de nomrbe de usuario y contraseña, haces un findfirst al nombre de usuario y si lo encuentra compruebas la contraseña, si la condicion es verdadera entonces cierras el formulario de login y haces un formx.show del formulario que quieras abrir ahora

saludos

a ver es muy simple, para entrar al form1, cuando metas el user y el pass puedes buscarlos en una lista de usuarios con acceso que tengas guardados en una base de datos, donde ademas, tu puedas añadir permisos o restriciones y luego vas ahaciendo comprobaciones.

es solo jugar un poquito con la imaginacion y las condiciones

espero haberte ayudado. saludos

gracias meta por el tutorial. me vendra muy bien

saludos

si lo que quieres hacer es una aplicacion ftp para poder descargar archivos de un servidor o algo, utiliza la API wininet o si quieres usar algo un poco mas simple utiliza un componente que peudes descargar que se llama chilkatftp2

aqui te dejo el enlace para que te descargues el chilkatftp2   

http://www.chilkatsoft.com/