• Sábado 4 de Mayo de 2024, 21:18

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 - arley

Páginas: [1]
1
Visual Basic para principiantes / Mostrar Documentos de Word Guardados Previamente en VB
« en: Domingo 3 de Agosto de 2008, 06:29 »
:D Hola necesito que alguien me ayude con un codigo de visual basic en el cual pueda mostrar dicho documento de word que esta guardado en una base de datos, solo quiero que se pueda mostrar en alguno de los controles de VB como un rich image picture nose en alguno de VB
 :D Recuerden que no necesito abrirlos para modificarlos solo poderlos ver les Agradezco de antemano. :D

2
Visual Basic 6.0 e inferiores / Re: Abrir Un Archivo De Power Point
« en: Jueves 4 de Octubre de 2007, 05:39 »
Cita de: "ezequielminor"
una de las maneras puede ser la que respondio mollense, aunque con Shell lo que lograrias es ejecutar la aplicacion powerpoint, si lo que buscas es crear tu propia aplicacion para visualizar los documentos relacionados con este programa, podes probar con las referencias de Microsoft Office y tambien sus componentes.

podes consultar en el soporte de microsoft.
Buenas la verdad es que no he podido con este pequeño software y
quiciera que me ayudaran, mando un ejemplo pero este solo abre un archivo
quiciera que fuera de la siguiente forma:
Tengo una carpeta con diferentes archivos en .pps
y quiciera que en el software yo mismo digitara el nombre del archivo
en un textbox y por medio de un comando le de abrir y este me abra el
que yo digite o que me diga que no exite el archivo que quiero abrir.

No quiero que este abra solo un archivo si no el que yo le escriba.
de modo que cuando la presentacion termine pueda buscar otro y otro el continue abriendolos.
 :D Les agradezco la ayuda que me puedan brindar :D

3
Visual Basic 6.0 e inferiores / Abrir Un Archivo De Power Point
« en: Domingo 30 de Septiembre de 2007, 04:37 »
Quiciera hacer un pequeño software en el cual pudiera abrir un archivo de power point(presentaciòn) buscando en una carpeta determinada, de modo que yo escriba el nombre en un cuadro de texto, le de buscar con un boton comando y este me abra la presentacion que deseo.

 :D LES AGRADEZCO SU COLABORACION DE ANTEMANO MUCHAS GRACIAS. :D

4
Visual Basic 6.0 e inferiores / Re: Propiedades De Impresion
« en: Martes 25 de Septiembre de 2007, 03:11 »
Cita de: "arley"
Hola necesito que alguien me ayude con un codigo de visual basic de modo que al yo querer imprimir algo primero me muestre las propiedades de la impresora y pueda escoger tipo de papel, calidad de impresion, numero de copias y todo lo relacionado con dicha impresion les agradezco de antemano.

MUCHAS GRACIAS... :rolleyes:
Es que lo que yo necesito es que despues de haber configurado la impresora está me imprima con toda la configuracion que le he hecho ya sea que yo quiera darle que imprima con una calidad optima de fotografia, en borrador o que deseo varias hojas con la misma impresion

Ayudenmen :D

5
Visual Basic 6.0 e inferiores / Re: Propiedades De Impresion
« en: Sábado 22 de Septiembre de 2007, 05:59 »
Cita de: "cpmario"
Te proporciono una rutina que imprime un reporte. Te dará una idea de como usar los comandos de impresión.
Código: Text
  1.  
  2. Sub PrintIncap(blnPrintDx As Boolean)
  3.     Dim strPr As String
  4.     Dim intCnt As Integer
  5.     Dim intPrintTab As Integer
  6.     Dim strTexto As String
  7.     On Error GoTo ErrorcmdPrint
  8.     cdlMain.CancelError = True
  9.     cdlMain.Flags = cdlPDPrintSetup
  10.     cdlMain.ShowPrinter
  11.     Screen.MousePointer = vbHourglass
  12.     cmdPrintIncap.Enabled = False
  13.     For intCnt = 1 To 3
  14.         strPr = strPr & vbCrLf
  15.     Next intCnt
  16.     Printer.Print strPr
  17.     Printer.Font = "Arial"
  18.     Printer.FontSize = 14
  19.     Printer.Font.Bold = True
  20.     intPrintTab = 12
  21.     Printer.Print Tab(intPrintTab); "INSTITUTO MEXICANO DEL SEGURO SOCIAL"
  22.     Printer.Print Tab(intPrintTab); "Reporte de Datos de Incapacidad"
  23.     Printer.Print
  24.     Printer.Font = "Courier New"
  25.     Printer.FontSize = 10
  26.     Printer.Font.Bold = False
  27.     intPrintTab = 15
  28.     Printer.Print Tab(intPrintTab); "Número de serie: ";: Printer.Font.Bold = True: Printer.Print txtSerie: Printer.Font.Bold = False
  29.     Printer.Print Tab(intPrintTab); "Nombre de paciente: ";: Printer.Font.Bold = True: Printer.Print txtNombre.Text: Printer.Font.Bold = False
  30.     Printer.Print Tab(intPrintTab); "Afiliación: ";: Printer.Font.Bold = True: Printer.Print txtAfiliación.Text: Printer.Font.Bold = False
  31.     Printer.Print Tab(intPrintTab); "Médicos: " & txtMédicos.Text
  32.     Printer.Print Tab(intPrintTab); "Matrícula: " & txtMatrícula.Text
  33.     If blnPrintDx Then
  34.         strTexto = WordWrap(txtDiagnóstico.Text, 60)
  35.         Printer.Print Tab(intPrintTab); "Diagnóstico: " & strTexto
  36.     End If
  37.     Printer.Print Tab(intPrintTab); "Días de incapacidad: ";: Printer.Font.Bold = True: Printer.Print txtDiasIncap.Text: Printer.Font.Bold = False
  38.     Printer.Print; Tab(intPrintTab); "A partir de: ";: Printer.Font.Bold = True: Printer.Print txtAPartir.Text: Printer.Font.Bold = False
  39.     Printer.Print; Tab(intPrintTab); "Fecha de expedición: " & txtFechaExpedición.Text
  40.     Printer.Print Tab(intPrintTab); "Fecha de captura: " & txtFechaCaptura.Text
  41.     If txtRamo.Text = "EG" Then
  42.         strPr = "ENFERMEDAD GENERAL"
  43.     ElseIf txtRamo.Text = "MA" Then
  44.         strPr = "MATERNIDAD"
  45.     ElseIf txtRamo.Text = "RT" Then
  46.         strPr = "RIESGO DE TRABAJO"
  47.     ElseIf txtRamo.Text = "PR" Then
  48.         strPr = "PROBABLE RIESGO DE TRABAJO"
  49.     End If
  50.     Printer.Print Tab(intPrintTab); "Ramo: " & strPr
  51.     If txtMaternidad.Text = "PRE" Then
  52.         strPr = "PRENATAL"
  53.     ElseIf txtRamo.Text = "ENL" Then
  54.         strPr = "ENLACE"
  55.     ElseIf txtRamo.Text = "POS" Then
  56.         strPr = "POSNATAL"
  57.     Else
  58.         strPr = ""
  59.     End If
  60.     If strPr <> "" Then
  61.         Printer.Print Tab(intPrintTab); "Maternidad: " & strPr
  62.     End If
  63.     If txtTipo.Text = "INI" Then
  64.         strPr = "INICIAL"
  65.     ElseIf txtTipo.Text = "SUB" Then
  66.         strPr = "SUBSECUENTE"
  67.     ElseIf txtTipo.Text = "REC" Then
  68.         strPr = "RECAÍDA"
  69.     ElseIf txtTipo.Text = "CAN" Then
  70.         strPr = "CANCELADA"
  71.     End If
  72.     Printer.Print Tab(intPrintTab); "Tipo: " & strPr
  73.     If blnPrintDx Then
  74.         Printer.Print Tab(intPrintTab); "Comentario: " & txtComentario.Text
  75.     End If
  76.     If txtRamo.Text = "PR" Or txtRamo.Text = "RT" Then
  77.         Printer.Print Tab(intPrintTab); "ST1: " & txtST1.Text
  78.         Printer.Print Tab(intPrintTab); "ST2: " & txtST2.Text
  79.         Printer.Print Tab(intPrintTab); "Nota médica: " & txtNota.Text
  80.     End If
  81.     If blnPrintDx Then
  82.         Printer.Print Tab(intPrintTab); "Observaciones: " & txtObsv.Text
  83.     End If
  84.     If txtPuesto.Text <> "" Then
  85.         Printer.Print Tab(intPrintTab); "Puesto de trabajo: " & txtPuesto.Text
  86.     End If
  87.     If txtIMSS.Text <> "" Then
  88.         Printer.Print Tab(intPrintTab); "Trabajador IMSS: " & txtIMSS.Text
  89.     End If
  90.   
  91.     Printer.EndDoc
  92.     cmdPrintIncap.Enabled = True
  93.     Screen.MousePointer = vbDefault
  94. Exit Sub
  95. ErrorcmdPrint:
  96.     If Err <> cdlCancel Then
  97.         MsgBox "Error al imprimir datos. Revise su impresora." & vbCrLf & Err.Description, vbCritical, gstrAppTitle
  98.         Err.Clear
  99.     End If
  100.     cmdPrintIncap.Enabled = True
  101.     Screen.MousePointer = vbDefault
  102. Exit Sub
  103. End Sub
  104.  
Espero te sirva.
 :comp:
Gracias por el codigo que me has enviado, pero hay un problema los cambios que hago en las propiedades de la impresora no se guardan ya que si selecciono que deseo varias copias iguales y que la impresion sea en borrador no lo hace sino que simplemente imprime una hoja normal.

Si me puedes ayudar te lo Agradezco. :D

6
Visual Basic 6.0 e inferiores / Re: Propiedades De Impresion
« en: Jueves 20 de Septiembre de 2007, 04:56 »
Cita de: "cpmario"
Activa en componentes un control "Microsoft Common Dialog" y colócalo en una forma y dale el siguiente nombre cdlMain.
Después llamas a ese control con lo siguiente:

Código: Text
  1.     cdlMain.CancelError = True
  2.     cdlMain.Flags = cdlPDPrintSetup
  3.     cdlMain.ShowPrinter
  4.  
  5.  
:comp:
Muchas gracias por el codigo, pero sin embargo no me imprime lo que le digo en las propiedades si me puedes ayudar te lo agradezco. :D

7
Visual Basic 6.0 e inferiores / Propiedades De Impresion
« en: Martes 18 de Septiembre de 2007, 06:21 »
Hola necesito que alguien me ayude con un codigo de visual basic de modo que al yo querer imprimir algo primero me muestre las propiedades de la impresora y pueda escoger tipo de papel, calidad de impresion, numero de copias y todo lo relacionado con dicha impresion les agradezco de antemano.

MUCHAS GRACIAS... :rolleyes:

8
Visual Basic 6.0 e inferiores / Re: Pegar Foto Desde Cualquier Ubicacion
« en: Domingo 29 de Julio de 2007, 04:12 »
Cita de: "cpmario"
Otra alternativa a lo que te decía en la nota anterior y con el método de arrastrar y soltar. Seleccionas el archivo en Mi PC lo arrastras y sueltas sobre un programa en VB que previamente has abierto.
 :comp:
Bien Gracias por la informacion.

Y me podrias ayudar sobre como soltar el archivo sobre el obejeto picture ya ejecutado el software en VB


 :D Gracias ... :D

9
Visual Basic 6.0 e inferiores / Re: Pegar Foto Desde Cualquier Ubicacion
« en: Sábado 28 de Julio de 2007, 05:22 »
Cita de: "cpmario"
Ahora si te capté la idea.
Pero te informo que no es posible cargar un archivo de imagen directamente en un control de imagen. En el control PictureBox si es posible hacer esto, por ejemplo:
Código: Text
  1. Picture1.Picture = LoadPicture(gstrFilename)
  2.  
Si aún insiste en que deseas cargarlo en un control de imagen entonces debes de hacer lo siguiente:
Código: Text
  1.         Picture1.Picture = LoadPicture(gstrFilename)
  2.         Image1.Picture = Picture1.Picture
  3.  
  4.  
Para que no se vea el control Picture le colocas la propiedad visible=False.

Como no tenía mucho que hacer, te elaboré un pequeño proyecto que adjunto para demostrarte lo anterior.

 :comp:
Que pena incomodarlo tanto, pero precisamente eso es lo que no quiero que la foto la busque una ventana de exploracion si no que, lo que quiero es:
Por ejemplo voy a mis documentos alli hay fotos entonces selecciono una y le doy edicion copiar y en el preciso momento ejecuto el programa echo en visual y el objeto picture esta vacio para darle pegar esa foto ya seleccionada anteriormente, entonces como seria el codigo para un boton de caption pegar ya mostrando esta foto n en el objeto picture

 :D Ayudenme y muchas Gracias por lo anterior Disculpen las molestias :D

10
Visual Basic 6.0 e inferiores / Re: Pegar Foto Desde Cualquier Ubicacion
« en: Viernes 27 de Julio de 2007, 03:53 »
Cita de: "arley"
Cita de: "arley"

 Disculpame si no me supe exlicar pero no necesito copiarla del portapapeles sino de otra carpeta, como por ejemplo de la carpeta mis imagenes ¿Como puedo hacerlo?

 :D Muchas gracias...

11
Visual Basic 6.0 e inferiores / Re: Pegar Foto Desde Cualquier Ubicacion
« en: Jueves 26 de Julio de 2007, 18:18 »
Cita de: "arley"
Mi problema es el siguiente estoy creando un pequeño software en el cual estoy utilizando un objeto image para visualizar las fotos pero no quiero que una ventana de busqueda me proporcione esa foto para verla, sino que yo pueda ir a cualquier carpeta darle copiar y luego pegar sobre el objeto image estando este objeto limpio, o podria ser tambien si me ayudan con el objeto picturebox a hacer lo mismo

Cualquiera de los dos me sirve muchas Gracias...

Alguien que mu ayude  Gracias
Hola no me funciono de esa manera no da pegar que tal si haces el gran favor y me ayudas con el objeto image para copiar la foto de cualquier carpeta del sistema y luego pegarla en este mismo.
Te agradezco lo anterior y tambien si me puedes ayudar por este lado.


 :D  Muchas Gracias

12
Visual Basic 6.0 e inferiores / Pegar Foto Desde Cualquier Ubicacion
« en: Jueves 26 de Julio de 2007, 03:20 »
Mi problema es el siguiente estoy creando un pequeño software en el cual estoy utilizando un objeto image para visualizar las fotos pero no quiero que una ventana de busqueda me proporcione esa foto para verla, sino que yo pueda ir a cualquier carpeta darle copiar y luego pegar sobre el objeto image estando este objeto limpio, o podria ser tambien si me ayudan con el objeto picturebox a hacer lo mismo

Cualquiera de los dos me sirve muchas Gracias...

Alguien que mu ayude  Gracias

13
Visual Basic 6.0 e inferiores / Pegar Foto Desde Cualquier Ubicacion
« en: Jueves 26 de Julio de 2007, 03:16 »
Mi problema es el siguiente estoy creando un pequeño software en el cual estoy utilizando un objeto image para visualizar las fotos pero no quiero que una ventana de busqueda me proporcione esa foto para verla, sino que yo pueda ir a cualquier carpeta darle copiar y luego pegar sobre el objeto image estando este objeto limpio, o podria ser tambien si me ayudan con el objeto picturebox a hacer lo mismo

Cualquiera de los dos me sirve muchas Gracias...

Alguien que mu ayude  Gracias

Páginas: [1]