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

Páginas: [1] 2 3 4 5 6 ... 24
1
Bases de Datos / Re:SQL Batch Compiler
« en: Julio 15, 2015, 05:35:02 pm »
Si, es economico, hasta para nosotros que estamos en la lona! :D

2
Bases de Datos / SQL Batch Compiler
« en: Julio 15, 2015, 01:42:08 pm »
Normalmente por motivos laborales me toca compilar varios scripts en una base de Sql Server y la manera en que lo hacia era uno por uno abriendolo en SSMS y ejecutandolo o armando un script de SQLCMD, hoy les traigo una solucion alternativa que me salvo la vida.

Es una complemento para SSMS que te permite hacer justamente eso, abrir y ejecutar scrips a traves de una interfaz.

Descarga: Batch Compiler for SSMS


Saludos

3
Adjunto un ejemplo, un detalle que olvide decir es que tiene que estar compilado para que funcione. Esto no es problema porque durante el desarrollo podes instar las fuentes en el sistema sin ningún problema.

Use XN resource editor.

Hay tres nombres que tenes que tener en cuenta, primero el de la sección del recurso en este caso "TTF", luego el recurso en si que seria "TTF1" y por ultimo el nombre de la fuente "Code 128".

https://dl.dropboxusercontent.com/u/43394978/Font.rar

Saludos

4
Agregas la fuente en un archivo de recursos, en el ejemplo yo cargue la fuente como TTF, luego llamas a la funcion LoadResourceFont(<nombre de la fuente>) y listo, la fuente va a estar disponible en el contexto de tu programa. Si tenes problemas luego subo un ejemplo completo pero tendrias que poder hacerlo funcionar.

Código: [Seleccionar]
'---------------------------------------------------------------------------------------
' Module    : mLoadResFont
' Author    : Cobein
' Date      : 28/10/2011
' Purpose   : Load font from resource
'---------------------------------------------------------------------------------------
Option Explicit

Private Declare Function LoadResource Lib "kernel32.dll" (ByVal hInstance As Long, ByVal hResInfo As Long) As Long
Private Declare Function FindResource Lib "kernel32.dll" Alias "FindResourceA" (ByVal hInstance As Long, ByVal lpName As String, ByVal lpType As String) As Long
Private Declare Function SizeofResource Lib "kernel32.dll" (ByVal hInstance As Long, ByVal hResInfo As Long) As Long
Private Declare Function AddFontMemResourceEx Lib "gdi32.dll" (ByVal pvoid As Long, ByVal dword As Long, ByVal DESIGNVECTOR As Long, ByVal pDword As Long) As Long
Private Declare Function CreateFont Lib "gdi32.dll" Alias "CreateFontA" (ByVal pbFont As Long, ByVal cbFont As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long

Public Function LoadResourceFont(ByVal sFontName As String) As Long
    Dim lResource   As Long
    Dim lAddress    As Long
    Dim lSize       As Long
    Dim lCount      As Long
   
    On Error GoTo LoadResourceFont_Error

    lResource = FindResource(App.hInstance, sFontName, "TTF") 'Im using TTF with XN resource Editor but you can use RT_FONT
    lAddress = LoadResource(App.hInstance, lResource)
    lSize = SizeofResource(App.hInstance, lResource)
    LoadResourceFont = AddFontMemResourceEx(lAddress, lSize, ByVal 0&, VarPtr(lCount))
   
    On Error GoTo 0
    Exit Function

LoadResourceFont_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure LoadResourceFont of Módulo mLoadResFont"
End Function

5
Visual Basic 6 / MOVIDO: CONTROL DE CIBER(XTREME)
« en: Julio 14, 2014, 04:13:01 pm »

6
Son los tres puntos al final de la palabra cuando esta no entra en el area visible del control.

7
General / Re:1ra Juntada de Old School Vb6
« en: Junio 23, 2014, 07:57:56 am »
La verdad sorprendió con la comida. Tendríamos que hacer reuniones más seguido :P

8
Visual Basic 6 / Re:Algun ejemplo sencillo de SQLite
« en: Junio 06, 2014, 08:18:34 am »
En la clase cSQLite modifiquen los siguiente a ver si lo soluciona.

Código: [Seleccionar]
Private Sub Class_Initialize()
    Call sqlite3_init(App.Path & "\")
End Sub

10
Visual Basic 6 / Re:VBAccelerator's Scrollbar class issue
« en: Abril 28, 2014, 11:49:41 am »
Jen, vbaccelerator have a full picturebox scroll example  on its site.

http://www.vbaccelerator.com/home/VB/Code/Controls/Scroll_Bars/article.asp

11
Visual Basic 6 / Re:Recursion para poblar un treeview
« en: Abril 17, 2014, 05:33:13 pm »
Código: [Seleccionar]
Private Sub Form_Load()

    AddNodes "HKCU\AppEvents\Schemes"
    AddNodes "HKCU\AppEvents\Schemes\Apps\.Default\Close\.Current"
    AddNodes "HKCU\AppEvents\Schemes\Apps\.Default"
    AddNodes "HKCU\AppEvents\Schemes\Apps\.Default\AppGPFault\.Current"
    AddNodes "HKCU\AppEvents\Schemes\Apps\.Default\.Default\.Current"
End Sub

Private Sub AddNodes(ByVal sData As String)
    Dim cColl As Collection
    Set cColl = SplitItems(sData)
    Insert cColl, Nothing
End Sub

Private Function Insert(ByVal cItems As Collection, ByVal objParent As Node)
    Dim objNode As Node
   
    If Not cItems.Count = 0 Then

        If objParent Is Nothing Then
       
            For Each objNode In TreeView1.Nodes
                If objNode.Text = cItems.Item(1) Then
                    Set objParent = objNode
                    cItems.Remove 1
                    Insert cItems, objParent
                    Exit Function
                End If
            Next
       
            Set objParent = TreeView1.Nodes.Add(Text:=cItems.Item(1))
            cItems.Remove 1
            Insert cItems, objParent
   
        Else
       
            For Each objNode In TreeView1.Nodes
                If objNode.Text = cItems.Item(1) Then
                    If objNode.Parent = objParent Then
                        Set objParent = objNode
                        cItems.Remove 1
                        Insert cItems, objParent
                        Exit Function
                    End If
                End If
            Next
       
            Set objParent = TreeView1.Nodes.Add(objParent, tvwChild, Text:=cItems.Item(1))
            cItems.Remove 1
            Insert cItems, objParent
        End If
    End If
End Function

Private Function SplitItems(sData As String) As Collection
    Dim svItems() As String
    Dim i As Long
   
    Set SplitItems = New Collection
    svItems = Split(sData, "\")
    For i = 0 To UBound(svItems)
        SplitItems.Add svItems(i)
    Next
   
End Function

12
Visual Basic 6 / Re:Reporteador como para que Edite el Cliente.
« en: Marzo 28, 2014, 09:34:34 am »
Adjunto el ejemplo de lo que utilizo.

Código: [Seleccionar]
{
Settings:{
Printer:'LX-300 Cheques'    <-Impresora que vamos a utilizar
Font:{FontName: 'Times New Roman',FontSize: 10}, <- Fuente
CustomPaper:{Width: 180, Height:75, Name: 'Cheque'}, <- Formato de papel
Offset:{PosX:0,PosY:0} <- Offset general
}
Lines:{
MONTO:{PosX:645,PosY:5}, <- Pos de cada una de las etiquetas
SUCURSAL:{PosX:440,PosY:43},
DD:{PosX:580,PosY:43},
MM:{PosX:640,PosY:43},
YY:{PosX:780,PosY:43},
CHEQUEANOM:{PosX:200,PosY:65},
IMPORTE1:{PosX:200,PosY:87},
IMPORTE2:{PosX:50,PosY:111}
}
}

esto puede ser un poco complejo para algunos usuarios pero una versión simplificada tendría que funcionar sin problemas.

Saludos

13
Visual Basic 6 / Re:Reporteador como para que Edite el Cliente.
« en: Marzo 27, 2014, 05:10:51 pm »
Yo resolví un problema similar usando un archivo de configuración, donde indico la posición de cada una de las "etiquetas" que componen el documento.

Ej:
   Total_x=10
   Total_y=20

Saludos

14
Visual Basic 6 / Re:Visual Studio sp6 - Datareport horizontal
« en: Febrero 18, 2014, 12:19:08 pm »
Hay que tener en cuenta que hay varias versiones del SP 6

15
Códigos - Aportes - Recursos / [SRC] DirChangeNotify
« en: Febrero 11, 2014, 01:18:51 pm »
Hice un pequeño ejemplo de como loguear cambios en carpetas y archivos usando el api ReadDirectoryChangesW en modo bloqueante con ayuda del codigo que publico el Coco (clsThreadedApiCall) en el dia de ayer.

Esta clase se puede utilizar por ejemplo para replicar el comportamiento de Notepad ++ que avisa si alguno de los archivos abiertos fue modificado externamente por ejemplo.

Edito: Otro uso podría ser por ejemplo al mostrar contenido de un directorio, si este se modifica poder actualizar la vista en nuestra aplicación.

https://dl.dropboxusercontent.com/u/43394978/DirChangeNotify.zip

Saludos

Páginas: [1] 2 3 4 5 6 ... 24