Cómo operar el mouse de fondo del complemento Desert
Llamar a Register_dm
Sub Register_dm
Establecer ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl. dll /s"
Establecer ws= nada
PutAttachment "." , "dm.dll"
PutAttachment ".\Plugin", "RegDll.dll "
Llamada Plugin.RegDll.Reg(". \dm.dll")
Retraso 100
Establecer dm = createobject("dm.dmsoft")
ver = dm.
Si ver <> "3.1233" entonces
Establecer dm = nada
Establecer ws=createobject(" Wscript.Shell")
ws.run "regsvr32 .\dm.dll /s"
Establecer ws=nada
Retraso 300
Establecer dm = createobject("dm.dmsoft")
Retraso 100
ver = dm.Ver()
Si ver & lt;> " 3.1233" then
Verify = 60
// Las siguientes dos líneas son una oración y el asistente de claves las escribe en una sola línea.
Cuadro de mensaje "La versión del complemento es incorrecta, la versión actual utilizada es:" & ver & ", el directorio donde se encuentra el complemento es:" & dm.GetBasePath() & Chr(10) & " Por favor, cierre el programa, vuelva a abrirlo e inténtelo de nuevo"
End if
End If
End Sub
Creando un objeto desértico es En una palabra, es así: Set dm = createobject("dm.dmsoft")
Después de eso, puedes usar las funciones dentro del complemento desert. Si es un hilo, puedes. Debes crear uno para cada hilo. Lo que esta oración significa es que en el hilo, debes escribir una oración delante de cada hilo: Set dm = createobject("dm.dmsoft")
En cuanto al fondo, es decir, vinculante, está en el archivo de ayuda del desierto. Puede consultar detalladamente el contenido de la configuración de fondo allí. En cuanto a qué fondo es mejor usar y si el efecto funcionará, no estoy seguro de esto y esto no es seguro. una prueba de lo que sabes (esta es una prueba de lo que sabes). Esta es una prueba para que usted sepa (a veces, si hay tantos modelos en el desierto, ¿son adecuados?), Si es adecuado, puede pensar en otras formas de hacerlo.