Como manejar Estructuras en VFP

[ZeRoberto]

Tengo una funcion api llamada SetScrollInfo() y uno de los parametros es una estructura

 

CODIGO VB PARA PASAR A VFP

 

*/--- Constantes

Const SBS_HORZ = 0
Const SBS_VERT = 1
Private Const SIF_RANGE = &H1
Private Const SIF_PAGE = &H2
Private Const SIF_POS = &H4
Private Const SIF_DISABLENOSCROLL = &H8
Private Const SIF_TRACKPOS = &H10
Private Const SIF_ALL = (SIF_RANGE Or SIF_PAGE Or SIF_POS Or SIF_TRACKPOS)

 

*/--- Estructura

Public Structure SCROLLINFO
        Public cbSize As Integer
        Public fMask As Integer
        Public nMin As Integer
        Public nMax As Integer
        Public nPage As Integer
        Public nPos As Integer
        Public nTrackPos As Integer
End Structure

 

*/--- Funciones api

Declare Function GetScrollInfo IN "user32.dll" Integer hWnd, Integer nBar, SCROLLINFO lpScrollInfo
Declare Function SetScrollInfo Lib "user32.dll" Integer hWnd, Integer nBar, SCROLLINFO lpScrollInfo, Boolean fRedraw

 

*/--- Codigo

Private Sub rtb1_VScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles rtb1.VScroll
        Dim SInfo As New SCROLLINFO
        SInfo.cbSize = SizeOf(SInfo)
        SInfo.fMask = SIF_ALL
        GetScrollInfo(rtb1.Handle, SBS_VERT, SInfo)
        SetScrollInfo(pNumber.Handle, SBS_VERT, SInfo, True)
End Sub

 

 

Saludos

[Marco Plaza]

Aqui puedes ver todo sobre como se manejan las estructuras usando vfp:
http://www.news2news.com/vfp/?article=1

Saludos.

Marco.

[ZeRoberto]

Buen dato gracias Marco

 

Saludos

[Luis Maria Guayan]

Puedes descargar STRUCT.ZIP de Christof Lange (ahora Christof Wollenhaupt) que seguro te ayudará

http://www.foxite.com/downloads/default.aspx?id=3 

 

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com

Nada corre como un zorro
_________________________

2012/1/21 ZeRoberto <zero...@gmail.com>

[ZeRoberto]

Gracias Luis Maria lo probare

 

Saludos

2012/1/22 Luis Maria Guayan <luism...@gmail.com>