|
|
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 ... 18 19 [20] 21 22 ... 26
477
« en: Lunes 5 de Septiembre de 2005, 17:29 »
También he buscado solución a ese problema. No es posible hacerlo desde un programa. Solo puedes obtener el estado de la barra de tareas, ocultarla o mostrarla. Ocultar la barra de tareas en forma automática solo se puede hacer manualmente en Windows. Este enlace en inglés lo explica: http://www.windowsitpro.com/Article/Articl...5408/15408.html 
478
« en: Lunes 5 de Septiembre de 2005, 15:50 »
Escribe completo el mensaje de error que aparece en pantalla. 
480
« en: Lunes 29 de Agosto de 2005, 18:42 »
Coloca esto en un módulo BAS Option Explicit 'En Microsoft TechNet puedes encontrar este artículo: 'HOWTO: Use HTML Help API in a Visual Basic 5.0 Application 'PSS ID Number: Q183434 ' 'Aunque la definición de la Enumeración y la primera declaración 'es de las news ' 'Htmlhelp consts Enum HH_COMMAND ' WinHelp's HELP_WM_HELP. HH_DISPLAY_TOPIC = &H0 HH_HELP_FINDER = &H0 ' WinHelp equivalent HH_DISPLAY_TOC = &H1 ' not currently implemented HH_DISPLAY_INDEX = &H2 ' not currently implemented HH_DISPLAY_SEARCH = &H3 ' not currently implemented HH_SET_WIN_TYPE = &H4 HH_GET_WIN_TYPE = &H5 HH_GET_WIN_HANDLE = &H6 HH_GET_INFO_TYPES = &H7 ' not currently implemented HH_SET_INFO_TYPES = &H8 ' not currently implemented HH_SYNC = &H9 HH_ADD_NAV_UI = &HA ' not currently implemented HH_ADD_BUTTON = &HB ' not currently implemented HH_GETBROWSER_APP = &HC ' not currently implemented HH_KEYWORD_LOOKUP = &HD HH_DISPLAY_TEXT_POPUP = &HE ' display string resource id ' or text in a popup window HH_HELP_CONTEXT = &HF ' display mapped numeric value ' in dwData HH_TP_HELP_CONTEXTMENU ' Text pop-up help, similar to ' WinHelp's HELP_CONTEXTMENU. HH_TP_HELP_WM_HELP = &H11 ' text pop-up help, similar to ' WinHelp's HELP_WM_HELP. HH_CLOSE_ALL = &H12 ' close all windows opened directly ' or indirectly by the caller HH_ALINK_LOOKUP = &H13 ' ALink version of HH_KEYWORD_LOOKUP End Enum 'HtmlHelp api call Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _ (ByVal hwndCaller As Long, ByVal pszFile As String, _ ByVal uCommand As HH_COMMAND, ByVal dwData As Long) As Long
El siguiente código va en una forma Private Sub Command1_Click() 'De esta forma se muestra en el tópico por defecto HtmlHelp Me.hWnd, App.Path & "\Ayuda.chm" & ">Main", HH_DISPLAY_TOC, 0 End Sub Private Sub Form_Load() App.HelpFile = App.Path & "\Ayuda.chm" End Sub
Si necesitas algo con más caractéristicas, busca en la red el código fuente de 'ElitePad' de Andrea Batina.
481
« en: Sábado 20 de Agosto de 2005, 18:26 »
Se me lengua la traba. 
482
« en: Viernes 19 de Agosto de 2005, 16:19 »
Tu respuesta no corresponde a la pregunta: Hola a todos, alguien sabe como puedo salvar una imagen contenida en un .picture o .image en formato JPG y no en tipo BMP.
gracias
483
« en: Lunes 15 de Agosto de 2005, 20:53 »
Para lo de número de registro trata con lo siguiente: Text1.text = RsImp.AbsolutePosition
484
« en: Lunes 15 de Agosto de 2005, 20:17 »
El siguiente código lo uso para mostrar el número de registros de la base de datos. Tiene manejo de errores, si no hay registros le indico al usuario que debe agregarlo. Private Sub CountRecords() On Error GoTo ErrorCountRecords If RsImp.BOF And RsImp.EOF Then LblRCMain.Caption = "0" gstrMsg = "Antes de iniciar cualquier operación " & vbCrLf & _ "agregue un registro. Clic en [Nuevo]." MsgBox gstrMsg, vbInformation, gstrAppTitle Else mvarBookMark = RsImp.Bookmark RsImp.MoveLast LblRCMain.Caption = RsImp.RecordCount RsImp.Bookmark = mvarBookMark End If Exit Sub ErrorCountRecords: GenErrorHandler "frmEditbloc/CountRecords()", Err.Number, Err.Description Exit Sub End Sub
En cuanto a lo de mostrar el número de registro, no he encontrado la forma de hacerlo. Para mí no es útil el parámetro y no lo muestro.
485
« en: Lunes 8 de Agosto de 2005, 00:09 »
Yo uso el siguiente código... Private Sub cmdFirst_Click() If Not Rs.BOF And Not Rs.EOF Then Rs.MoveFirst End If End Sub Private Sub cmdLast_Click() If Not Rs.BOF And Not Rs.EOF Then Rs.MoveLast End If End Sub Private Sub cmdNext_Click() If Not Rs.BOF And Not Rs.EOF Then If Rs.EOF Then Rs.MoveLast Else Rs.MoveNext If Rs.EOF Then Rs.MoveLast End If End If End If End Sub Private Sub cmdPrevious_Click() If Not Rs.BOF And Not Rs.EOF Then If Rs.BOF Then Rs.MoveFirst Else Rs.MovePrevious If Rs.BOF Then Rs.MoveFirst End If End If End If End Sub
Utiliza el evento Reposition del control Data para el código de Rs.RecordCount
487
« en: Lunes 1 de Agosto de 2005, 19:38 »
Coloca el código en el evento LostFocus Private Sub TextBox_LostFocus() TextBox.Text = StrConv(TeTextBox.Text, vbProperCase) End Sub
488
« en: Lunes 1 de Agosto de 2005, 01:42 »
Aún más fácil Usa StrConv Ejemplo: gstrText = StrConv(gstrText, vbProperCase)
490
« en: Lunes 11 de Julio de 2005, 00:13 »
Explica mejor lo que deseas...
491
« en: Lunes 4 de Julio de 2005, 22:48 »
Revisa
MkDir (Instrucción)
Crea un directorio o carpeta.
Sintaxis
MkDir ruta
492
« en: Viernes 3 de Junio de 2005, 18:06 »
Tengo estas 2 rutinas que son de una aplicación VB6 que elaboré para proteger de descompilación los programas de VB4. La carga de la información binaria es en un Array de bytes. El manejo de la información en la variable String debe ser con instrucciones de 16 bit como MidB, LenB, ChrB, etc. Sub OpenFile(strFilename As String) Dim intFIndex As Integer Dim lngLenFile As Long Dim lngBytes As Long On Error GoTo error_open_Exe ' Abrir archivo seleccionado If strFilename <> "" Then If Dir(strFilename) <> "" Then intFIndex = FreeFile Close #intFIndex Screen.MousePointer = 11 Open strFilename For Binary As #intFIndex lngLenFile = LOF(intFIndex) ReDim GetByt(1 To lngLenFile) As Byte '<--- Get #intFIndex, , GetByt() ' Convertir a String gstrExe = GetByt() 'Reset array ReDim GetByt(1 To 1) Close #intFIndex gstrWorkDir = Path(strFilename) Call WriteWorkingDir Else gstrText = "El archivo no existe" MsgBox gstrText, vbExclamation, gstrAppTitle End If End If Screen.MousePointer = vbDefault Exit Sub error_open_Exe: gstrText = "Error al abrir archivo" MsgBox gstrText, vbExclamation, gstrAppTitle Screen.MousePointer = vbDefault Exit Sub End Sub Sub SaveFileAs(Filename) Dim lngLenExe As Long On Error Resume Next Open Filename For Binary As #1 Screen.MousePointer = 11 ' Escribir contenido de la variable en modo de 16 bit lngLenExe = LenB(gstrExe) ReDim PutByt(1 To lngLenExe) As Byte PutByt() = gstrExe Put #1, , PutByt() Close #1 Screen.MousePointer = 0 If Err Then MsgBox Error, 48, App.Title End If End Sub
--------------------- "Corrector Ortográfico de Notas", freeware, utilidad para programadores. Programado en VB6, con diccionario propio. http://consultapractica.aztecaonline.net/index2.html
493
« en: Martes 31 de Mayo de 2005, 07:48 »
En el evento Unload de la forma coloca las llamadas a subrutinas Private Sub Form_Unload(Cancel As Integer) Call CloseAllDatabases Call UnloadAllForms End End Sub
Lo siguiente lo colocas en un módulo BAS. Esta rutina CloseAllDatabases es para DAO Sub CloseAllDatabases() ' Close out db objects ' and release all memory ' On Error Resume Next Dim wsObject As Workspace Dim dbObject As Database Dim rsObject As Recordset For Each wsObject In Workspaces For Each dbObject In wsObject.Databases For Each rsObject In dbObject.Recordsets rsObject.Close Set rsObject = Nothing Next dbObject.Close Set dbObject = Nothing Next wsObject.Close Set wsObject = Nothing Next End Sub Sub UnloadAllForms() Dim frm As Integer frm = Forms.Count Do While frm > 0 Unload Forms(frm - 1) If frm = Forms.Count Then Exit Do frm = frm - 1 Loop End Sub
494
« en: Lunes 30 de Mayo de 2005, 20:08 »
495
« en: Lunes 30 de Mayo de 2005, 05:29 »
Usa copiar y pegar. Asegurate que la línea superior tenga los nombres de los campos. Abre una base de datos nueva en Access. Luego pega en Access la información que copiaste desde Excel. Esto funciona en Office 2000, y debe funcionar en Office 2003
496
« en: Domingo 22 de Mayo de 2005, 06:56 »
En una sola línea strText = Replace(strText, " ", "_")
497
« en: Viernes 20 de Mayo de 2005, 05:31 »
Puedes obtener el código ASCII de las teclas en el evento KeyPress Private Sub txtEdit_KeyPress(KeyAscii As Integer) Debug.Print KeyAscii End Sub
Pero si lo que deseas es obtener información de todas las teclas entonces debes ver el evento KeyDown de un textBox como el ejemplo siguiente: Private Sub TxtEdit_KeyDown(KeyCode As Integer, Shift As Integer) Debug.Print KeyCode, Shift End Sub
En KeyCode está el código ASCII y en Shift si hay otra tecla presionada por ejemplo: If KeyCode = 86 And Shift = 2 Then 'Ctrl V ElseIf KeyCode = 90 And Shift = 2 Then 'Ctrl Z
También en Shift proporciona otros números de teclas como las de función F1, bloqueo de mayúsculas, Alt, etc. Existe un pero, ya que en KeyCode es lo mismo que elijas una mayúscula que minúscula.
498
« en: Jueves 19 de Mayo de 2005, 03:43 »
Una manera de abordar tu problema es que antes de guardar el documento lo modifiques con la función WordWrap, la obtuve en la red y la adapté a mis programas. Llama a la función WordWrap como el siguiente ejemplo, toma en cuenta que el número 40 es el tamaño de la línea (en caracteres). txtRtf.Text = WordWrap(txtRtf.Text, 40) Function WordWrap(Expression As String, Length As Integer) As String Dim BufferCrLf() As String Dim BufferSpace() As String Dim Buffer As String Dim k As Long Dim j As Long Dim Count As Long On Error GoTo ErrorWordWrap BufferCrLf() = Split(Expression, vbCrLf) For k = 0 To UBound(BufferCrLf()) If Len(BufferCrLf(k)) <= Length Then Buffer = Buffer & BufferCrLf(k) & vbCrLf Else BufferSpace() = Split(BufferCrLf(k), " ") Count = 0 For j = 0 To UBound(BufferSpace()) Count = Count + Len(BufferSpace(j)) + 1 If (Count <= Length) Then Buffer = Buffer & BufferSpace(j) & " " Else Count = 0 Buffer = Buffer & vbCrLf & BufferSpace(j) & " " Count = Len(BufferSpace(j)) + 1 End If Next j Buffer = Buffer & vbCrLf End If Next k WordWrap = Buffer Exit Function ErrorWordWrap: 'coloca aquí el manejo de errores End Function
--------------------- "Corrector Ortográfico de Notas", freeware, utilidad para programadores. Programado en VB6, con diccionario propio. http://consultapractica.aztecaonline.net/index2.html
499
« en: Miércoles 18 de Mayo de 2005, 17:29 »
Otra manera de hacer lo que deseas es usando las siguientes instrucciones que te doy en siguiente ejemplo: rtfEdit.SelIndent = 2 rtfEdit.SelRightIndent = 2 rtfEdit.SelHangingIndent = -1 Lo de guardar el formato con los saltos de línea, no tengo la respuesta. Voy a revisar, si la encuentro te lo diré. Es difícil encontrar algo bueno y extenso para manejo del control de Rich Text. Si alguien tiene el enlace a buen tutorial, le agradeceré nos lo diga.
500
« en: Miércoles 18 de Mayo de 2005, 00:13 »
Trata de usar la propiedad RightMargin Ejemplo: rtfEdit.RightMargin = 10 Modifica el número 10 para que se adecúe a tus necesidades.
Páginas: 1 ... 18 19 [20] 21 22 ... 26
|
|
|
Mostrar Mensajes
