Problema de control de combo vb
Déjame darte un código completo.
El siguiente código necesita colocar un control Combo1 en el formulario, establecer todas las propiedades predeterminadas y agregar un botón. Debido a que el código solo agrega datos cuando Combo1 pierde el foco, se agrega un botón. Cuando se completa la entrada en Combo1, haga clic en el botón para comenzar a guardar los datos. No necesita este botón en su aplicación real. Siempre que el usuario ingrese los datos completos y realice otras operaciones, Combo1 activará el evento de pérdida de enfoque y guardará los datos. Todo esto es automático, por lo que agregar un botón es para. su conveniencia de prueba.
Opción explícita
Atenuar apppath como cadena
Subcombo privado1_LostFocus()
Atenuar i mientras sea largo, j como entero, p como Cadena
Esta línea es un comentario. Lo siguiente es para verificar si hay elementos duplicados en Combo1. Si no, agréguelo
For i = 0 To Combo1.ListCount
Si Combo1 .List(i) = Combo1.Text Entonces
j = 1
Salir para
Finalizar si
Siguiente
Comentario en esta línea: Si no hay proyectos duplicados, agregue datos a Combo1 y guarde el proyecto Combo1 actual en el archivo para cargarlo en el próximo inicio
Si j = 0 Entonces
Combo1.AddItem Combo1.Text
Para i = 1 Para Combo1.ListCount
p = p Combo1.List(i - 1 ) amp; Chr(13) amp; Chr(10)
Siguiente
Abrir apppath amp "myfile.ini" para la salida como #1
Imprimir #1, Izquierda(p, Len( p) - 2)
Cerrar #1
Finalizar si
Fin Sub
Privado Sub Form_Load()
Dim p As String
Comentario en esta línea: Obtener la ruta actual
Si es correcto(App.Path, 1) lt；gt ; "\" Entonces
apppath = App.Path amp; "\"
Else
apppath = App.Path
Fin Si
Comentario de esta línea: lea la información del archivo y escríbala en Combo1
En caso de error, vaya a cuowu
Abra apppath amp "myfile.ini" para Ingrese como #1
Hacer
Si EOF(1) Entonces salga Hacer
Entrada de línea #1, p
Combo1.AddItem p
Bucle
Cerrar #1
cuowu:
End Sub
He pasado mucho tiempo y todavía no puedo conseguir ningún punto no tengo más remedio que ayudar.