• Lunes 18 de Noviembre de 2024, 04:38

Mostrar Mensajes

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 - Jose Arriagada

Páginas: 1 ... 6 7 [8] 9 10 ... 15
176
Visual Basic 6.0 e inferiores / Re: Campo Imagen
« en: Miércoles 7 de Julio de 2004, 16:32 »
Prueba lo siguiente:

En tu proyecto incorpora
- 1 control commondialog
- 1 label
- 1 command

y usa el siguiente codigo

Private Sub Command1_Click()
'Aqui se abre el cuadro de busqueda del archivo
'Si quieres que solo te muestre imagenes, elimina el comentario inicial de la siguiente linea
'CommonDialog1.Filter = "Imagenes Paintbrush (bmp)|*.bmp|Imagenes Gif|*.gif|Imagenes JPG|*.jpg"
CommonDialog1.ShowOpen
Label1.Caption = CommonDialog1.FileName
End Sub


Prueba, espero te sirva

177
Visual Basic 6.0 e inferiores / Re: Saber Si Es .avi O .mp3
« en: Miércoles 7 de Julio de 2004, 16:26 »
:kicking:
Nos alegramos mucho que hayas podido tu solito resolver tu problema.
Esto te da la idea, que a veces es necesario aunque sea comentar el problema, y la solucion se producira en algun momento en tu cabeza.

Suerte
 :D

178
Visual Basic 6.0 e inferiores / Re: Treeview Con Nodos Padres Check
« en: Martes 6 de Julio de 2004, 23:54 »
Hola amigos:

Requiero presentar al usuario lo siguiente:
Nodos padres con la opcion checkbox presente, y dentro de cada nodo padre, van nodos hijos, pero estos no deben llevar la opcion checkbox presente.
Existe algun control que permita esta dualidad de opciones dependiendo del nivel del nodo, o, existe algun truco que permita simular el efecto deseado.

Gracias por la ayuda

179
Visual Basic 6.0 e inferiores / Re: Campo Imagen
« en: Martes 6 de Julio de 2004, 23:50 »
Tu pregunta es bastante ambigua, ya que uno podria pensar:

a) Guardar el path de "alguna" o "algunas" imagen(es) que cargaras en el sistema para efectos visuales.
    Para ello no es necesario tener que guardarlo en una base de datos.
    Simplemente, guarda el (los) dato(s) en un archivo plano, que contenga la ruta, y cada vez que se inicie el sistema, lees este archivo.

B). Guardar "muchas" imagenes en una base de datos, que es una parte de las funcionalidade del programa.
      De ser asi, asumo que para visualizar la imagen, utilizas el control CommonDialog para buscar el archivo, y si es asi, entonces este mismo control te entrega la ruta del archivo capturado.

Ahora, si no es ninguna de estas opciones, entonces, podrias ser mas explicita para poder ayudarte.

180
Visual Basic 6.0 e inferiores / Re: Identar Codigo
« en: Lunes 5 de Julio de 2004, 17:06 »
Quizas pueda ayudarte si nos aclaras que significa IDENTAR, ya que recuerda somo de diferentes paises, y por tanto, no siempre las palabras nos indica el problema a resolver.

181
Visual Basic 6.0 e inferiores / Re: Urgente!!!!
« en: Martes 29 de Junio de 2004, 16:16 »
Ahi te va un ejemplo, espero te sirva

182
Visual Basic 6.0 e inferiores / Re: Copia De Archivo
« en: Martes 29 de Junio de 2004, 16:14 »
Utiliza

FileCopy origen,destino

183
Visual Basic 6.0 e inferiores / Re: Licencia Para Forpoint Spreadsheet Control
« en: Jueves 24 de Junio de 2004, 20:36 »
Enviame un mensaje a arcangel_gabriel@123mail.cl y te envio por email el instalador spread de farpoint. No requiere licencia.

184
Visual Basic 6.0 e inferiores / Re: ¿alguien Puede Darme Alguna Pista ?
« en: Jueves 24 de Junio de 2004, 20:32 »
Te envio un ejemplo de como guardar datos en una planilla.
El tema de presentar al usuario los campos que desea seleccionar para exportar, es basico y te lo dejo, para hacer trabajar "las neuras".

185
Visual Basic 6.0 e inferiores / Cambiar Backcolor Control Sstab
« en: Lunes 21 de Junio de 2004, 23:35 »
Hola amigos, alguno de ustedes sabe como cambiar el color de fondo del control ssTab.
La idea es que se cambie el cuerpo completo, no los espacios entre las pestañas, ni cargar una imagen en la pestaña.


Gracias

186
Visual Basic 6.0 e inferiores / Re: Presentación De Barra De Botones
« en: Lunes 21 de Junio de 2004, 16:57 »
Gracias, esa era la respuesta.

187
Visual Basic 6.0 e inferiores / Presentación De Barra De Botones
« en: Viernes 18 de Junio de 2004, 23:05 »
Hola amigos, haber si me podeis ayudar.

Tengo una aplicacion en la cual, en tiempo de diseño confecciono la barra de botones, agregando los botones, los iconos, los caption y tooltiptext.
La cosa funciona bien, pero se hace dificil de administrar a medida que voy creando nuevo botones.

La cosa es que implemente la creacion de la barra de botones en tiempo de ejecucion, cosa que lo hace bien.

El problema esta en que, al presionar un boton, se me abre la ventana que deseo, pero el boton se mantiene con el efecto de presionado.
Cuando saldo de la ventana, en la cual estoy trabajado, y nuevamente presiono el mismo boton, ahora el boton sube, y la ventana se abre sin problemas.

Es decir, el boton se hunde y se levanta alternadamente. La aplicacion no tiene ningun problema. Solo es un efecto visual de los botones.

Alguien sabe a que se debe y como se soluciona.

Gracias.

188
Visual Basic 6.0 e inferiores / Re: Imagen Relacionada A Grupo De Datos
« en: Viernes 18 de Junio de 2004, 22:57 »
Ya se ha visto en discusiones anteriores que es mas facil enlazar las imagenes almacenarlas en las tablas, si no que guardar la imagen en algun directorio, y despues hacer la referencia.

Teniendo en cuenta este detalle, pasemos a lo escencial.

Claramente tus empleados deben tener un numero UNICO (llave o clave de acceso), por que asi, es la unica forma de que esto funcione.

Supongamos que el campo llave de tu tabla de datos de empleados es ID_Empleado, y que tu directorio para almacenar informacion es C:\DATAEMP y dentro de este se tiene un directorio para las imagenes, especificamente la foto de cada uno de ellos, llamemos a este directorio FOTOS.
En resumen tenemos C:\DATAEMP\FOTOS

Al hacer la carga de los datos del empleado, entonces utilizas el siguiente codigo para traer la imagen a la pantalla.

picFoto.picture=loadpicture("C:\DATAEMP\FOTOS\" & idemp)

donde idemp, es el codigo llave que identifica al empleado.

Ahora, como veo que tienes un boton de agregar/cambiar foto, al grabar los datos del empleado, lo que debes hacer tambien, es copiar la imagen desde el origen (desde donde la capturaste y copiarla a C:\DATAEMP\FOTOS\idemp ) con el codigo de llave del empleado, para no perderla.

Espero te sirva.

189
Visual Basic 6.0 e inferiores / Re: Iconos Para Aplicacion
« en: Jueves 17 de Junio de 2004, 16:58 »
Yo he intentado lo mismo, pero no funciona.
Lo que he hecho para que mis botones aparezcan iconos muy, pero muy parecidos al XP, es utilizar microangelo (diseñador de iconos) y capturar el icono XP y despues grabarlo con la maxima capacidad de colores.

Al insertarlos en mis botones y aplicaciones, se ven espectaculares.
La unica diferencia, entre un icono win98 y xp, es la cantidad de pixels y la paleta de colores. Pero haciendo un trabajito extra, se logra el mismo efecto

190
Visual Basic 6.0 e inferiores / Re: Botones Graficos Estilo Xp
« en: Miércoles 16 de Junio de 2004, 16:02 »
Te envio unos codigos por si te sirven.

191
Visual Basic 6.0 e inferiores / Vbskinner 1.3
« en: Viernes 11 de Junio de 2004, 18:13 »
Hola amigos, he incursionado en el uso del control vbskinner.
Me gusto mucho la idea de este control
Asi es que busque y baje el control con sus ejemplos. Espectacular.
El problema, es que requiere licencia. UNA LATA.
No existe el crack para el vbskinner pro 2.0, pero averiguando si existen los cracks para la version 1.3

Sera posible que alguno de ustedes tenga el control. No necesito enlaces a vbskinner 1.3, por que todos apuntan a los mismos sitios, que al final siempre es la version 2.0

Gracias

192
Visual Basic 6.0 e inferiores / Re: Vbskinner Pro 2
« en: Jueves 10 de Junio de 2004, 23:31 »
Ingrese al link que indicas, pero al seleccionar el vbskinner, no me hace nada.

Alguien logro obtener el crack del vbskinner pro 2.1 ?

193
Visual Basic 6.0 e inferiores / Re: Popupmenu
« en: Martes 8 de Junio de 2004, 15:39 »
Nada mejor que un codigo que se ejecute, y asi podras ver como funciona y adaptarlo a tus necesidades

194
Visual Basic 6.0 e inferiores / Re: Formato Decimal
« en: Martes 8 de Junio de 2004, 15:26 »
Prueba el siguiente procedimiento

sLectura=ucase(trim(text1.text))
largo=len(sLectura)
pos=instr(sLectura,"EXP")
numero1=cdbl(mid(sLectura,1,pos-1))
numero2=cdbl(mid(sLectura,pos+4,largo-pos+4))
'Ahora tienes ambos valores de tu lectura, solo falta
'transformarlos en un solo valor, de acuerdo a tu base.

195
Visual Basic 6.0 e inferiores / Re: Reporteador En Visual Basic
« en: Viernes 4 de Junio de 2004, 15:42 »
Tu problema en este momento son dos:
- El problema planteado por tu profesora.
- Tu nula capacidad de transmitir el problema para poder ayudarte. (no me quiero imaginar como seras para exponer tus trabajos frente a tus compañeros, pero bueno, eso es harina de otro costal)

Primero deberias tener claro cual es el requerimiento que te estan planteando, y posteriormente ver si tienes las herramientas y conocimientos para resolverlo.

Si una vez entendido el problema, y comienzas a resolverlo, y te trancas con alguna dificultad para continuar, entonces para eso estan los foros.

Pero para hacerte la tarea completa, no creo que haya alguien dispuesto, o que tengo tiempo.

Plantea un requerimiento especifico, pero no pidas que te resuelvan el problema.


"Nadie nace sabiendo, todos aprendemos con la experiencia"

196
Visual Basic 6.0 e inferiores / Re: Grafos
« en: Viernes 4 de Junio de 2004, 15:36 »
Claramente la solucion pasa por dos areas:
- La informatica, ya que solo los que estudian esta ciencia, saben a que se refiere.
- La programacion, como solucionar el problema.

Dado que tus conocimientos de grafos parecen estar en orden, pasemos al area de programacion.

Especificamente como estan solucionando el problema, y en que parte no sabes como resolverla?

197
Visual Basic 6.0 e inferiores / Re: Validar Direccion De Mail Y Fechas
« en: Miércoles 2 de Junio de 2004, 23:13 »
Para validar email usa esta funcion

Public Function Es_EMail(ByVal femail As String) As Boolean
femail = LCase(Trim(femail))
Largo = Len(femail)
estado = 1
posicion = 0
Es_EMail = True
While Not estado = 0 And posicion < Largo
    posicion = posicion + 1
    caracter = Mid(femail, posicion, 1)
    Select Case estado
        Case 1:
            Select Case caracter
                Case "a" To "z": estado = 1
                Case "_", ".": estado = 2
                Case "@": estado = 3
                Case Else
                    estado = 0
            End Select
        Case 2:
            Select Case caracter
                Case "a" To "z": estado = 2
                Case "_", ".": estado = 1
                Case "@": estado = 3
                Case Else
                    estado = 0
            End Select
        Case 3:
            Select Case caracter
                Case "a" To "z": estado = 3
                Case "_": estado = 4
                Case ".": estado = 5
                Case Else
                    estado = 0
            End Select
        Case 4:
            Select Case caracter
                Case "a" To "z": estado = 4
                Case "_": estado = 3
                Case ".": estado = 5
                Case Else
                    estado = 0
            End Select
        Case 5:
            Select Case caracter
                Case "a" To "z": estado = 5
                Case "_": estado = 5
                Case ".": estado = 5
                Case Else
                    estado = 0
            End Select
    End Select
Wend
If estado = 0 Then
    Es_EMail = False
Else
    Es_EMail = True
End If
End Function


Para validar fecha, usa la funcion isdate

if IsDate(text1.text) then
   msgbox "Es fecha"
else
  msgbox "No es fecha"
endif

198
Visual Basic 6.0 e inferiores / Re: Ayuda Sobre Un Posible Control
« en: Miércoles 2 de Junio de 2004, 23:01 »
En la barra de herramientas presiona el boton derecho y selecciona Componentes
Activa la casilla Microsoft Common Dialog Control 6.0
Presiona Aceptar

Ahora agrega este control a tu form y un boton y coloca la siguiente sentencia

Private Sub Command1_Click()
CommonDialog1.ShowColor
End Sub

199
Visual Basic 6.0 e inferiores / Re: Sentencia Reemplace Al If
« en: Lunes 31 de Mayo de 2004, 16:26 »
Gracias a ambos, en especial a cyclop.

Voy a probar tu sentencia

200
Visual Basic 6.0 e inferiores / Sentencia Reemplace Al If
« en: Viernes 28 de Mayo de 2004, 18:45 »
Estimados,

La situacion es la siguiente:

Muchas veces se desea saber si una variable es alguna de las muchas opciones a comparar, por ejemplo:

IF xVAR=1 or xVAR=3 or xVAR=7 or xVAR=0 then
   <sentencias>
ENDIF

o en su defecto, podria ser
SELECT CASE xVAR
  CASE 1,3,7,0:
         <sentencias>
END SELECT

Pero, igualmente es mucho codigo, para una sentencia tan simple.

Mi pregunta es: ¿EXISTE ALGUNA FUNCION QUE PERMITA SABER SI LA VARIABLE PERTENECE A ALGUNA DE ESTAS OPCIONES?, como por ejemplo

IF COMPARA(xVAR,1,3,7,0)=TRUE THEN
 <sentencias>
ENDIF

Si no, voy a terner que hacer esta funcion.
La lata, es colocar una cantidad n de variables de paso.

Páginas: 1 ... 6 7 [8] 9 10 ... 15