|
|
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 ... 7 8 [9] 10 11 ... 26
201
« en: Sábado 7 de Abril de 2007, 06:56 »
Estuve haciendo pruebas y encontré que cambiando la propiedad 'AutoSize' (de un picturebox) un archivo bmp cambia de tamaño cuando es falsa y no la cambia cuando es verdadera. Ese puede ser el problema que tienes de la diferencia de tamaño de archivos. Lo de cambiar los PPP, eso no lo sé. 
202
« en: Jueves 5 de Abril de 2007, 17:56 »
Espero el siguiente código te dé una idea: Dim astrTempText() As String Dim astrMatrix(16384, 1) As String Dim lngCount As Long Dim sRecidida As String Dim lngPos As Long 'sRecidida= entrada de datos del serial sRecidida = "20, 2568" & vbNewLine & "21, 2567" & vbNewLine astrTempText = Split(sRecidida, vbNewLine) For lngCount = 0 To UBound(astrTempText) - 1 lngPos = InStr(astrTempText(lngCount), ",") astrMatrix(lngCount, 0) = Mid$(astrTempText(lngCount), 1, lngPos - 1) astrMatrix(lngCount, 1) = Mid$(astrTempText(lngCount), lngPos + 1, Len(astrTempText(lngCount)) - (lngPos - 1)) Next lngCount
204
« en: Jueves 5 de Abril de 2007, 01:45 »
También hay que agregar una referencia a Microsoft Scripting Runtime.
205
« en: Domingo 1 de Abril de 2007, 03:34 »
Dim strA As String Dim strB As String Dim lngX As Long strA = "holacomoandascomenzarprobando123456789" strB = "probando" lngX = InStr(strA, strB) Text1.Text = Mid$(strA, lngX + Len(strB), 4)
206
« en: Martes 27 de Marzo de 2007, 04:45 »
No se te entiende bien. ¿Lo que deseas es convertir la información de una página HTML a texto plano?. O deseas convertir la URL. ¿Explica cuál es la información que deseas convertir?.
207
« en: Sábado 24 de Marzo de 2007, 16:31 »
Revise la rutina que estaba en la discusión que te recomendé y puede quitarse la variable de recordset. Dim dbContrato As Database Dim strSQL as String Set dbContrato = DBEngine.OpenDatabase(PathDeBase, False, False, ";Pwd=MiContraseña") strSQL = "SELECT * FROM Clientes ORDER BY IdCliente" Set Data1.Recordset = dbContrato.OpenRecordset(strSQL, dbOpenDynaset)
208
« en: Sábado 24 de Marzo de 2007, 16:26 »
210
« en: Miércoles 21 de Marzo de 2007, 16:17 »
211
« en: Martes 20 de Marzo de 2007, 16:07 »
Lo revisaré, muchas gracias por la información. 
212
« en: Martes 20 de Marzo de 2007, 01:46 »
Te falta indicar si tu equipo de computo está en red, o si los usuarios tienen el acceso a tu equipo. Si los usuarios tienen acceso a tu equipo y clave de administrador, nada evitará que puedan eliminar los archivos. Escondiendo el fólder puede ayudar, solo si los usuarios no son expertos. Si escondes la base de datos o si le colocas el atributo de solo lectura, entonces tu programa no podrá abrir la base de datos para editarla. Por otra parte si te encuentras en red, mientras tu programa se esté ejecutando no puede eliminarse la base de datos. Puedes cambiarle el nombre a la base de datos y renombrarla antes de usarla y al salir del programa volver a cambiarle el nombre, o puedes intentar cambiar la base de datos a otro fólder, copiándola solo cuando la necesites.
213
« en: Sábado 17 de Marzo de 2007, 22:37 »
Busqué y no encontré como hacerlo, nos haces el favor de ilustrarnos como lo hiciste. 
214
« en: Viernes 16 de Marzo de 2007, 16:28 »
Estuve haciendo pruebas y si funciona como lo indicas: " Nombredeformulario.data1.recordset.delete " Probablemente en alguna parte de tu código se mueva el registro seleccionado al primer registro. Por otra parte me parece que te verás en dificultades tratando de programar el borrado de registros de esa manera.
215
« en: Viernes 16 de Marzo de 2007, 16:16 »
Te falta el Edit. Prueba con lo siguiente: If Not (rstEsp.EOF) Then varcg = rst.Fields("continfor") varcg = varcg + 1 rstEsp.Edit rstEsp!continfor = varcg rstEsp.Update rstEsp.Close txtXp.Text = "INFORMATICA" & varcg txtNombre.SetFocus End If
216
« en: Viernes 16 de Marzo de 2007, 16:08 »
Esto puede servirte. 'Comprobar si la DB tiene password Function DatabasePassword(DBPath As String) As Boolean 'Regresa verdadero si la BD tiene password Dim db As Database On Error Resume Next Set db = DBEngine.OpenDatabase(DBPath, True, False, ";pwd=") If Err.Number <> 0 Then DatabasePassword = True Else DatabasePassword = False End If End Function
217
« en: Miércoles 14 de Marzo de 2007, 03:14 »
218
« en: Martes 13 de Marzo de 2007, 05:46 »
El tipo de datos si/no de access es compatible con el Boolean de VB. Para manejar este tipo de datos existe la variable -dbBoolean-
219
« en: Sábado 3 de Marzo de 2007, 22:29 »
Algo así te debe servir: Private Sub MnuAltas_Click() On Error GoTo Tratamiento '-------------- '----------- '----------------- Exit Sub Tratamiento: Select Case Err.Number Case 3201: MsgBox "Debe introducir dato" Case 3421: MsgBox "Debe seleccionar cliente" Case Else MsgBox "Error al dar de alta" End Select End Sub
220
« en: Sábado 3 de Marzo de 2007, 18:06 »
Te anexo un pequeño proyecto que muestra como obtener los fólder principales de Windows.
221
« en: Miércoles 28 de Febrero de 2007, 15:09 »
Si tienes un problema grande, la mejor manera es manejarlo en partes. Y si tienes poco conocimiento, estudia en los tutoriales de vb y pregunta lo que no entiendas. Para el problema que planteas tomaré la primera parte para darte una idea de como resolverla. Cargar el listado de palabras clave en un Array de texto. Suponiendo que el listado de palabras clave es pequeño (si es grande hay mejores métodos que este) Abre un proyecto en VB6 con una forma, un commandbutton y un listbox y coloca este código dentro de la forma. Option Explicit Dim mstrArray(10) As String Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() Call CargarArray ' Lo siguiente no es necesario pero sirve para demostrar ' lo que puede hacerse con el array una vez cargado Call CargarCombo End Sub Sub CargarArray() mstrArray(1) = "ROJO" mstrArray(2) = "VERDE" mstrArray(3) = "AZUL" mstrArray(4) = "AMARILLO" mstrArray(5) = "MAGENTA" mstrArray(6) = "NEGRO" mstrArray(7) = "NARANJA" mstrArray(8) = "CELESTE" mstrArray(9) = "CAFE" mstrArray(10) = "VIOLETA" End Sub Sub CargarCombo() Dim lngCnt As Long For lngCnt = 1 To 10 List1.AddItem mstrArray(lngCnt) Next lngCnt End Sub
Esto te dará una idea de como manejar los array de texto.
222
« en: Miércoles 28 de Febrero de 2007, 01:01 »
Alguien habrá cerca de tu ciudad que esté enterado, pero eso se puede saber si mencionas en que lugar vives. 
223
« en: Miércoles 28 de Febrero de 2007, 00:56 »
Una manera fácil de obtener el año bisiesto es la siguiente: If IsDate("29/02/2007") Then MsgBox "El 2007 es bisiesto" Else MsgBox "El 2007 no es bisiesto" End If If IsDate("29/02/2008") Then MsgBox "El 2008 es bisiesto" Else MsgBox "El 2008 no es bisiesto" End If
224
« en: Miércoles 28 de Febrero de 2007, 00:50 »
Una de las maneras puede ser esta... Cargar el listado de palabras clave en un Array de texto. Al ser modificado el texto del RichTextBox, colocar en otro array de texto lo obtenido con la función Split. Comparar ambos array de texto, si hay coincidencia entonces proceder a localizar la palabra en el RichTextBox con Find (Método) y marcarla con color con la Propiedad SelColor del RichTextBox.
225
« en: Lunes 12 de Febrero de 2007, 14:17 »
Parece que el control no está bien diseñado, también me sucede lo mismo a mi. Trata de buscar otro control de calendario.
Páginas: 1 ... 7 8 [9] 10 11 ... 26
|
|
|
Mostrar Mensajes
