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

Páginas: [1]
1
Visual Basic 6 / Re:JGrid - Reemplazo a ListView
« en: Mayo 18, 2021, 01:28:35 pm »
Hola J. Elihu un gran saludo de mi parte y felicitarle por su aporte en código del Grid, lo que detecte son alguno errores por ejemplo al cargar regular cantidad de registros unos 20 000 hay un leve demora y parpadeo al maximizar o minimizar el formulario que lo contiene también al momento de ordenar en forma alfabética ya sea ascendente o descendente no lo ordena adecuadamente con pequeños registros si, pero con grandes registros no, algunas mejoras también se podría implementar como por ejemplo un ExtendedLastCol, una imagen de flecha en la parte del Header que me indique si esta ordenado en forma ascendente o descendente y otros como los del link que le dejo con algunos ejemplos que se podría implementar para mejorar muchísimo el control: https://mega.nz/folder/oR83nSJA#CGR9jWKeAa3XrU2GudSAKA

Sin mas que agradecerte por todo el sacrificio en bien de nuestra comunidad de foros, muchas gracias

2
Hola saludos, J. Elihu, una pregunta crees que podrias por favor acondicionar este control: https://github.com/Kr00l/VBFLXGRD

Se le puede agregar propiedades como:

1.- Ordenar en forma ascendente y descendente al hacer click en el encabezado de la columna.
2.- Agregar un Extendedlastcol similar al de VsFlexgrid8.
3.- Agregar alguna función para que el grid en tiempo de ejecucion o de diseño adquiera el thema de de Windows sin importar la versión.
4.- Que la fila seleccionado sea al estilo Windows 7. como en el caso de JGrid2020.

Muchas gracias caballero, agradecería y apreciaría su gran ayuda

3
Realmente indigna personas que se quieran pasar de listos, esta cuenta yo publique para que otras persona pueden usar los archivos, no para que algún sapo cambien la contraseña y el correo personas así son indignantes por que yo también necesito esos archivos, por favor el que lo hice devuelva mi cuenta por favor.

4
Hola en este link les dejo muy buenos controles como gigasoft, teechart, Lynxgrid con este ultimo parece que falta seguir mejorando en su codigo para que sea super dinamico, manejable, alho parecido al flexgrid de vb 6.0 si alguien lo mejorar en su rapidez de carga y otros estaria excelente

es: 4shared.com
usuario: bflnegocios@hotmail.com
clave: 4shared105
si hacen demos o ejemplos lo publican por favor y si alguien tiene el control iGrid ultima version podria publicarlo
ademas alguien si tiene aun el archivo : UcTextBoxDate le estaría agradecido.
sin mas gracias

5
Visual Basic 6 / Chart - Gigasoft
« en: Abril 03, 2020, 01:48:49 pm »

Buenas tardes por favor si alguien podría apoyarme con esto:
lo que que deseo es cargar mediante conexión Ado, un conjunto de registros a una imagen Chart de Gigasoft. a la vez que me agrupe, los tipos de cobros por la venta(tarjeta, efectivo, etc), también por mes y año según el rango ingresado en DatePicker1 hasta DatePiker2.

la conexion que uso actualmente es:

'{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{
Public Sub CreateSimpleGraph2()

   '//! Right button click to show popup menu. //
   '//! Double Click to show customization dialog. //
   '//! Left-Click and drag to draw zoom box. Use popup memu or 'z' to undo zoom. //

   '// Simple example show the basics of a graph object. //
   '// Graph's generally only contain YData because we assume
   '// data is plotted equally spaced left to right.
Dim Meses As Integer
   
    Dim S As Long
    Dim p As Long
Dim sql3 As String
Dim Rs3 As ADODB.Recordset

Dim strDesde As String
Dim strHasta As String
strDesde = "#" & Format(DTPInicio, "mm/dd/yyyy") & "#"
strHasta = "#" & Format(DTPFinal, "mm/dd/yyyy") & "#"

'If Rs.State = 1 Then Rs.Close
 Meses = DateDiff("m", DTPInicio, DTPFinal)

'Dim db As Database
'Dim MyRS As DAO.Recordset
'Dim MySQL As String
'MySQL = "select Field1, Field2, Field3 from Table1"
'Set db = CurrentDb()
'Set MyRS = db.OpenRecordset(MySQL)
''''''''''''
sql3 = "SELECT FORMADEPAGOVenta, year(FECHAVENTA) as Año , SUM(MONTOTOTALVENTA)as ventas , format(FechaVenta,'mmmm') as MES FROM DATOSVENTAFACTURA WHERE FECHAVENTA BETWEEN" & strDesde & " AND " & strHasta & _
         " GROUP BY FORMADEPAGOVenta,year(FECHAVENTA),format(FechaVenta,'mmmm');"
'sql = "SELECT * FROM PBG WHERE (Date < CDbl(CDate('6/6/1999'))) ; "

    Set Rs3 = CreateObject("ADODB.Recordset")
    Rs3.Open sql3, ConexionVenta, 1, 1


    '// Enable Bar Glass Effect //
Pego2.SubsetByPoint = True

Rs3.MoveLast
Rs3.MoveFirst

Pego2.Subsets = Rs3.RecordCount '2
Pego2.Points = Meses + 1 '10000#




Dim SS As Integer

Pego2.MainTitle = "Hello World"
Pego2.SubTitle = ""

'''''''''
Dim nCount As Integer
Dim NCount1 As Integer
Do While (Rs3.EOF = False)
For SS = 0 To Rs3.RecordCount '2

Pego2.YData(0, nCount) = Rs3("VENTAS")

'Pego2.YData(nCount, SS) = Rs3("VENTAS")

Pego2.PointLabels(nCount) = Rs3("MES") & " - " & Rs3("Año")

Pego2.SubsetLabels(NCount1) = Rs3("FORMADEPAGOVenta") '"For .Net Framework"



Next SS 'NCount1

nCount = nCount + 1
NCount1 = NCount1 + 1

Rs3.MoveNext


Loop


Pego2.Points = Meses + 1
'Pego2.Points = nCount
'Dim nCont As Integer

'nCont = nCont + 1


Pego2.PEactions = 0


Pego2.YAxisLabel = "Simple Quality Rendering"
'Pego2.SubsetColors(0) = Pego2.PEargb(60, 0, 180, 0)
'Pego2.SubsetColors(1) = Pego2.PEargb(180, 0, 0, 130)
Pego2.BitmapGradientMode = True
Pego2.QuickStyle = PEQS_LIGHT_SHADOW
Pego2.DeskColor = Pego2.PEargb(255, 255, 255, 255)
Pego2.GraphPlusTable = PEGPT_BOTH
Pego2.DataPrecision = PEDP_TWODECIMALS
Pego2.LabelBold = True
Pego2.PlottingMethod = GPM_BAR
Pego2.GradientBars = 8
Pego2.BarGlassEffect = True
Pego2.LegendLocation = PELL_RIGHT ' PELL_LEFT
Pego2.DataShadows = PEDS_3D
Pego2.FontSize = PEFS_LARGE
Pego2.PrepareImages = True
Pego2.CacheBmp = True
Pego2.RenderEngine = PERE_DIRECT2D
Pego2.AntiAliasGraphics = True
Pego2.AntiAliasText = True
Pego2.AllowDataHotSpots = True
Pego2.PEactions = REINITIALIZE_RESETIMAGE


Rs3.Close
Set Rs3 = Nothing

End Sub

Similar a la imagen
Muchas Gracias

gigasoft:
https://downloadly.ir/software/programming/proessentials/

Páginas: [1]