código fuente del programa vb
Mecanismo de manivela-deslizador Mecanismo de manivela-deslizador
Un mecanismo de biela plano que utiliza una manivela y un control deslizante para convertir la rotación y el movimiento, también conocido como mecanismo de biela de manivela.
Código de programa VB:
Estado público, Estado2 como entero, tmp, tmp2 como único
Subcomando privado1_Click(Índice como entero)
Si Texto1 = " 0" Entonces
Text1 = ""
Atenuar i, j como entero
Seleccionar índice de casos
Caso 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
Si Estado <
Entonces tmp = Texto1
Si Estado <> 0 Entonces
Text1 = ""
Finalizar si
Text1.SetFocus
Índice de SendKeys, Verdadero
Si Estado = 0 Entonces tmp = Texto1
Si Estado2 = 1 Entonces tmp2 = Texto1
Debug.Print tmp2; p>También lo descargué de Internet. Miré la estructura y no debería haber ningún problema.