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.