Mensajes

Al iniciar el juego me salta este error:

Error 9 en tiempo de ejecucion.
El subindice esta fuera del intervalo

Solo e visto la introducion y parece k esta muy bien felicidades 

PD:¿Pondras el codigo? 

si kieres un filemanager deberias buscar mas...

http://foro.elhacker.net/index.php/topic,160912.0.html

eso solo lista directorios y subdirectorios aora az tu o busca el upload & download y ya lo tienes

wuaaa k crack XDD , na tio te lo as currao de verdad 

Hola,hace tiempo encontre este codigo por la red para cambiar el icono a ejecutables en vb haber si te sirve:

http://ultrashare.net/hosting/dl/eadb490113

te he dejao el codigo en un archivo .doc luego lo acoplas tu al  compilador XD.

hola, gracias por responder a los 2.
Sancho.Mazorka te e agregado cuando te conectes me pasas eso si no teimporta gracias 

Insertar Cita
en un picturebox creo que si se puede ampliar una zona, en un form no lo he probado nunca, nose si se puede

ya ya en un picturebox se que se puede,pero el problema es que es el proyecto es de un colega pa la uni y supongo k tendra k ser en el form XD

gracias de todos modos

Hola wenas,tengo una duda.

He creado un dibujo en el form con el evento form_paint,y tengo la duda de como podria hacer un zoom de ese dibujo al apretear un boton.

este es el codigo:

Código [Seleccionar] Expandir

Private Sub Form_Paint()

On Error Resume Next
Dim Xvisado As Double
Dim Yvisado As Double
Dim x1 As Double
Dim y1 As Double
Dim x2 As Double
Dim y2 As Double
Dim x3 As Double
Dim y3 As Double
Dim Des As Double
Dim Azimut As Double
Dim Az As Double
Dim ds As Double
Dim Pi As Double

Xvisado = Text1.Text
Yvisado = Text2.Text
Az = Text3.Text
Pi = 3.141592653
ds = Text4.Text

Xvisado = Xvisado * Pi / 200
Yvisado = Yvisado * Pi / 200
Azimut = Az * Pi / 200
Des = ds * Pi / 200

x1 = 3360 + 1750 * Cos(Azimut)
y1 = 2880 - 1750 * Sin(Azimut)
x2 = 3360 + 1750 * Cos(Des)
y2 = 2880 - 1750 * Sin(Des)
x3 = 3360 + 1750 * Cos(Xvisado)
y3 = 2880 - 1750 * Sin(Yvisado)

frmRadiacion.Line (3360, 2880)-(x1, y1), RGB(255, 0, 0)
frmRadiacion.Line (3360, 2880)-(x2, y2), RGB(0, 255, 0)
frmRadiacion.Line (3360, 2880)-(x3, y3), RGB(0, 0, 255)

frmRadiacion.Circle (3360, 2880), 200, RGB(0, 0, 255), (Xvisado / Yvisado)
frmRadiacion.Circle (3360, 2880), 300, RGB(0, 255, 0), Des
frmRadiacion.Circle (3360, 2880), 400, RGB(255, 0, 0), Azimut
end sub


haber si alguien me podria echar una mano o darme alguna idea,Muchas gracias

fiajte meg que no e podido subir nada  mi ftp.. mejor dicho no sube nada a mi ftp.... alguna sugerencia

No lose supongo que aras algo mal...

donde pone: ftp.usuarios.lycos.es,as puesto tu direccion?? y has introducido bien el USER y el password???

fijate bien porque ami si me funciona..

Esta muy bien el filemanager,aunke habria que añadirle cosillas como por ejemplo una flechita para que vuelva al directorio anterior,poner iconos segun el tipo de archivos etc...

pero para empezar ha hacer un filemanager es el mejor ejemplo que puedes encontrar 

podrias poner un post con todos tus codigos,en ese post se blokea y se le pone chincheta,yo creo k seria lo mejor para tener recopilados todos tus codigos ya que son buenos y utiles... solo es una idea xD que os parece??