|
|
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 - Brroz
Páginas: 1 ... 23 24 [25] 26 27 ... 43
601
« en: Lunes 9 de Febrero de 2004, 09:30 »
Hola Bopo.
Text1.Text = Time
o mejor aún:
Text1.Text = Format(Time, "hh:mm:ss")
Chao.
602
« en: Lunes 9 de Febrero de 2004, 09:27 »
Hola Bopo.
Cuando escribes 130, ¿cómo sabes si se debe poner 01:30:00 ó 00:01:30 ó 13:00:00?
Prueba utilizando un Masked Edit Control.
Suerte.
603
« en: Lunes 9 de Febrero de 2004, 09:18 »
Hola irma.
Que no te funcione el código puede deberse a que tengas código para el evento KeyDown en algún otro control, en el ejemplo se controla el evento del formulario... si no tienes en el formulario la propiedad del form KeyPreview=True, el evento no será interceptado. Mira a ver si hay algo de esto, porque el código funciona...
Abur.
604
« en: Lunes 9 de Febrero de 2004, 09:12 »
Hola Black Jack.
Puedes utilizar métodos gráficos con el PictureBox del tipo Line (para pintar líneas), Pset (pinta un punto), Circle (círculos), Point (para conocer el color de un punto), Print (imprime texto). Así mismo puedes usar el api BitBlt para copiar imágenes o trozos de imágenes.
Suerte.
605
« en: Lunes 9 de Febrero de 2004, 09:07 »
Hola rechy.
Disculpa el error... lo que deberías de poner en vez de objApp.Show es objApp.Visible = True. Debes de quitar también las líneas objApp.Close y objApp.Quit, pues excel se cerraría al ejecutarlas.
También estaría bien que añadieras objApp.UserControl = True.
Suerte.
606
« en: Viernes 6 de Febrero de 2004, 11:47 »
Hola Piter.
Puedes echarle un vistazo al api, en concreto puedes necesitar las funciones CreateFile para obtener un handle al puerto comm, GetCommModemStatus para obtener el estado de un supuesto modem y/o WaitCommEvent.
Suerte.
607
« en: Viernes 6 de Febrero de 2004, 11:38 »
Hola irma3030. Para desabilitar el uso de la tecla control, debes controlar el evento KeyDown del formulario o de algún control en concreto, según necesites. Por ejemplo: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) ' 17 = Control , 8 = Retroceso If KeyCode = 17 Or KeyCode = 8 Then KeyCode = 0 End Sub
Suerte.
608
« en: Viernes 6 de Febrero de 2004, 11:34 »
Hola bezael. La cosa debería ser tal que así: Dim SRC as string SRC = App.Path If Right(SRC, 1) <> "\" The SRC = SRC & "\ayuda.htm" Else SRC = SRC & "ayuda.htm" End If Shell "EXPLORER.EXE " & SRC, vbMaximizedFocus
Chao.
609
« en: Jueves 5 de Febrero de 2004, 15:11 »
Hola javirues.
Probando, probando con las macros y el editor de vba del Word, de la única forma en que conseguí por código activar y desactivar la opción de sobreescribir, fue estableciendo la propiedad OverType del objeto Options miembro del objeto Application, miembro del objeto Document activo... es decir, el código queda en word tal que así:
ThisDocument.Application.Options.Overtype = True
, o sea, yo probaría poniendo esto:
With Application
If Not .ActiveDocument.Application.Options.Overtype Then
.ActiveDocument.Application.Options.Overtype = True
End If
.
.
.
Pues eso, ya contarás como te fue.
Suerte.
610
« en: Jueves 5 de Febrero de 2004, 14:43 »
Kaixo FRIJU.
Si no me equivoco, los archivos de imágenes de Autocad están en un formato vectorial... en un picturebox o un control image, sólo puedes mostrar algunos formatos de imágenes raster, o sea, mapa de bits, por lo que me parece que lo tienes crudo... a no ser que por ahí exista algun ocx que te permita representar este tipo de imágenes (que no conozco ninguno, pero no dudo de que los hay) o que el mismo Autocad proporcione algún componente que te permita representar las imágenes (que también lo desconozco).
En fin... suerte.
Agur.
611
« en: Jueves 5 de Febrero de 2004, 09:14 »
Hola irma3030.
Debes controlar antes de imprimir el valor que te devuelve la función TextWidth del Printer, habiendo previamente establecido el font y paso de letra que vas a utilizar. Con este valor y en función de la propiedad ScaleWidth del printer, calcular el justificado troceando la cadena que quieres imprimir...
Otra opción más limitante sería imprimir con un font de paso fijo (Courier, por ejemplo) y teniendo previamente calculado el número de caracteres que entran por línea, realizar los arreglos necesarios.
Suerte.
612
« en: Jueves 5 de Febrero de 2004, 09:07 »
Y yo no sé en qué puede ayudar usar un control para almacenar datos por columnas que luego no vamos a poder ver.
Si quieres usar un ListView y quieres que no se redibuje, sencillamente hazlo invisible.
613
« en: Jueves 5 de Febrero de 2004, 09:04 »
Hola rechy.
El código ya crea una nuevo libro... si desearas utlizar uno ya existente, en vez de CreateObject, utilizarías GetObject.
Para mostrar el libro en cuestión haz lo siguiente: objApp.Show
Para que te pregunte si quieres guardar los cambios, elimina estas líneas:
objWb.SaveCopyAs "c:\ruta\nombre.xls"
objWb.Saved = True
Suerte.
614
« en: Miércoles 4 de Febrero de 2004, 16:56 »
En vez de imprimir una línea con BF, pinta 4 líneas a modo de cuadrado, pero sin que lleguen a juntarse, dejando entre ellas una separación igual al radio de la esquina redondeada. Utiliza luego el método Circle, una vez para cada esquina, indicando en los parámetros Inicio y fin el valor en radianes del angulo formado por el arco que deseas trazar. Por ejemplo, este código dibuja en un PictureBox de (3800 x 3800 twips p.e.) un cuadrado de esquinas redondeadas: Const PI = 3.141516 Picture1.Cls Picture1.Line (600, 100)-(3100, 100) Picture1.Line (100, 600)-(100, 3100) Picture1.Line (3600, 600)-(3600, 3100) Picture1.Line (600, 3600)-(3100, 3600) Picture1.Circle (600, 600), 500, , PI / 2, PI Picture1.Circle (3100, 600), 500, , 0, PI / 2 Picture1.Circle (3100, 3100), 500, , 3 * PI / 2, 0 Picture1.Circle (600, 3100), 500, , PI, 3 * PI / 2
Chao.
615
« en: Miércoles 4 de Febrero de 2004, 15:14 »
Hola agfed. El tema lo solucionas fácilmente sustituyendo la asignación de valores a Text4(n) por la asignación a los correspondientes campos del recordset, es decir: en vez de... Text4(0).Text = Val(Text1.Text) Text4(1).Text = Text2.Text Text4(2).Text = Val(text3.Text) Text4(3).Text = " "
usa esto otro... usuariosdc.Recordset.Fields("NombreCampo0") = Val(Text1.Text) usuariosdc.Recordset.Fields("NombreCampo1") = Text2.Text usuariosdc.Recordset.Fields("NombreCampo2") = Val(text3.Text) usuariosdc.Recordset.Fields("NombreCampo3") = " "
En vez de 'NombreCampoX' puedes utilizar el índice del campo. Suerte.
616
« en: Miércoles 4 de Febrero de 2004, 14:54 »
Hola nestor g.
Si en el cuadro de diálogo has elegido una impresora, no te preocupes por nada más: el objeto printer ya estará apuntando a la impresora que has elegido (puedes comprobarlo muy fácilmente, mira si DeviceName coincide con lo que has elegido).
Chao.
617
« en: Martes 3 de Febrero de 2004, 10:15 »
Hola nestor g.
Aunque no puedas preguntar por el nombre de la impresora, ya que puede variar, tal vez si puedas preguntar por el nombre del controlador... lo puedes obtener mediante la propiedad DriverName del objeto Printer.
Suerte.
618
« en: Martes 3 de Febrero de 2004, 10:06 »
619
« en: Martes 3 de Febrero de 2004, 09:58 »
Hola ebolo.
La mejor manera que conozco para hacer una copia del registro es la siguiente:
Utilizar Regedit para editar el registro, ir al menú 'Registro' y selecciona exportar. Con esto guardarás el registro en un archivo que selecciones. Para recuperarlo, haz doble click sobre el archivo o selecciona Importar con Regedit.
Otra forma es utilizar una utilidad llamada ScanRegW que comprueba el registro y da opción de hacer una copia. Para restaurar esa copia podremos ejecutar ScanRegW.exe /restore.
Por supuesto que podrías hacer un programa como el que quieres con vb utilizando la api, pero tal vez te resulte más sencillo algo tan simple como Shell ScanRegW.exe.
Suerte.
620
« en: Martes 3 de Febrero de 2004, 09:45 »
Hola eli_moran.
Para seleccionar un dato de un combo, debes modificar su propiedad ListIndex, teniendo en cuenta que el primer elemento del combo tendrá ListIndex = 0 y el último ListIndex = Combo1.ListCount - 1. También puedes hacer aparecer el texto que quieras en el combo modificando su propiedad Text, pero en este caso el elemento no estará seleccionado.
Ten en cuenta también que cada vez que cambies el ListIndex de un combo se desencadenará su evento Click.
Chao.
621
« en: Martes 3 de Febrero de 2004, 09:40 »
Hola Taursoft.
Una matriz viene a ser una variable que consta de cierto número de elementos con el mismo tipo de datos en orden secuencial. Cada elemento puede ser accedido mediante un índice. Adicionalmente una matriz puede tener varias dimensiones, de forma que contaremos con un índice distinto para acceder a los elementos de cada dimensión.
Para lo que pretendes hacer, podría convenir que el tipo de datos de la matriz fuese una estructura de datos creada por ti, en vez de utilizar varias dimensiones según el número de columnas que pretendes almacenar.
Puede ser que no conozcas el máximo número de elementos que quieres almacenar, por ello deberás dimensionar la matriz dinámicamente utilizando la palabra clave Preserve.
Puede ocurrirte que si deseas almacenar una gran cantidad de datos te quedes sin memoria al dimensionar la matriz. Para solventar esto, podrías utilizar un sistema de buffering, definiendo la matriz estática y almacenando en disco, en un archivo abierto como binary, los datos al llegar al límite superior de la matriz...
A lo mejor te parece un poco liado, pero te aseguro que es muy sencillo.
Suerte.
622
« en: Lunes 2 de Febrero de 2004, 17:32 »
Hola rechy.
No me parado a examinar el código que mandas porque me parece un coñazo...
pero te cuento lo siguiente:
Si cuando dices que quieres aumentar las columnas te refieres a que quieres aumentar el número de columnas, asigna a la propiedad Cols el número de columnas que quieres que tenga el control.
Como dices que quieres 'incrementar en 0.0020' supongo que te estás refiriendo al ancho de la columna... pues bien, el valor para la propiedad ColWidth está expresado en twips (1 pulgada = 1440 twips) por lo que 0.0020 es una cojonésima de pulgada, por lo que algo así
MsFlexGrid1.ColWidth(1) = 0.0020
vendría a ser lo mismo que decir que el ancho de la columna 1 es 0 , por lo que la columna no se verá...
No sé si me he explicado muy bien, pero eso.
Abur.
623
« en: Lunes 2 de Febrero de 2004, 17:06 »
Hola Taursoft.
Usa una matriz.
Chao.
624
« en: Lunes 2 de Febrero de 2004, 17:00 »
Hola carlosjrey. Private Sub ExportarXls(Byval Rs as Recodset) On Error GoTo Err_XLS Dim objApp As Object Dim objWb As Object Dim objSh As Object Dim lngR As Long, lngC As Long If Rs Is Nothing Then goto Exit_Xls Set objApp = CreateObject("Excel.Application") Set objWb = objApp.WorkBooks.Add Set objSh = objWb.ActiveSheet For lngC = 0 To Rs.Fields.Count - 1 ObjSh.Cells(1, lngC + 1) = Rs.Fields(lngC).Name Next LngC If Rs.RecordCount > 0 Then Rs.MoveFirst lngR = 1 Do Until Rs.EOF lngR = lngR + 1 For lngC = 0 To Rs.Fields.Count - 1 objSh.Cells(lngR, lngC + 1) = Rs.Fields(lngC).Value Next lngC Rs.MoveNext Loop objWb.SaveCopyAs "c:\ruta\nombre.xls" objWb.Saved = True Exit_XLS: On Local Error Resume Next Rs.Close Set Rs = Nothing objApp.Close objApp.Quit Set objSh = Nothing Set objWb = Nothing Set objApp = Nothing Exit Sub Err_XLS: MsgBox "(" & Err.Number & ") " & Err.Description, vbCritical, "Xls" Resume Exit_XLS End Sub
El código es prácticamente el mismo que le di a rechy unos cuantos post atrás... pero la comodidad es la comodidad... Ale, abur.
625
« en: Lunes 2 de Febrero de 2004, 12:53 »
Hola MestreZero.
Utiliza cualquier buscador con el texto 'Convertir números a letras' y te saldrán tropecientosmil ejemplos.
Abur.
Páginas: 1 ... 23 24 [25] 26 27 ... 43
|
|
|
Mostrar Mensajes
