Mensajes

[Microsoft common dialog control 6.0]

hola, me gustaría que al cargar VB6, este control siempre apareciera en la toolbox:

Microsoft common dialog control 6.0

pero cada vez que cierro y vuelvo a abrir el programa, el control desaparece de la toolbox :/

A mi lo que me parece mejor idea es que al abrir el programa salga un vista previa de las imagenes, por ejemplo, saldría la lista de cartas con su respectiva imagen en cada una, PERO AL 30%-50%  de la calidad de la imagen real, y luego ya al pinchar sobre dicha carta/imagen, pues que se viera la imagen a 100% calidad. de esa manera, en vez de 600 mb solo debería cargar 200-300 mb, según la calidad de la vista prévia.

Me parece mejor idea que tener que descargar esa basta cantidad de MB cada vez al abrir el programa.

Y también es mejor idea que dejar al usuario sin previsualización de la carta.

saludosss

[vbs]

bueno, vale vale

Solo intentaba averiguar eso, además, en vbs si que se puede...

Código [Seleccionar] Expandir

(0)
(1)

...Por eso, es muy raro que en VB no.

un saludo!

PD: Pronto os intentaré recompensar la ayuda xD

1º - Lo primero de todo que debes hacer antes de plantear los siguientes puntos, lo primeriiiiiiiiiisimo de todo si todavía no lo has echo:
       
       Si las imagenes son PNG o BMP o formatos que ocupen mucho, conviertelas TODAS a jpg.
       Además, Reduce el peso total, una a una, bajandole calidad al jpg, hay programas que te lo hacen automático, supongo que ya lo sabes, y espero que ya lo hayas echo xD.

2º - No me ha quedado claro una cosa... Los 600 mb de imagenes, se deberían de bajar cada vez que el usuario abra el programa? en cambio si se lo baja desde la  ftp, solo haría falta una vez?

3º - No necesitas contratar una ip estática.      Yo creo que sería buena idea registrarte un dominio por el módico precio de 15$ en www.no-ip.com, y usar la aplicación de la misma web, como si tuvieras una "ip fija".

4º - No puedo ayudarte más, porque yo tambien estoy verde en el tema xD

saludosss

Windows?

Tienes un theme raro instalado? porque eso parece un mac os xD

PD: el error no te lo da "windows", sino la aplicación "SearchSpy".

...Reinicia, entra en modo seguro y desinstala el searchSpy, y luego ya... te instalas un AV de los buenos.

saludosss

Gracias a todos, ..sé que de una forma u otra me habéis intentando ayudar...

Lo tuyo no tiene perdón!!

Pero has formateado ya o no? xD

Ese candado de Rando cada vez lo veo más cerca 

[DoesFileExist("C:\file.txt")]

si, a lo que me refiero es que debe existir algun parámetro en vb para reconocer el último argumento que ha pasado por el procedimiento... ¿¿¿¿NO???

por ejemplo:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   DoesFileExist("C:\file.txt")
   DEBUG.PRINT %1
End Sub


DoesFileExist("C:\file.txt")  sería el argumento 1

Y El propósito de %1 (Pongo %1 porque no conozco dicho parámetro en vb) sería que hiciera esto:

Código [Seleccionar] Expandir

DEBUG.PRINT DoesFileExist("C:\file.txt")


¿Me entiendes?  

Lo mismo, pero sin escribir tanto code, si en batch se puede, en vb como no se va a poder? espero que si, porque eso ahorraría muchas líneas de código  

gracias a los 2

¿Es necesario volver a escribir la funcion y el string en el debug?

el ejemplo que me habeis dado hace esto:

Código [Seleccionar] Expandir

debug.print funcion string

¿no se podría hacer con un simple parámetro/operador que reconozca el argumento anterior?

algo así:

Código [Seleccionar] Expandir

debug.print %1

(Lo sé, me ha quedado muy batch  )

EDITO: si, tengo que acostumbrarme a indentar, pero solo stoy practicando funciones XD

EDITO2: por más que me he leido esto:

http://wiki.gambas-es.org/index.php?title=Tabla_de_Traducci%C3%B3n_de_ordenes_de_VB6_a_Gambas

No encuentro ningún tipo de parámetro para hacer lo que he dicho, pero si batch si que lo puede hacer, digo yo que vb también :S.

vaya, por eso no me iba a mi con el maldito IcoFX ni usando el icono a 16x16 

(Me lo apunto en el cuaderno virtual)

Código (vb) [Seleccionar] Expandir

Function DoesFileExist(FilePath As String, Optional FileAttr As VbFileAttribute) As Boolean
If Len(Dir$(FilePath, FileAttr)) > 0 Then DoesFileExist = True Else DoesFileExist = False
End Function


Private Sub Form_Load()
DoesFileExist "C:\file.txt"
End Sub

¿Como puedo saber si me devuelve TRUE o FALSE, y de paso hacer un debug.print?

gracias