Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » FoxPro/Visual FoxPro » Imagenes en Foxpro

FoxPro/Visual FoxPro - Imagenes en Foxpro

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Imagenes en Foxpro

Publicado por Enrique Manuel (1 intervención) el 06/12/2016 21:54:28
Saludos,

Quiero saber mi pueden ayudar en este programa

Es un formulario que cuando le pase el mouse por arriba aparezca una imagen y que cambie cada 2 segundos, no se si me puedan ayudar.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Imagenes en Foxpro

Publicado por Fidel José (657 intervenciones) el 07/12/2016 00:23:36
Para darte una idea:
1) AGrega un control Image al formulario (la llamamos "ImaRot" )
2) Agrega un control Timer al formulario (lo llamamos "timer1")
3) En el ejemplo se toman las imágenes jpg de una carpeta determinada.

*Control ImaRot
* Debe tener una imagen inicial

*En el evento MouseEnter:
Thisform.Timer1.Enabled = .t.

*Evento MouseLeave
Thisform.Timer1.Enabled = .f.

* Control Timer1
* Colocar en el diseñador Enabled = .F.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
* Init de Timer1
LOCAL lcFolder,lnFiles,i
 
lcFolder = ADDBS(_screen.dapli)+"graphics"
WITH thisform.ImaRot
	.top = 0
	.left = 0
	.width = thisform.Width
	.Height = thisform.Height
	.Zorder(1)
	.visible = .t.
ENDWITH
this.Interval = 500
ADDPROPERTY(this,"gaImage[1]","")
 
ADDPROPERTY(this,"nCount",0)
 
lnFiles = ADIR(laFiles,ADDBS(lcFolder)+"*.jpg","",1)
 
ADDPROPERTY(this,"nFiles",m.lnfiles)
IF m.lnfiles > 0
 
	DIMENSION this.gaImage(m.lnFiles)
	FOR i = 1 TO m.lnFiles
		this.gaImage[i]=ADDBS(m.lcFolder)+laFiles[i,1]
	NEXT
	thisform.ImaRot.Picture = this.gaImage[m.lnfiles]
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar