API For changing width/height of msflexgrid

[Murali]

Hi,

Can any one tell me how to change the width and height of msflexgrid ctrl using API calls.


Thanks
Murali

[Murali]

Hi
Thank u serge.It is working
Regards
Murali

[Serge]

Sure. Try this:

Option Explicit
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Private Sub Command1_Click()
    Dim rec As RECT
    Dim lHeight As Long
    Dim lWidth As Long
    
    Call GetClientRect(MSFlexGrid1.hwnd, rec)
    lWidth = rec.Right - rec.Left
    lHeight = rec.Bottom - rec.Top
    Call MoveWindow(MSFlexGrid1.hwnd, rec.Left, rec.Top, lWidth * 2, lHeight * 2, True)
End Sub

Regards,

------------------

Serge

Programmer Analyst
[email protected]
[email protected]
ICQ#: 51055819