Encuentra varias imágenes y haz clic en sus botones
'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'