• Lunes 12 de Mayo de 2025, 17:11

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

Páginas: 1 ... 5 6 [7] 8 9 ... 26
151
Visual Basic 6.0 e inferiores / Re: Al Cerrar El Mdi, Que Queden Cerrados Todos
« en: Sábado 27 de Octubre de 2007, 05:52 »
Código: Text
  1. Sub UnloadAllForms()
  2.    Dim frm As Integer
  3.    frm = Forms.Count
  4.  
  5.    Do While frm > 0
  6.       Unload Forms(frm - 1)
  7.       If frm = Forms.Count Then Exit Do
  8.       frm = frm - 1
  9.    Loop
  10. End Sub
  11.  
:comp:

152
Visual Basic para principiantes / Re: "variable Not Defined", Error De Principiante =(
« en: Lunes 22 de Octubre de 2007, 02:17 »
El error está en la línea de Shell, corrige de la siguiente manera

Código: Text
  1. Shell App.Path & "Data\burner.exe", vbNormalFocus
  2.  
:comp:

153
Visual Basic 6.0 e inferiores / Re: Como Guardar Una Clavetipo Texto En Vb 6.0
« en: Jueves 11 de Octubre de 2007, 06:44 »
Lo que debes mostrar, para poder ayudarte. es la subrutina 'guardardatos'
También que tipo de datos puede guardar el campo donde seguardará la "clave tipo texto" (texto, númerico, etc)
 :comp:

154
Visual Basic 6.0 e inferiores / Re: Renombrar Archivo
« en: Jueves 11 de Octubre de 2007, 06:42 »
Busca la instrucción Name
Citar
Name (Instrucción)

Cambia el nombre de un archivo, directorio o carpeta.

Sintaxis

Name nombre_ruta_antigua As nombre_ruta_nueva

:comp:

155
Visual Basic para principiantes / Re: Registros Dentro De Un Txt.
« en: Martes 2 de Octubre de 2007, 19:12 »
Te adjunto un pequeño proyecto llamado CuentaLineas.
Cuenta las líneas que tiene un archivo. El ejemplo que adjunto te muestra el número de líneas que tiene un listado de palabras, que están separadas por Cr y LF. Pero pueden ser números como los que usas.
Para este ejemplo debes de tomar en cuenta que usa Option Base 1 para que los arrays inicien en 1 y no en 0.

Espero te sirva

 :comp:

156
Visual Basic 6.0 e inferiores / Re: Propiedades De Impresion
« en: Domingo 23 de Septiembre de 2007, 01:48 »
Siempre puedes saber que propiedades tiene un control de ls siguiente manera.
En modo de diseño del programa escribe el nombre del control Common Dialog por ejemplo:

Código: Text
  1. cdlMain
  2.  

Al momento de colocar el punto "cdlMain." VB6 te muestra un listado de propiedades, entre ellas encontrarás  "Copies" la seleccionas y después colocas el número de copias que deseas. Deberás dejar las líneas de código como las que siguen:

Código: Text
  1. intCntCopies = 10
  2. cdlMain.Copies = intCntCopies
  3.  
Lo que significa que quieres 10 copias del documento.

Si lo que deseas saber es cuantas copias seleccionó el usuario entonces puedes obtenerlo de la siguiente manera:

Código: Text
  1.     intCntCopies = cdlMain.Copies
  2.  
  3.  
Así funciona con otras propiedades. Revisa la ayuda de VB6.
 :comp:

157
Visual Basic 6.0 e inferiores / Re: Propiedades De Impresion
« en: Jueves 20 de Septiembre de 2007, 05:29 »
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&#59; Tab(intPrintTab); "A partir de: ";: Printer.Font.Bold = True: Printer.Print txtAPartir.Text: Printer.Font.Bold = False
  39.     Printer.Print&#59; 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:

158
Visual Basic 6.0 e inferiores / Re: Propiedades De Impresion
« en: Martes 18 de Septiembre de 2007, 08:12 »
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:

159
Visual Basic 6.0 e inferiores / Re: Como Hacer Un Combo Dependiente
« en: Martes 4 de Septiembre de 2007, 22:27 »
No sé si todo lo demás está bien, ya que no tengo las bases de datos pero, trata cambiando.

 
Código: Text
  1. Set Reg = base.OpenRecordset("SELECT distinct ano,mes FROM chequesgirados where cuenta = ' " & Combo1.Text & " ' ")
  2.  
Coloca lo siguiente:
 
Código: Text
  1.    Set Reg = base.OpenRecordset("SELECT distinct ano,mes FROM chequesgirados where cuenta = '" & Combo1.Text & "'")
  2.  
  3.  
Tienes espacios extras en las comillas simples.

 :comp:

160
Visual Basic 6.0 e inferiores / Re: Ayuda Con Instalador
« en: Viernes 31 de Agosto de 2007, 16:18 »
El problema que mencionas ya ha sido tratado en el foro.

La mejor solución ya te la dijo F_Tanori.

Si no deseas cambiar de instalador, te sugiero que pruebes instalando el Service Pack 6 del VB6, esta actualización puede arreglar el problema.

Para que te enteres cual es la explicación del problema del instalador de VB6, revisa mi explicación en esta discusión.

http://foros.solocodigo.com/index.php?showtopic=4700

 :comp:

161
Visual Basic 6.0 e inferiores / Re: Algo Sencillo Pero No Se Scroll Bar En Form
« en: Sábado 11 de Agosto de 2007, 02:40 »
Tanto si usas un TextBox o un RichTextBox debes de colocar las propiedades Multiline = True y ScrollBars = 2.
 :comp:

162
Visual Basic 6.0 e inferiores / Re: Abrir Un Mp3 Pero Con Mi Propio Reproductor
« en: Viernes 10 de Agosto de 2007, 22:28 »
Te sugiero revises el tema de asociación de archivos (file association) que no está fácil de implementar, pero puedes empezar con uno de los mejores ejemplos que he encontrado en PSC.

http://www.planet-source-code.com/vb/scrip...=34340&lngWId=1

 :comp:

163
Visual Basic 6.0 e inferiores / Re: Scrollbar En Un Frame?
« en: Miércoles 1 de Agosto de 2007, 01:03 »
Te lo adjunto...
Espero te sirva.
 :comp:

164
Visual Basic 6.0 e inferiores / Re: Scrollbar En Un Frame?
« en: Martes 31 de Julio de 2007, 23:35 »
Tengo una rutina con lo que deseas pero en lugar de ser frames es con 2 picturebox y VScrollBar. Un picturebox grande dentro de otro pequeño y puedes ver una parte de picturebox grande cambiando los valores del VScrollBar.
Si te interesa te adjunto un pequeño proyecto.
 :comp:

165
Visual Basic 6.0 e inferiores / Re: Pegar Foto Desde Cualquier Ubicacion
« en: Domingo 29 de Julio de 2007, 06:16 »
En el siguiente enlace encontrarás un sencillo proyecto que resolverá tu pregunta.

http://www.planet-source-code.com/vb/scrip...=66633&lngWId=1
 :comp:

166
Visual Basic 6.0 e inferiores / Re: Pegar Foto Desde Cualquier Ubicacion
« en: Sábado 28 de Julio de 2007, 09:20 »
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:

167
Visual Basic 6.0 e inferiores / Re: Pegar Foto Desde Cualquier Ubicacion
« en: Sábado 28 de Julio de 2007, 08:38 »
Se dificulta entenderte. Lo que ahora mencionas no se puede hacer como lo deseas.
Cuando en Mi PC o en el Explorador de Archivos, efectúas el Copiar, solo puedes Pegar a otro Mi PC o Explorador de Archivos. En visual Basic el Clipboard (Objeto) no tiene método para pegar un archivo de esa manera, a un control PictureBox.
La alternativa que si puede hacerse es la siguiente: Se registra una aplicación para que cuando hagas un doble clic en Mi PC o en el Explorador de Archivos en forma automática cargue el archivo que tenga una extensión predeterminada, por ejemplo: .jpg, bmp, gif, etc. Como cuando haces un doble clic en un archivo con extensión .doc se abre el Word de Microsoft y carga el documento que señalaste.

 :comp:

168
Visual Basic 6.0 e inferiores / Re: Pegar Foto Desde Cualquier Ubicacion
« en: Viernes 27 de Julio de 2007, 06:05 »
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:

169
Visual Basic 6.0 e inferiores / Re: Pegar Foto Desde Cualquier Ubicacion
« en: Viernes 27 de Julio de 2007, 01:21 »
Mis disculpas, no era así, el código que te di es para pasar al portapapeles una imagen que esté en el picturebox.

El código para pasar una imagen que esté en el portapapeles y pegarla en un control de imagen es el siguiente:
Código: Text
  1. Private Sub Image1_Click()
  2.     Image1.Picture = Clipboard.GetData
  3. End Sub
  4.  

 :comp:

170
Visual Basic 6.0 e inferiores / Re: Com1 No Funciona En Windows Xp Ni Vista
« en: Jueves 26 de Julio de 2007, 16:27 »
Muchas gracias por el ofrecimiento, lo tendré en cuenta.
 :comp:

171
Visual Basic 6.0 e inferiores / Re: Pegar Foto Desde Cualquier Ubicacion
« en: Jueves 26 de Julio de 2007, 16:24 »
Bastante simple.
El objeto picturebox debe llamarse picFoto, y verificas que la propiedad AutoRedraw  sea True, y la propiedad ScaleMode sea 3 - vbPixels

Código: Text
  1. Private Sub picFoto_DblClick()
  2.     Clipboard.Clear
  3.     Clipboard.SetData picFoto.Image
  4. End Sub
  5.  
  6.  
El código está en el evento DblClick, pero puede estar en el evento Click
 :comp:

172
Visual Basic 6.0 e inferiores / Re: Descompilador De Exe
« en: Lunes 23 de Julio de 2007, 18:24 »
Ya estuve revisando la información del programa que mencionas y la documentación dice que solo puede recuperar parcialmente el código.

También dicen lo siguiente
Citar
If a program was compiled into the native code, restoring the source code from machine instructions is not possible.
Lo que se traduce más o menos así:
Citar
Si un programa fue compilado en código nativo, restaurar dicho código desde el lenguaje de máquina, no es posible.

Si alguien desea revisar lo anterior (en inglés), coloco el enlace:

http://www.vb-decompiler.org/index.php?p=News

:comp:

173
Visual Basic 6.0 e inferiores / Re: Guardar Fecha Y Visualizarla Cambiando El Mes
« en: Lunes 23 de Julio de 2007, 05:26 »
Esto también te puede servir:

Código: Text
  1.     Text1.Text = DateAdd("m", 1, "22/07/2007")
  2.  
  3.  
:comp:

174
Visual Basic para principiantes / Re: Visualizar Una Imagen De Una Base De Datos
« en: Domingo 22 de Julio de 2007, 17:54 »
En el código que muestras, no se observa que tipo de variable es "codigo"

Código: Text
  1.  Set rs5 = DB.OpenRecordset("SELECT Foto from " & nomTablaFinal & " where Codigo like codigo ", dbOpenDynaset)
  2.  
  3.  

Cambia el código anterior a lo siguiente:
Código: Text
  1.  Set rs5 = DB.OpenRecordset("SELECT Foto from " & nomTablaFinal & " where Codigo like " & codigo, dbOpenDynaset)
  2.  

Si existen varias fotos del código que buscas, este código que tienes, solo te mostrará la últmina foto.
Código: Text
  1.  Do While Not .EOF
  2. Picture1.DataSource = rs5("Foto")
  3. Loop
  4.  

Revisa esta discusión, puede ayudarte:
http://foros.solocodigo.com/index.php?show...19843&hl=imagen


 :comp:

175
Visual Basic 6.0 e inferiores / Re: Descompilador De Exe
« en: Viernes 20 de Julio de 2007, 17:55 »
Para VB5 o VB6 no encontrarás un decompilador que funcione. Solo podrás obtener parte del código, como los nombres de las formas, de algunos controles y los módulos.
Pierdes tu tiempo, a menos que conozcas lenguaje de máquina.
 :comp:

Páginas: 1 ... 5 6 [7] 8 9 ... 26