|
|
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 - observador
1
« en: Martes 16 de Noviembre de 2004, 09:58 »
Pues incluyele el http:// y ceras que ya no te aparece ningun mensaje de error y qeu si se habre el explorador.... Recuerda, usa el http:// osea, escribirias http://localhost y listo PD. Probado antes de responder...
2
« en: Jueves 11 de Diciembre de 2003, 00:30 »
Bien... ya te dieron un par de soluciones, pero no esta por demas mostrar esta otra... Como bien mensiona Brroz esto se puede hacer con un par de APIs. Este codigo que adjunto trabaja directamente con el menu de sistema, lo que hace es eliminar esa opcion del menu, dando como consecuencia un boton X (Cerrar) deshabilitado y la opcion Cerrar ALT+F4 eliminada... Les anexo un screenshot para que observen el resultado...  Bueno... pues alli esta, otra alternativa mas... Hasta pronto...
3
« en: Lunes 13 de Octubre de 2003, 02:29 »
Bien... mira, el problema es que le pones comillas simples al hacer la comparacion de un valor que es numerico, osea que para que funcione y no te de el error No coinciden los tipos solo quitale las comillas simples al valor numerico... Con esto, tu codigo quedaria algo asi: Dim nbrecibo As Long nbrecibo = Val(nrecibo.Text) strbusca = mnhab.Text Set buscar = a.OpenRecordset("select * from detalle where num_hab='" & strbusca & "' And id_op = " & nbrecibo)
Por conveniencia, para concatenar cadenas prefiero usar el simbolo & en lugar del +... Pues con el & le digo al VB que sólo me concatene las cadenas, mientras que con el + primero debe averiguar si le estoy diciendo que sume o concatene, dependiendo del primero de los 2 elementos involucrados... con lo cual me ahorro tiempo y posibles errores logicos... que son mas dificiles de depurar que los errores sintacticos... Suerte...
4
« en: Domingo 12 de Octubre de 2003, 19:28 »
Bien... esa opcion la tengo programada en el chat que te menciono, pero no pense que tuvieses problemas con ello... Mira, aunque haya varios usuarios conectados simultaneamente, si es posible enviarle mensajes en forma independiente, para ello, agregale un control CommandButton al servidor... Cambiale el nombre a este CommandButton por CmdPrivado, tambien colocale en la propiedad Caption el texto "Privado" y agregale el siguiente codigo al form del servidor (FrmServidor)... Private Sub CmdPrivado_Click() If ListClientes.ListIndex <> -1 Then 'Si hay algún usuario seleccionado WinsockServidor(Val(ClientesIndice.List(ListClientes.ListIndex))).SendData "[" & Usuario & "] dijo: " & TxtEnviar.Text DoEvents else 'Sino hay usuarios, mostrar un mensaje de aviso MsgBox "Selecciona a un usuario de la lista" & vbCrLf & "para poder enviarle el mensaje", vbExclamation end if 'Con la siguiente lines desseleccionas el usuario activo ListClientes.ListIndex = -1 End Sub
Si deseas que los datos que vienen de algun cliente no se redirecciones a todos los demas clientes conectados y que solo sea visto por el servidor, pues solo cambia el codigo del evento WinsockServidor_DataArrival del servidor por el siguiente: Private Sub WinsockServidor_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim Duplicate As Boolean Dim CadenaEntrante As String, UsuariosTmp As String WinsockServidor(Index).GetData CadenaEntrante 'Obtiene el mensaje entrante segun que control lo envió If InStr(1, CadenaEntrante, " dijo:", 1) = 0 Then 'Si no esta la frase " dijo:" entonces es que es un nuevo usuario ListClientes.AddItem CadenaEntrante 'Agregamos el cliente a la lista ClientesIndice.AddItem IntMax 'Agregamos una referencia al winsock que apunte al cliente TxtMensajes.SelStart = Len(TxtMensajes.Text) TxtMensajes.SelText = vbCrLf & " " & CadenaEntrante & " ha entrado a la sala" 'Ya agregado el usuario, actualizar la lista en los clientes UsuariosTmp = "[.LISTA]" & UsuariosConectados '''El codigo de aqui fue quitado '''El codigo que estaba aqui actualizaba la lista de usaurios conectados en todos los clientes 'Mostramos el numero de usuarios que estan conectados LblNumUsuarios.Caption = "Conectados: " & ClientesIndice.ListCount Else '''El codigo de aqui fue quitado '''El codigo que estaba redireccionaba los datos hacia todos los clientes conectados TxtMensajes.Text = TxtMensajes.Text & vbCrLf & CadenaEntrante End If TxtMensajes.SelStart = Len(TxtMensajes.Text) End Sub
Y asi solucionas el problema de como enviarle datos a usuarios especificos... y tambien que no redireccionas los datos que vienen del los clientes... Si deseas que todos puedan ver los datos que envian los clientes, pero que tambien este la opcion de que pueda enviar mensajes privados al servidor, pues el codigo de el evento WinsockServidor_DataArrival no lo debes cambiar, solo debes de crear un nuevo "comando de servidor" ([.PRIV] por ejemplo) y que este lo reconosca el servidor tal como reconoce el comando [.LIST], por eso no quite la idea basica del procesamiento de comandos para que fuera posible y facil agregarle mas comandos y poder interpretarlos... Suerte...
5
« en: Domingo 5 de Octubre de 2003, 03:38 »
Bueno... esta semana me ha ido muy mal, la chica me mando al carajo, me enferme, y la proxima semana tengo un examen global (4 unidades de un jalon, todo un semestre en un solo examen), eso sin contar de que hay mucho trabajo en el area donde estoy... Asi que no se porque, pero estoy feliz... y como estoy feliz y como veo que nadie te a contestado, pues yo te contesto... comenzemos... Bien... Mira, no es necesario incluir un control Winsock por cada cliente que se vaya a conectar al servidor... en lugar de ello podemos utilizar una matriz de controles, y que se vaya agregando o cargando los winsock necesarios para la cantidad requerida de conexiones simultaneas... Para ello declaramos una variable contador que nos indique cual es el ultimo elemento de matriz que se ha creado... Esto lo logramos, poniendo en el evento ConnectionRequest del winsock un codigo como el siguiente: Private Sub WinsockServidor_ConnectionRequest(Index As Integer, ByVal requestID As Long) If Index = 0 Then IntMax = IntMax + 1 'Contador del ultimo cliente que solicito conectarse Load WinsockServidor(IntMax) 'Crea un nuevo elemento de la matriz de WinsockServidor WinsockServidor(IntMax).LocalPort = 0 WinsockServidor(IntMax).Accept requestID End If End Sub
Con esto le asignamos un control Winsock al nuevo cliente que está solicitando conectarse y le aceptamos la conexion... Para saber y obtener los datos que se reciben de alguno de los clientes conectados solo ustilizaremos el valor de Index, que hace referencia al indice del control creado... Private Sub WinsockServidor_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim CadenaEntrante As String WinsockServidor(Index).GetData CadenaEntrante 'Obtiene el mensaje entrante segun que control lo envió 'Aqui procesamos los datos de entrada, que en este ejemplo quedaron 'almacenados en la variable local CadenaEntrante End Sub
Algo muy importante que debe tomarse en cuenta, sobre todo para aplicaciones que pueden requerir de una gran cantidad de conexiones (simultaneas o no), es la eliminación (cuando ya no este en uso) del elemento de la matriz de Winsocks creado. Con esto, aparte de que liberamos memoria, tambien nos es util para que la aplicación no explote al llegar a un numero elevado de conexiones, que dependiendo del flujo de usuarios esta puede llegar en un par de semanas o inclusive dias (si la aplicacion tiene demasiada concurrencia, como los chats o servidores web, por ejemplo)... Esto lo solucionamos en el evento Close del Winsock y, como ya he mensionado, hacemos referencia al elemento de la matriz uilizando la variable Index... Veamos el codigo de ejemplo... Private Sub WinsockServidor_Close(Index As Integer) WinsockServidor(Index).Close 'Cierras la conexion con el Winsock cliente apuntado por Index Unload WinsockServidor(Index) 'Descargas el control de memoria para poder cargarlo de nuevo 'y usarlo más adelante End Sub
Con esto, podremos volver a cargar un elemento ya usado y eliminado... Supongamos que tu aplicacion estara ejecutandose siempre, y que la cantidad máxima de usuarios al dia es de 900. Esto quiere decir que al terminar el cuarto dia de estar funcionando ya habrá ira por el elemento 3600 (mas o menos) de la matriz de controles... y los elementos 1 a 900 ya no existen, entonces podemos volver a crearlos y con esto no llegar al limite establecido (32767), lo cual generaría un error de Desbordamiento. Segun las reglas de Visual Basic, se establece que el máximo número de elementos de una matriz de controles es el 32767, aunque tambien existen otras limitantes que dependen de las caracteristicas de Hardware de la maquina que funge como servidor... tal como la memoria física... pero eso es otra historia... Asi, por ejemplo, si tu sabes que tu aplicacion no se va a usar por mas de 2000 usuarios simultaneamente (recuerda, puede ser cualquier numero entre 1 y 32767), pues puedes poner ese numero (tal ves configurable) como bandera para reiniciar tu contador. Con esto al codigo del evento ConnectionRequest se le agregaria una linea de mas, quedando algo asi como... Private Sub WinsockServidor_ConnectionRequest(Index As Integer, ByVal requestID As Long) If Index = 0 Then IntMax = IntMax + 1 'El identificador del ultimo cliente que solicito conectarse 'Si ya se sobrepasaron 2000 conexiones resetear el contador... 'Esto es para que se acepten 2000 clientes simultaneameante 'y al mismo tiempo una cantidad ilimitada de conexeciones If IntMax = 2001 Then IntMax = 1 'Linea agregada Load WinsockServidor(IntMax) 'Crea un nuevo elemento de la matriz de WinsockServidor WinsockServidor(IntMax).LocalPort = 0 WinsockServidor(IntMax).Accept requestID End If End Sub
Bueno, en teoria eso es lo necesario para permitir a un servidor ser multiusuario, usando el control Winsock... Con respecto a la codificacion del programa cliente ésta no cambia en forma brusca con respecto al control Winsock, asi que de eso no te comento nada, ya que como te digo, basicamente no cambia, pues alli no necesitas crear matriz de control ni nada por el estilo... Inclusive, la aplicacion cliente que tienes no sera necerario que la recodifiques al implemantar matriz de Winsock en el Servidor... (a menos que quieras incluir otras caracteristicas claro...) Mira... Hace algun tiempo hice un chat multiusuario, y aqui te adjunto una copia simplificada de los programas Cliente y Servidor, que este último es el que realmente te interesa... Aqui te muestro las pantallas de los programas que te adjunto... Servidor Cliente Probando Como puedes ver en las imagenes, antes de contestarte verifique que el Servidor aceptara varios clientes, para lo cual hice 21 copias del programa cliente y los ejecute para conectarlos todos al servidor y si, como se esperaba, fueron aceptadas todas las solicitudes de conexion y todo transcurrio normalmente... Bueno, cualquier duda sobre el codigo pues mi correo es santosbussines@hotmail.comBueno... me voy, tengo que seguir estudiando para mi examen...
6
« en: Jueves 2 de Octubre de 2003, 04:58 »
Hola KHARTER, pues eso que preguntas si se puede hacer, pues si se puede, si`puedes probar tu programas en la misma maquina, solamente tienes que poner la IP actual de la maquina...
Para saber la ip utiliza el metodo LocalIP del control Winsock y usa esa IP para establecer la conexión... Asi lo hago yo para probar mis aplicaciones Cliente/Servidor en local...
Suerte...
7
« en: Jueves 2 de Octubre de 2003, 04:48 »
Bien... mira, el problema es el siguiente, si como dices "el campo 'nun_hab' es de tipo numerico-integer", pues la sintaxis de la consulta es incorrecta... Como a simple vista no se ve pues copie el codigo de colsulta SQL y mire que le pones comillas simples... pues el problema es que no lleva comillas simples ya que el campo es de tipo numerico y no cadena... Entonces tu codigo quedaria algo asi: Set reco1 = a.OpenRecordset("select * from Status where nun_hab = " & num)
Suerte...
8
« en: Viernes 19 de Septiembre de 2003, 18:22 »
Me parece un buen gesto de tu parte hacia Gerard...
Creo que él se va a sentir mucho mejor al leer tu agradecimiento... que muchas veces y para muchos puede parecer innesesario, pero realmente es esencial para el ser humano...
Definitivamente las cosas se hacen mejor y con mejor empeño cuando se recibe motivacion... y un ¡Gracias! logra hacer maravillas...
Saludos y a seguir pa'adelante... pa'atras ni para coger impulso...
9
« en: Viernes 19 de Septiembre de 2003, 17:57 »
Eso es todo ROBER.29    Felicidades de nuevo...
10
« en: Viernes 19 de Septiembre de 2003, 17:35 »
Pues eso, FELICIDADES a ROBER.29, el nuevo Moderador y en horabuena...  Esto muestra que SOLOCODIGO elige como Moderadores a gente capaz de realizar dicha labor... ROBER.29 no me hagas quedar mal en mi comentario...  Saludos a todos y que tengan un buen dia...
11
« en: Viernes 19 de Septiembre de 2003, 16:58 »
Osea que si no quieres que te cambie el punto por una coma, pues solo quitale el codigo If KeyAscii = 46 Then KeyAscii = 44 End If
Que es el que al comprobar que se pulso la tecla equivalente al punto, pues lo cambia por una coma... Saludos...
12
« en: Jueves 11 de Septiembre de 2003, 18:33 »
Ciero... no me habia dado cuenta de que solo se queria cambiar el punto del teclado numerico... Y bueno... a pesar de que Gerard dice que le sirve el codigo que mostre... pues de todas maneras aqui le coloco el codigo que hace exactamente lo que Gerard deseaba... Dim Tecla As Integer Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 110 Then Tecla = 188 Else Tecla = 0 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If Tecla = 188 Then KeyAscii = Asc(",") End Sub
13
« en: Jueves 11 de Septiembre de 2003, 06:14 »
Suponiendo que tu cuadro de texto se llama Text1, el codigo quedaria asi: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = Asc(".") Then KeyAscii = Asc(",") End Sub
Por cierto, código probado en VB5 bajo WinXP...
14
« en: Viernes 29 de Agosto de 2003, 07:09 »
Originalmente publicado por chiaravel
no soy de tirar la piedra y esconder la mano. SI.. yo fui el autor del comentario (creo que todos tienen la libertad de comentar lo que quieran, no ?) acerca de que estas robando usuarios.
Tambien me tome la libertad de votar por tu sitio , y si me parece malo, porque tengo que votar que es bueno ?
Y si piensas que todos pueden opinar lo que quieran ¿porque tanto alboroto por el post orginal de este tema? Ademas, me refiero a la forma en que aplicas tu etica al ir y votar demasiadas veces o el utilizar lenguaje no apropiado. ¿Eso es ético?... Originalmente publicado por chiaravel
Ademas, decir que mis intervenciones son prepotentes, es no haber leido las 128 intervenciones en las que participe.
No puedes juzgar por un par de peleas, el resto de mi trabajo.
La verdad lei cerca de 70 post y apenas solo en tres comentabas algo que se puede considerar como ayuda... Originalmente publicado por chiaravel
En cambio yo tambien me tome el trabajo de revisar todos tus mensajes, y dejame decirte que en ninguno de ellos, vos brindas una solucion directamente en el foro...todo lo contrario tus respuestas son :
oye ... te deje la respuesta en tal sitio
www.misitio.foro.com (Ejemplo)
oye ... puse a tu nombre un archivo en el sitio .....
y siempre es asi...
nunca dices ... hey la respuesta es esta.
¿Que? ¿Solo leiste el post del enlace al que hago referencia? ¿Acaso no sabes ni siquiera buscar los temas algun usuario especifico? Veo que tampoco sabes usar otras caracteristicas del foro... Originalmente publicado por chiaravel
Cuando llegues a los 33 años como yo, y tengas 17 años de programacion en COBOL, 9 años de Clipper, 7 años de Visual Basic, Dominio del sistema Operativo UNIX (Como administrador) y trabajes como responsable de un Area de Sistemas, te podras reir de mi condicion de Especialista en Sistemas.
¿7 años en Visual Basic y apenas hace menos de 2 meses te enteraste de como recibir argumentos de la linea de comandos? Orale, ya me imagino el alto nivel de dominio que has de tener en esos otros lenguajes que dominas... Originalmente publicado por chiaravel
Pero con tus escasos 23 años tienes mucho que aprender, sobre todo de Etica y Respeto.
La verad si, pero ¿acaso no recuerdas quien comenzo con insultos? ¿Tambien asi demuestras tu etica y respeto? Originalmente publicado por chiaravel
No soy de negar mi responsabilidad, y tampoco de no dar la cara, por eso todos saben que me llamo Pablo Tilotta, en cambio tu solo sos OBSERVADOR.
En fin...
Pues pienso que para proporcionar un poco de ayuda no es necesario que sepan mi nombre, solo se trata de ayudar y ya... Pero para que vivas feliz y te sientas realizado, pues te digo que mi nombr e Jose Santos y mi uno de mis correos es http://foros.solocodigo.com/viewthread.php?tid=4515 Originalmente publicado por chiaravel
Hay un dicho que dice "No tirar margaritas a los chanchos" y refiere de no perder el tiempo en gente que no lo vale asi que doy por terminado este tema.
Tambien hay otro que dice: "El que escupe para arriba, en la cara le cae"... Originalmente publicado por chiaravel
Gastare mi tiempo en seguir ayudando a los demas y no en (Indirectamente) seguir haciendole publicidad a este tio que no lo merece.
Gracias por la publicidad... La verdad si ha subido el numero de visitantes a mi foro... Pues cada ves que alguien postea, hay mas probal¡bilidad de que los usuarios lean estos post... No cabe duda que lo que genera controversia llama mas la atencion del usuario... de nuevo Gracias chiaravel... Con respecto a lo que menciona acalanto Originalmente publicado por acalanto
Solamente así se puede competir de forma ventajosa en un mercado libre como es el de los foros sean del contenido que sean, dejándo que sean los propios usuarios quienes tengan la libertad de entrar en uno u otro y sobre todo enseñar, a todo aquel que no sepa, a distinguir la validez de un producto de la mediocridad de otros.
Pues si, cada usuario es quien tiene la libertar de decidir si entrar o no... Y con respecto al cuento, dejenme ver si entendi, SOLOCODIGO es el 3er cerdito trabajador, YO soy los dos cerditos menos rigurosos y menos trabajadores que el tercero y que acabó por buscar la protección del más responsable de todos (SOLOCODIGO) y... a ver quien me falta, ahh, ya... ¿ya se dieron cuenta quienes representan al lobo? acertaron, ustedes (los que solo tratan de devorar todo aquello que otros construyen a costa de sudor y esfuerzo)... con la pena, la verdad me gusta mas el papel de los cerditos que a pesar de ser menos trabajadores, tuvieron la iniciativa de contruir algo por ELLOS MISMOS, que tal ves no fue lo mejor por ser inexpertos, pero vivian en paz, y no andaban ni insultandose, ni destruyendo lo que otros crean a base de sudor y esfuerzo... Pensandolo un poco, creo que estos cerditos aprendieron la leccion, tomaron nuevas herramientas, nuevos materiales y contruyeron una más casa sólida, de calidad, que es sea capaz de aguantar los embites del lobo... Gracias por la moraleja... Saludos a todos...
15
« en: Jueves 28 de Agosto de 2003, 08:43 »
Originalmente publicado por chiaravel
No se a que te refieres con que ando haciendo lo que estoy haciendo....
Dejame refrescarte la mente...   ¿Esa es la etica de la que tanto alardeas que tienes? ¿O acaso vas a negar que fuiste tu el autor de lo marcado en rojo? Y en vista de tu alardeo busque los post que has hecho en el foro, y la verdad me aburrieron, pues lo unico que haces en tus post es dar respuestas del tipo Originalmente publicado por chiaravel
Cambiar el tipo de letra a todo un proyecto
Existe una forma de hacerlo rapido y de una vez pero no hay un metodo automatico.
Es muy simple... empiezas haciendo click en un control (Ejemplo textBox) y luego continuas haciendo click uno por uno en el resto de los controles, pero teniendo la tecla CTRL-IZQUIERDO pulsada.
Eso te hara multiples selecciones y luego una vez que tienes todo seleccionado simplemente pulsas F4 y te abrira una pagina de Propiedades donde simplemente deberas ir y cambiar el FONT u otra propiedad.
Automaticamente te modificara todos los controles.
Espero que esto te sirva, ya que estuve recorriendo los menues y no encontre nada que te lo resuelva automaticamente.
Suerte
http://foros.solocodigo.com/viewthread.php?tid=4521tambien repites lo que otro ya dijo y tambien del tipo de mensajes donde sales con tu prepotencia... que es en la mayoria de tus post... Y tu dices ser Analista de Sistemas? Orale... Sinceramente se nota y agradesco la sinceridad, el respeto y el profesionalismo en los comentarios hechos por juank, que a pesar de no estar de acuerdo conmigo, no se hace notar en forma prepotente, sin embargo en los tuyos no veo eso de lo que tanto presumes... Te comento que el respeto que exiges en algunos de tus post, se gana con respeto, no insultando a la gente... Un saludos a todos...
16
« en: Miércoles 27 de Agosto de 2003, 19:19 »
Pues en realidad no es mi intencion pelear, pues si asi fuera, pues hubiera comenzado a insultar y no a invitar....
Por cierto, el enlace a solo codigo no esta en Webs Amigas, porque no he tenido la oportunidad de ponerme en contacto con el Webmaster de Solo Codigo, pero si esta en la seccion Recomendadas (donde pueden verificarlo)...
En Webs Amigas estan los sitios en los que me he logrado poner en contacto con sus respectivos WebMasters o Administradores...
Oye chiaravel, como me hablas de etica y andas haciendo lo que andas haciendo... Gracias por tu visita...
Juank, Gracias por tu comentario...
Hasta pronto...
17
« en: Miércoles 27 de Agosto de 2003, 18:10 »
Bueno... esa es tu realidad, afortunadamente no es la mia...
Gracias por tu comentario...
18
« en: Martes 26 de Agosto de 2003, 23:07 »
Bien... chiaravel, tu comentario es válido, pero como comento Originalmente publicado por observador
Esto no se trata de que dejen de frecuentar este foro, ni mucho menos, la intension es tener un espacio mas personalizado donde te hagas escuchar y asi hacerse llegar a más usuraios que en muchas ocasiones solicitan ayuda por diversas vias...
Es decir: Originalmente publicado por observador
El espacio está abierto a todo usuario que desee hacer llegar sus conocimientos a muchas personas mas...
Esto es asi, ya que los usuarios que frecuentan mi sitio (y principalmente el foro) no es "robado" de éste foro, pues en realidad apenas cerca de un 6% de mis usuarios totales es originario de este foro... Antes de hacerme un espacio en la red, subi algunos codigos fuentes a sitios como la web del programador, el guru programador (solo por mencionar algunos) y varios de los que han descargado esos codigo se ponen en contanto via email, luego estos son invitados al foro... otra fuente de mis visitantes son foros en los que no se permite adjuntar archivos, asi que si me parece viable, les contesto con un codigo de ejemplo que pongo en mi foro y luego les indico donde lo pueden encontrar... (asi surgio la idea original del sitio, ya que mis archivos andaban regados por alli, en espacios que daba de alta solo para poner estos archivos, y algunos textos algo explicativos). Ademas Originalmente publicado por observador
Si tienes tu propio espacio en la red, donde tratas temas de programacion, hardware, diseño web o algun tema relacionado a la computacion, tambien puedes hacernos llegar un enlace junto con una breve descripsion de tu contenido y con gusto lo pondremos en el area correspondiente... Aqui, de lo que se trata es que todo aprendamos unos de otros...
con esto tambien hacer que (si tienes tu propio sitio) puedas ser visitado por mis usuarios y asi aumentar tus visitas tambien... En realidad aprecio sus comentarios (chiaravel, J.M.Movilla)... tal ves no lo habia visto desde otro punto de vista mas que del mio, asi que por el momento, voy a pensarlo un rato... Hasta pronto...
19
« en: Martes 26 de Agosto de 2003, 00:02 »
Aprobechando la oportunidad, pues les invito a todos los que quieran participar en el sitio http://puntovisualbasic.webcindario.com/pueden hacerlo, ya sea enviandonos sus codigos fuentes, tutoriales, articulos o noticias, los cuales colocaremos en el sitio. El espacio está abierto a todos usuario que desee hacer llegar sus conocimientos a muchos mas... Sea cual sea tu participacion, tu autoria sera respetada... Si tienes tu propio espacio en la red, donde tratas temas de programacion, hardware, diseño web o algun tema relacionado a la computacion, tambien puedes hacernos llegar un enlace junto con una breve descripsion de tu contenido y con gusto lo pondremos en el area correspondiente... Aqui, de lo que se trata es que todo aprendamos unos de otros... Esto no se trata de que dejen de frecuentar este foro, ni mucho menos, la intension es tener un espacio mas personalizado donde te hagas escuchar y asi hacerse llegar a más usuriaos que en muchas ocaciones solicitan ayuda por deversas vias... Les agradesco todo tipo de comentarios aqui en este foro o allá en el sitio... para comentarios personalisados pueden hacermelo llegar desde: http://puntovisualbasic.webcindario.com/contacto.phpUn saludo a todos... Hasta pronto...
20
« en: Viernes 8 de Agosto de 2003, 11:01 »
Bien... pues solo para comentarte que ya te subi un codigo como cambiarle la fuente a los controles que contenga tu Formulario... El adjunto esta en el foro http://programador.foro.st/ en un post tuyo... Con ello, sólo tendras que copiar ese codigo en el evento Load de cada Formulario que tengas en tu proyecto y listo... el hace toda la chamba, en tiempo de ejecución... y funciona aunque tengas controles que no tenga la propiedad FontName... Por el momento s todo, y disculpa la tardanza...
21
« en: Viernes 20 de Junio de 2003, 21:47 »
Bien... creo que tu me solicitaste esto via correo electeronico...
Perdon por la tardanza, apenas acabo de leer el correo, checa tu correo pues acabo de enviarte una forma de hacer eso que me solicitaste, y por lo que veo, que tambien solicistaste en el foro...
22
« en: Jueves 19 de Junio de 2003, 14:07 »
Bueno, si lo trabajas en red entonces debes de indicarle la ruta completa es decir, Ruta = "NombreDelServidorNombreDeLaMaquinaAquiVaLaRutaEnLaMaquina" & "MiImagen.jpg" Aunque no entiendo porque, si tambien instalas las imagenes, no te jala, creo que cuando instalas la imagenes no lo has de estar haciendo correctamente... Visite mi foro: http://programador.foro.stHasta pronto...
23
« en: Sábado 14 de Junio de 2003, 05:37 »
24
« en: Sábado 14 de Junio de 2003, 04:52 »
Pues esta bien eso de implementar el App.Path, ya que si el directorio por defaul se cambia a traves de codigo o en tiemp de ejecucion, ya no jalaría bien, pero para poder utilizar el App.Path hay que averiguar si este es el directorio raiz de alguna unidad cualquiera, y en caso de no serlo agregarle un "" entre la ruta y el nombre del archivo... Lo cual quedaria asi: If Len(App.Path) <= 3 Then 'La ruta es el directorio raiz de alguna undidad a:, b:, c:, d:... etc Set Picture1.Picture = LoadPicture(App.Path & "MiImagen.jpg") Else 'este en un subdiretorio del directorio raiz, ejemplo c:MiCarpeta 'por lo tanto se le tiene que agregar el "" antes del archivo en cuestion 'ya que de no ser asi se trataria de buscar el archivo "c:MiCarpetaMiImagen.jpg" 'y no el archivo "c:MiCarpetaMiImagen.jpg" que es el que en realidad se desea abrir Set Picture1.Picture = LoadPicture(App.Path & "MiImagen.jpg") End If Visiten el foro: http://programador.foro.stHasta pronto...
25
« en: Viernes 13 de Junio de 2003, 10:52 »
Pues no... no es necesario escribir toda la ruta si la imagen esta en el mismo directorio del proyecto (a menos que se haya cambiado la ruta por codigo) pero la sintaxis correcta para cagar una imagen en tiempo de ejecucion seria utilizando la funcion LoadPicture, es decir, el codigo quedaria mas o menos así: Set Picture1.Picture = LoadPicture("MiImagen.jpg") Y digo mas o menos, porque el argumento que la funcion recibe "MiImagen.jpg" tendras que sustituirlo por el nombre de tu imagen que quieres cargar... y el nombre del objeto sera el que tu el que tu le hayas colocado...  Visita el foro: http://programador.foro.st
|
|
|
Mostrar Mensajes
