Red de conocimiento informático - Problemas con los teléfonos móviles - Respuestas urgentes a preguntas sobre programación en vb

Respuestas urgentes a preguntas sobre programación en vb

Subcombo privado1_KeyPress(KeyAscii como entero)

Si KeyAscii = 13 entonces

KeyAscii = 0

Para n = 0 a Combo1 .ListCount - 1

Si Combo1.Text = Combo1.List(n) Entonces MsgBox "El elemento ya existe en el cuadro combinado": Salir Sub

Siguiente

Combo1.AddItem Combo1.Text

Finalizar si

End Sub

Subcomando privado1_Click()

Abrir "c:\ t2 .txt" para ingresar como #1

Ingresar #1, a

Cerrar #1

Abrir "c:\t1.txt" para agregar como # 1

Imprimir #1, a

Cerrar #1

Fin Sub

Subtexto privado1_KeyPress(KeyAscii como entero)

Si KeyAscii = 13 Entonces

KeyAscii = 0

Si UBound(Split(Text1, "(")) > UBound(Split(Text1, ")") ) Luego MsgBox "Hay más paréntesis izquierdo que derecho"

If UBound(Split(Text1, "()") < UBound(Split(Text1, ")")) Then MsgBox "Hay más paréntesis derecho En el paréntesis izquierdo"

Si UBound(Split(Text1, "()")) = UBound(Split(Text1, ")")) Then MsgBox "Emparejamiento de paréntesis"

Finalizar si

Finalizar sub