Red de conocimiento informático - Aprendizaje de código fuente - Encuentra varias imágenes y haz clic en sus botones

Encuentra varias imágenes y haz clic en sus botones

Función countSubStr(string1,string2)

'Encuentra el número de veces que la cadena2 aparece en la cadena1

inicio = 1

longitud = 1

countSubStr = 0

Mientras que inicio < len(string1) + 1

str = Left(string1, length)

If Instr(start, str, string2 ) > 0 entonces

countSubStr = countSubStr + 1

Fin si

inicio = inicio + 1

longitud = longitud + 1

Wend

Función final

Función ubicaciónPic(x1,y1, x2,y2,picName)

'Busca la imagen y encuentra la imagen Mueva el mouse a la posición de coordenadas

'Encuentra el área desde las coordenadas de la esquina superior izquierda x1, y1 hasta las coordenadas de la esquina inferior derecha x2, y2

'Devuelve un valor booleano "verdadero", de lo contrario devuelve "falso ", verdadero=-1, ​​falso=0

'Ruta de archivo adjunto predeterminada

FindPic x1, y1, x2, y2, "Adjunto:\amp " & picName & ".bmp", 0.8, tempX, tempY

Si tempX > 0 y tempY >;0 entonces

Mover a tempX, tempY

ubicaciónPic = Verdadero

Else

locationPic = False

Finalizar si

Finalizar función

Función findMultiPics(x1, y1,x2,y2,pics)

'Buscar MultiPics,

'La combinación de bucles y declaraciones de juicio puede desempeñar un papel más importante,

'El tipo de valor de retorno es booleano, verdadero = -1, falso = 0

'Encuentra el área desde la coordenada superior izquierda x1, y1 hasta la coordenada inferior derecha x2, y2<

'las fotos pueden ser un nombre de imagen, o varias imágenes conectadas con el símbolo | Nombre de la imagen

'Busca varias imágenes en orden de subíndice, devuelve True después de encontrarlas y ya no busca

'La ruta predeterminada de el archivo adjunto, en la función locationPic()

separacion = "|"

picArr = split(fotos, separacion)

cntSS = countSubStr(fotos, separacion) )

Si cntSS = 0 Entonces

findMultiPics = locationPic(x1, y1, x2, y2, pics)

Si no

picCnt = 0

Mientras que picCnt < = cntSS

findMultiPics = locationPic(x1, y1, x2, y2, picArr(picCnt))

Si findMultiPics = True Entonces

<

p> Ir a ExitWhile

Fin si

picCnt = picCnt + 1

Wend

Rem ExitWhile

Fin If

Fin

Función final

Función loopFindMultiPics(x1, y1, x2, y2,pics)

'Versión mejorada de FindMultiPics , si no se puede encontrar la imagen de destino, puede continuar buscando hasta encontrarla

'El valor de retorno es de tipo booleano, verdadero=-1, ​​falso=0

'El valor de retorno El valor es de tipo booleano. false=0

'Encuentra el área desde la coordenada superior izquierda x1, y1 hasta la coordenada inferior derecha x2, y2

'las imágenes pueden tener un solo nombre o pueden ser conectado con el símbolo | Nombres de imágenes múltiples

'Busca varias imágenes en orden de subíndice, devuelve True después de encontrarlas y ya no busca

'La ruta predeterminada del archivo adjunto, función en función locationPic()

separación = "|"

picArr = split(fotos, separación)

cntSS = countSubStr(fotos, separación)

Hacer

Si cntSS = 0 Entonces

loopFindMultiPics = locationPic(x1,

Si loopFindMultiPics = True Entonces

Salir Hacer

Finalizar si

Si no

picCnt=0

Mientras picCnt <= cntSS

loopFindMultiPics = ubicaciónPic( x1, y1, x2, y2, picArr(picCnt))

Si loopFindMultiPics = True Entonces

Salir Do

Finalizar si

picCnt = picCnt + 1

Wend

End If

Loop

End Function

'Para devolver las coordenadas de desplazamiento, puede llamar a tempX y tempY'