|
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 - Jimbenit
Páginas: 1 ... 8 9 [10] 11 12 ... 15
226
« en: Viernes 28 de Noviembre de 2008, 01:47 »
Me da gusto ver cuando Nebire responde una duda
Nota: Lo coloque en Verde por Respeto Saludos.
227
« en: Viernes 28 de Noviembre de 2008, 01:41 »
Hola, Aclaro algo , aqui no hacemos tareas, aqui ayudamos a la gente en alguna duda de su codigo, es decir , Tu colocas lo que llevas de desarrollo y preguntas cual es el problema , luego miramos tu codigo y te decimoss algunas pistas o ayudas de como hacer eso que quieres hacer, es asi como ayudamos.Saludos y espero volver a verte por aca con alguna duda que tengas
228
« en: Viernes 28 de Noviembre de 2008, 01:29 »
Por Diosss... ¿Como no ayudar a mi princesa Toph?Lo que quieres hacer es eliminar el boton cerrar, desabilitarlo?, aqui tienesOption Explicit 'Declaraciones del api '------------------------------------------------------ ' PAra deshabilitar el menú y otros Private Declare Function DeleteMenu Lib "user32" ( _ ByVal hMenu As Long, _ ByVal nPosition As Long, _ ByVal wFlags As Long) As Long ' Obtiene el Handle al menú del sistema de la ventana Private Declare Function GetSystemMenu Lib "user32" ( _ ByVal hwnd As Long, _ ByVal bRevert As Long) As Long Private Const MF_BYPOSITION = &H400& Private Sub Aplicar_Cambios(ByVal El_Formulario As Form, _ ByVal Menu_Cerrar As Boolean, _ ByVal Redimensionar As Boolean, _ ByVal Mover As Boolean) Dim Hwnd_Menu As Long ' Obtiene el Hwnd del menú para usar con el Api DeleteMenu Hwnd_Menu = GetSystemMenu(El_Formulario.hwnd, False) ' botón Cerrar If Menu_Cerrar Then Call DeleteMenu(Hwnd_Menu, 6, MF_BYPOSITION) End If 'Hace que la ventana no se pueda cambiar de tamaño If Redimensionar Then Call DeleteMenu(Hwnd_Menu, 2, MF_BYPOSITION) End If ' No permite que la ventana se pueda mover If Mover Then Call DeleteMenu(Hwnd_Menu, 1, MF_BYPOSITION) End If End Sub Private Sub Form_DblClick() Unload Me End Sub Private Sub Form_Load() MsgBox " Para cerrar el formulario haz DOBLE Click en el mismo ", vbInformation ' Deshabilita el Command de cerrar, y no permite que se redimensione _ y mueva el formulario Call Aplicar_Cambios(Me, True, True, True) End Sub
2) Introducir codigo al boton cerrar?No puedes, en lugar de eso, (como te han dicho antes) utiliza el evento Unload o TerminateAclaración: primero se desencadena el evento unload y luego el terminate, mira los comentarios en el msdnSaludos y ... TE QUIERO MUCHOOOOONota:Te quiero mucho TophNota 2:Muy contento de que mi Post numero 100 sea para mi princesa
229
« en: Viernes 28 de Noviembre de 2008, 00:58 »
Estas empezando y ya quieres meterte con sql server? , muy bien, muy bien pero para poder ayudarte haz caso al mensaje de Moskito
230
« en: Jueves 27 de Noviembre de 2008, 23:03 »
no creo que las FARC te vayan a secuestrar a vos o a mi. Ellos son delincuentes, esto es facilmente demostrable.Por mis puntos numero 4 y 7 de mis criterios apoyo a Uribe en su política contra las FARC y si Él ha hecho algo malo que Dios lo castigueNota:Edo, tu video no me sale, podrías escribir el enlace de donde lo pueda ver (si es de youtube, mándame el link)
231
« en: Miércoles 26 de Noviembre de 2008, 20:38 »
Corrección:
Suma el total de guerrilleros muertos con los que se desmovilizan y los multiplicas por el promedio de asesinato en las filas de las Farc
232
« en: Miércoles 26 de Noviembre de 2008, 19:54 »
Si todos aparecen?, muy bien
Te quiermo mucho Toph
INFORMACION: Soy ingeniero Civil, Cartagena (colombia)
233
« en: Miércoles 26 de Noviembre de 2008, 19:24 »
Dame más de 1 resultado, te diré cuál es... Le ha dado duro a las FARC Edo, te invito a que pienses por un momento en las personas de escasos recursos que viven en los pueblos, en esas personas que estaban azotadas por las FARC y que ahora hoy ya estan mas tranquilas, te mostraré algunos puntos que hacen parte de mi criterio los cuales me incentivan a estar con Uribe.1) Para mi es mas valiosa una vida que miles de millones de pesos 2) Si me obligan a elegir un 'man' para que sea mi presidente de entre muchos 'manes' malos, yo escojo al menos malo 3) El bien comun esta por encima del bien individual (en forma general: el bien de la mayoría esta por encima de la minoría) 4) Acabar con la maldad sin importar que forma tenga 5) Para demostrar que algo es malo, hay que demostrarlo delante de la verdad absoluta (es decir, demostrar biblícamente que algo es malo) 6) Proteger al inocente (de forma integra, moral, económicamente y en todos sus aspectos) 7) Entender que algunas guerras son necesarias para poder reducir la maldadAtención al punto 3, no confundir con autoritarismo, lo que intento decir es que sea democrático y estoy muy de acuerdo con las elecciones cada 4 añosSe que muchos tienen razón cuando dicen que Uribe le falta esto o aquello, o que tiene tal defecto, o que muestren video donde Uribe diga apoyar a las Convivir (esto ultimo se crearon para proteger a la gente, lamentablemente se infiltraron muchos delincuentes y las convivir se convirtieron en un 'tornado' de Terror, lo se muy bien porque las convivir aparecieron inicialmente en Cordoba, norte de Antioquia, centro de Bolivar y otras zonas aledañas donde pude ver de cerca el inicio de las Convivir, y ese video donde Uribe dice apoyar a las convivir es alrededor del año 92 o 94, años donde INCLUSIVE YO creia que las convivir protegian a la gente, cuando se demostraron que las convivir eran controladas por paramilitares [alrededor de los años 95 - 96] entonces Uribe quedo visto como 'paraco' lo cual es el error tipico de las personas que no vivieron de cerca el nacimiento de las convivir)Edo, Apoyo al presidente Uribe no por que sea un 'AS' en las finanzas sino por que ha exterminado a delicuentes que asesinaban, secuestraban al inocente y como dije, esto para mi es mas valioso que los miles de pesos perdidos en malas inversiones que posiblemente Uribe halla hecho (partiendo en que eliminar a un asesino es salvar la vida a los que posiblemente ese asesino halla podido matar si estuviese vivo [como ejemplo, Raul Reyes o los miles de guerrilleros caidos en combate]) Pensemos en esto: Si hallamos el promedio de personas que mueren por 1 guerrillero vivo, (osea, promedio de asesinato de 1 guerrillero vivo en las filas de las FARC) y si lo multiplicamos por los guerrilleron caidos en los años en que Uribe es presidente, el valor seria Aproximadamente las vidas Salvadas por las politicas de Uribe y esto es Gracias a Dios que Uribe es presidente y que sigue con vidaY esto para mi es mucho mas de lo que un hombre como presidente pueda hacerEdo, Ahora sabes por que apoyo a Uribe ?Saludos
234
« en: Miércoles 26 de Noviembre de 2008, 18:17 »
Para reírse un rato
235
« en: Miércoles 26 de Noviembre de 2008, 15:23 »
Hola a todos.Tengo un problema con el operador MOD , INtenten realizar la operacion siguiente Dim a As Single = 4.2 Dim b As Single = 0.6 MsgBox(a Mod b)
el resultado deberia ser cero pero no, aparece 0.5999999..., ¿Por que?Pero si hago esto : 3.33066907387547E.16La respuesta no es cero?, por que VB2005 dice que dan valores diferentes con los dos codigos anteriores y ademas, el resultado en cada uno es Incorrecto Nota1:Acuerdense que soy nuevo en VB2005Nota2:Yo quiero mucho a Toph
236
« en: Martes 25 de Noviembre de 2008, 18:54 »
Mi bella Toph, Estuve buscando paginas similares y no he podido hallarlas pero seguiré buscando.
Saludos.
Nota: Te quiero Toph
237
« en: Martes 25 de Noviembre de 2008, 18:18 »
Jimbenit, yo soy Colombiano y te he dado más razones para que dejes de ser Uribista de lo que puedes tragar Edo, Se que eres de Cali, (no es asi?), pero no soy Uribista por que YO quiera, sino por los resultados que Uribe ha dado. Aceptemos los resultados!!... Saludos a todos.
238
« en: Martes 25 de Noviembre de 2008, 17:03 »
Cierto, cierto, cierto.... había creído que venia con el windows... Moskito, gracias, ya se quito
239
« en: Martes 25 de Noviembre de 2008, 16:07 »
Hola a todos los foreros, moderadores, administradores, invitados y a todos en general Tengo un problema en mi computador y no he podido repararlo, por eso los consulto. El problema es el siguiente:
Cada vez que voy a abrir una carpeta en mi computador haciendo doble click en ella me sale un mensaje de configuración, como el siguiente (figura 1): ¿Como le hago para desaparecer este error? Despues que le doy "OK" o "Cancel" me sale el siguiente cuadro(figura 2): Tengo ya mas de 1 mes con este error y aun no he podido solucionarlo , alguien me podría ayudar a eliminarlo ?
Saludos
240
« en: Martes 25 de Noviembre de 2008, 14:44 »
¿Ya no tienes nada más que decir, sólo esto? ¿Ya no razonas? ¿Ya no tienes argumentos? ¿Ya sólo te queda la FE en Uribe? Defiende a tu presi, que lo están machacando. Solo me limitare a leer los comentarios, pero antes te digo que Uribe ha sido el mejor presidente que ha tenido Colombia y esto lo digo porque los resultados de sus políticas son contundentes, ahora, si te pones a averiguar si tiene cosas que no han sido correctas seguro que las encontraras y esto es porque es Humano pero yo confio que él ha actuado de buena voluntad (aunque en este post intenten hacer ver lo contrario)
241
« en: Lunes 24 de Noviembre de 2008, 19:18 »
Moskito, Moskito,... veo que te FASCINA la polemica.... ¿No te es suficiente con que leamos tus comentarios contra Uribe?... ¿Ahora nos llamas?
Saludos
Te quiero mucho Toph
242
« en: Domingo 23 de Noviembre de 2008, 19:40 »
Hoy tambien es mi cumpleaños SALUDOS.
23 de NOVIEMBRE
243
« en: Jueves 6 de Noviembre de 2008, 16:05 »
Tengo otra pequeña dudaEstoy trabajando en un formulario MDI en VB2005, pero el area cliente es un poco reducida, como un 70% del area disponible, cuando los formularios "hijos" se maximizan, estos formularios debe ocupar el area cliente disponible, es decir, el 70% del area cliente del formulario "padre", vean la siguiente figuraVean que el area cliente del formulario "Padre" tiene un tabControl y el resto es el area cliente que es donde se encuentra el formular io "hijo", la preguntas es:Como puedo crear este efecto en el formulario "padre"?, que tenga un tabcontrol a la izquierda y que el area cliente sea lo que sobre (y no toda el area disponible)Nota1:No se si me explique correctamenteNota2:Yo quiero mucho a TophNota3:El programa que tengo de inspiración es el SWMM5 que es gratuito y lo pueden bajar del siguiente enlace:http://www.epa.gov/ednnrmrl/models/swmm/index.htm#Downloadssirve para la modelacion de drenaje urbano, pero me gustaria que pongan mucho cuidado al area cliente del formulario "padre" (lo pueden bajar rapidisimo, solo pesa 2 MB)
244
« en: Miércoles 5 de Noviembre de 2008, 23:49 »
Nebire, graciasCuando nadie responde siempre has estado alli para responder mis inquietudes, y ademas enseñas bien. Nebire, gracias y saludos... Es muy importante lo que te voy a decir: YO QUIERO MUCHO A TophSaludos.
245
« en: Viernes 31 de Octubre de 2008, 19:44 »
Es cierto que Colombia au sufre mucho ¿A manos de quién? Ésa es la pregunta fundamental Existen muchos factores, solo te citare algunos cuantosGuerrillas, Paramilitares, grupos delincuenciales juveniles, pandillas, delincuente individual callejero (atracador), POLICIAS CORUPTOS, etc...Pero si te das cuenta, todos estos grupos han sido reducidos fuertemente en estos ultimos años... (esa es la mejora)
246
« en: Viernes 31 de Octubre de 2008, 19:38 »
Moskito, yo vivo en Colombia, he viajado por casi toda la costa colombiana, tengo familia en el interior del pais, se lo que se vive en Colombia, y si comparo ese informe con lo que vivo... yo creo mas en lo que vivo Cuanto te dije que Colombia ha mejorado es cierto, antes no se podia viajar por algunas carreteras, hoy ya se puede. Antes habia mayor numero de desplazados, hoy ha mejorado, antes habia mas secuestrados, habia mas guerrilla Se muy bien , que aun nos falta MUCHOOOO, pero ahi vamos... creeme, estamos mejorando
247
« en: Viernes 31 de Octubre de 2008, 19:04 »
Es cierto que Colombia au sufre mucho, pero estamos mejorando, debe entenderse que esto no es de la noche a la mañana... esto lleva su tiempo. Amigo Moskito, estas cifras eran mayores en años anteriores, pero como te dije, estamos en ese proceso de mejora
248
« en: Viernes 31 de Octubre de 2008, 18:17 »
Hola a todos, aun soy muy principiante en VB2005 y aun no me acostumbro.Me preguntaba, ¿Como quito la barra de titulo de un formulario en VB2005, utilizando codigo? (se que debe ser sencillo, pero no se hacerlo)YComo establezco que un formulario "hijo" se acople en altura al formualrio "Padre", se que en VB6.0 se hacia de este modo:Me.Height = MDIForm1.ScaleHeight
Pero eso no se como hacerlo en VB2005 Nota:Quiero Mucho, mucho, muchooo a Toph
249
« en: Lunes 27 de Octubre de 2008, 16:27 »
Hola foreros, moderadores, administradores.Baje un juego de video, llamado King of Fighter 2002 pero cuando abrí la carpeta los archivos tenian una extension .ROM me gustaria saber si alguien sabe como se ejecuta esto para finalmente jugar dicho juegoBajé ese juego del siguiente enlace:http://www.coolrom.com/roms/neogeo/1315/King_of_Fighters_2002.phpNota: Yo quiero mucho a Toph
250
« en: Jueves 23 de Octubre de 2008, 20:31 »
Hola, lee con atencion la siguiente informacionHace un rato, respondi un mensaje sobre conectar un listbox con un archivo de texto (t invito a que lo mires, ya que su solucion es muy similar a tu problema). Gracias a Dios contesté muy bien ese mensaje sobre como debia hacerce, pero me regañaron por que en este foro no se hacen tareas, en lugar de eso, se anima a la persona a investigar y a APRENDER pero no copiando y pegndo codigo, sino comprendiendo el codigo... debido a esa filosofia, en este foro se combate toda clase de pereza en leer sobre VB6.0. Siguiendo esa coriente, te animo a que comprendas lo que a continuación te dire, digamos que es como "una pista" a tu solución:Abre un proyecto de VB6.0 en blanco, aparecera el formulario vacioEl ejemplo que te explicare lo hare sobre este formulariocomo me imagino que ya sabes escribir los datos de un combo, por ejemplo añadamos en el combo1 los elementos (agrega un combobox1 al formulario) y en el evento Load del formulario agrega este codigoPrivate Sub Form_Load() Combo1.AddItem "Hola Moskito" Combo1.AddItem "Hola F_Tanori" Combo1.AddItem "Te animo a que estudies Vicky" Combo1.AddItem "Te quiero mucho Toph" Combo1.ListIndex = 3 End Sub
Los elementos se almacenan con un numero entero (integer) iniciando con el primero como elemento cero (0) Si necesitas referirte a algun elemento especifico del combo1, debes usar lo siguiente:Combo1.List(Numero_entero)
donde Numero_entero es un numero entero entre cero (0) y el numero de elementos en tu ComboBox1 menos 1Bien, hasta aqui espero que me hallas entendido, ahora, como ejemplo, en ese formulario, agrega un CommandButton1. agrega la siguiente linea de codigo en su evento clickPrivate Sub Command1_Click() MsgBox (Combo1.List(2)) End Sub
ejecutalo y mira , esta es la forma de llamar a elementos individuales de un combobox. Por último agregamos un elemento de ese combo box a un bloc de notas: Mira con atencio la siguiente linea de codigo:Open RutaArchivo For Output As #FreeFile
Open : es una palabra clave de VB que indica que se abre un archivo RutaArchivo : es solo una cadena donde se encuentra la ruta en donde se va aguardar el archivo For Output As : Es un modo que le indica a VB que el archivo se creará para almacenar informacion. Existen otros modos como For Append Shared o For Input As, etc (mas informacion la puedes conseguir en cualquier manual de VB6.0) FreeFile es una constante de Visual Basic para asignar un numero de archivo al archivo creado (para este caso) Analizamos la siguiente linea , responsable de escribir datos en el bloc de notasPrint #FreeFile, Dato_A_Escribir
Print #: es una palabra clave que le indica a VB que debe escribir elementos en un archivo de texto Dato_A_Escribir: es el valor de cadena o numero o lo que sea (excepto objeto) que se desea escribir en el archivo de texto Siguiendo con nuestro ejemplo, agrega un CommandButton2, en el evento click de ese boton agrega las siguientes lineas:Private Sub Command2_Click() Dim i As Integer Open "C:MiBloc.TXT" For Output As #1 For i = 0 To Combo1.ListCount - 1 Print #1, Combo1.List(i) Next i Close #1 End Sub
Listo, hasta aqui ya se puede ejecutar.
SaludosNota: Yo quiero mucho a Toph
Páginas: 1 ... 8 9 [10] 11 12 ... 15
|
|
|