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) p >
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