|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - DiabloRojo
201
« en: Jueves 19 de Agosto de 2004, 16:32 »
Qué tal MindEye? Podrías colocar el código donde te surge el problema?. Envía el código de la función y el de la llamada a la misma; a ver si aquí vemos qué está pasando.
202
« en: Sábado 14 de Agosto de 2004, 22:57 »
Hola. Me llamó la atención lo que estabas buscando hacer. Aquí te mando el código de una prueba que hice y me parece que resuelve tu problema: Private Sub Combo1_Click() Dim i As Integer Dim indice As Integer Dim nvoElement As String If (Combo1.Text = "-añadir-") Then nvoElement = InputBox("Escriba el nuevo elemento", "Añadir") If nvoElement <> "" Then Combo1.AddItem nvoElement End If End If ' para que me muestre seleccionado el nuevo elemento ' ' ésta es una forma ' Combo1.ListIndex = Combo1.NewIndex ' sólo si el elemento se añade al final de la lista ' ' esta es otra forma. Si no sé en que posición se añade (ej. si utilizo la propiedad Sort) For i = 1 To Combo1.ListCount indice = i - 1 If (Combo1.List(indice) = nvoElement) Then Combo1.ListIndex = indice Exit For End If Next i End Sub
Lo interesante del código es lo que esta contenido dentro del bucle for. Fíjate que debes almacenar en una variable (nvoElement en el caso de mi prueba) el elemento que deseas agregar para realizar luego la comparación de ésta variable con cada uno de los elementos que integra el combo. Como vez la comparación se realiza a nivel de cadenas de caracteres ya que la propiedad List devuelve o establece el elemento de determinada posición. Al haber una coincidencia se establece la propiedad ListIndex al elemento que produjo la coincidencia (representado por la variable "indice"). Como supongo que cada elemento es único coloco un Exit For para salir del bucle una vez establezco la propiedad ListIndex (que es la que se encarga de mostrarme el elemento recién ingresado). Bueno espero que esto te ayude a resolver lo que estás buscando hacer. Suerte. Hey, por cierto, si puedes indicar la forma en que agregas tanto en el combo como en la base de datos te lo agradecería.
203
« en: Sábado 14 de Agosto de 2004, 02:44 »
Qué tal fernado? Para tu propósito podrías usar la función replace que se utiliza para reemplazar una parte de una cadena por otra que desees. Te muestro un ejemplo:
Crea un nuevo proyecto y coloca dos textbox y un commandbutton, deja las propiedades name que tienen por defecto, dentro del evento click del command escribe lo siguiente:
Dim NuevoTexto as String
NuevoTexto = Replace(Text1.Text, ",", ".") ' Sustituye la coma por el punto Text2.Text = NuevoTexto
Ahora ejecuta el programa e introduce un número en el text1 separado por una coma y has click en el command. Verás como cambia la coma por el punto.
Ten en cuenta que posiblemente tu estés trabajando con variables de un tipo distinto a String así que debes realizar las transformaciones pertinentes.
Otra función que tal vez podría servirte es Format pero ahí si no puedo comentarte mucho pues no la utilizo con frecuencia. Revisa la ayuda.
Espero que te sea de alguna ayuda.
Suerte.
204
« en: Viernes 13 de Agosto de 2004, 15:33 »
Hola foro. Soy nuevo en el mundillo de la programación y me gustaría saber donde puedo conseguir el Crystal Reports; una versión de prueba por ejemplo. Además, agradecería si me indican donde conseguir tutoriales de la versión 4.5 en adelante (me interesan tutoriales de esta última). De antemano gracias por la ayuda.
205
« en: Martes 10 de Agosto de 2004, 20:30 »
Se me olvidó decirte que entraras al link "Curso"
Suerte
206
« en: Martes 10 de Agosto de 2004, 20:17 »
Que tal Kev? Sobre el trabajo con archivos no se mucho en realidad. No sé si esto te ayude pero aquí te mando un link donde puedes encontrar un tutorial donde, entre otras cosas, se trata el tema de los archivos (secuenciales, aleatorios y binarios): http://www.telecable.es/personales/jrubi/i....htm?trucos.htmRevisa el capítulo 6. Espero que te sea de alguna ayuda. Suerte
207
« en: Martes 10 de Agosto de 2004, 01:43 »
Qué tal Juez? Para unir tus variables podrías colocar algo como esto: Label14.caption="En un tiempo de " & Textestimadoh & ":" & estimadom La verdad no entiendo mucho tu pregunta si pudieras ser un poco más explícito... Indica como estás validando y de donde tomas los valores. Suerte
208
« en: Sábado 7 de Agosto de 2004, 14:28 »
Hola. Alguien me puede comentar las diferencias o similitudes entre VB y VBA? Y otra duda que tengo es si es facilmente transportable el codigo de VBA a VB. De antemano muchas gracias por sus comentarios.
209
« en: Lunes 26 de Julio de 2004, 22:43 »
Hola. No sé si poseas o estés en la factibilidad técnica de hacerlo pero ¿Qué tal si cada foro específico lo subdivides por temas? Por ejemplo, en el de VisualBasic (uno de los más frecuentados) se podría subdividir en categorías tales como: Controles (TreeView, SysInfo, FileListBox, etc), Clases, Dlls, Apis, Generales, etc. Así la información estaría mucho más accesible. Siguiendo con el tema, al momento de escribir esto hay un total de 3428 discusiones y 109 páginas para revisar!! en el foro de VB, sin ningún orden, más allá que el de la fecha y la hora de envío, ni clasificación . ¿La consecuencia? Dudas, consultas, comentarios y respuestas duplicados. No niego que esto también es responsabilidad de nosotros como usuarios que no nos tomamos la molestia de revisar los mensajes anteriores pero, como mencioné antes, son 109 páginas para revisar! sería de gran ayuda implementar los cambios que te comento. De cualquier manera éste foro es de gran ayuda tanto para programadores nóveles como para los no lo son...
Sin más que agregar y esperando que la presente sugerencia sea tomada en cuenta.
DiabloRojo.
210
« en: Lunes 26 de Julio de 2004, 19:26 »
Por supuesto!!! Benditas comas... Me alegra saber que era un detalle menor. Mucha suerte.
211
« en: Lunes 26 de Julio de 2004, 02:12 »
Hola xico. En algun lugar leí que, en efecto, el control timer no se comporta de una manera exacta y si se desea tener mas presición en los proyectos los más recomendable es usar la API. La verdad sobre las API no tengo mucha idea pero te sugiero que investigues sobre ellas (tengo entendido que existen funciones de tipo Timer tal vez alguna te pueda ser de ayuda). Podrías comenzar averiguando sobre el uso de la función GetTickCount, por ejemplo. Espero que mi comentario sea de ayuda. Mucha suerte
212
« en: Sábado 24 de Julio de 2004, 14:08 »
Qué tal Especimen? Copie y pegue el código que colocas y efectivamente da el error que comentas. Me parece muy extraño y no se ve forma aparente de solucionar, pero mas extraño me parece que reemplacé tu código por el mío (copiado y pegado desde otra aplicación) y sí funciona; pero es el mismo código!. Copia y pega desde aquí para ver qué tal:
If App.PrevInstance = True Then MsgBox "Esta aplicacion ya está en uso" Unload Me End If
Espero que funcione... Mucha suerte
P.D: Si alguien sabe el origen y solución de este error por favor coméntelo.
214
« en: Viernes 23 de Julio de 2004, 02:48 »
215
« en: Viernes 23 de Julio de 2004, 02:45 »
Hola. A mi me funciona así como te indiqué. Prueba esto: en el menú seleciona Proyecto|Propiedades de proyecto|Generar y selecciona la opción Incremento automático en el Número de versión y vuelve a generar tu proyecto. Tal vez tenga algo que ver con esto. Estuve revisando por ahí y encontré esto (a mí me parece un poco complicado pero ahí te va): http://www.elguille.info/vb/VB_TIP3.HTM#vb3_09Bueno espero que te sirva. Mucha suerte.
216
« en: Viernes 23 de Julio de 2004, 02:04 »
Hola especimen. No sé si es lo correcto pero prueba colocando dentro de tu bloque if-end if y después del msgbox un Unload Me. Eso te descargaría la nueva instancia del formulario luego del mensaje. Suerte.
217
« en: Jueves 22 de Julio de 2004, 19:00 »
Hola. No estoy muy seguro pero para ello tal vez te sirva el control TreeView. Suerte.
218
« en: Jueves 22 de Julio de 2004, 18:45 »
Hola Alvaro. La respuesta que te manda José está muy bién. Me tomo la libertad de sugerirte que añadas éste código en el mismo procedimiento Click del formulario justo después del Me.Caption = msg. Prueba moviendo el fomulario de posición, ensanchándolo y alargándolo. Así verás las coordenadas que ocupan cada una de las cuatro esquinas de tu formulario en la pantalla. También te recomiendo chequear el sistema o unidad de medida que usas en tu proyecto. Sin más, ahí te va el código:
Me.Cls Print "Esquina superior izquierda " & "(" & Me.Top & "," & Me.Left & ")" Print "Esquina superior derecha " & "(" & Me.Top & "," & Me.Left + Me.Width & ")" Print "Esquina inferior izquierda " & "(" & Me.Top + Me.Height & "," & Me.Left & ")" Print "Esquina inferior derecha " & "(" & Me.Top + Me.Height & "," & Me.Left + Me.Width & ")" Print "Sistema de medida (o unidad de medida) " & Me.ScaleMode
Suerte y espero que te sea de utilidad
219
« en: Martes 20 de Julio de 2004, 18:12 »
Gracias ebolo por tu respuesta. Optaré por reinstalar el VB. Sólo me queda una pregunta ¿Cómo registro el componente en el Windows Me? ¿Utilizo las mismas instrucciones que me diste? De nuevo muchas gracias por la ayuda.
220
« en: Lunes 19 de Julio de 2004, 16:00 »
Hola. Soy nuevo programando en VB y quiero saber cómo se trabaja con archivos de recursos. Mi problema es que cuando intento ejecutar la opción "Modificar tablas de cadenas..." me sale el siguiente error: Error '339' en tiempo de ejecución: El componente 'MsFlxGrd.ocx' o uno de sus archivos dependientes no está registrado correctamente: falta un archivo o no es válido.
Además, cada vez que ejecuto el editor de recursos se añade una línea nueva en la opción de menú "Proyecto": "Agregar un nuevo archivo de recursos" También, veo que ya no aparece el botón "Detener" en la barra de herramientas.
¿Cómo puedo solucionar este problema? ¿Donde puedo encontrar el MsFlxGrd.ocx? ¿Sería una opción válida reinstalar el VB?
De antemano gracias por su ayuda.
|
|
|