Re: unrardll referencing problem - Visual Basic Discussion Boards

sGrid2: Stop Resizing the Header when Column Width is out of range of Max width or Min Width

VBAdvisor1-Apr-09 15:42

1-Apr-09 15:42

Can you tell me how to Stop Resizing the VBAccelerator’s sGrid2 http://www.vbaccelerator.com/home/VB/Code/Controls/S_Grid_2/index.asp[^] Header when Column Width is out of range of Max width or Min Width?

When reaching the boundary of Max or Min Column Width, mouse don’t allow to move further to over the limits. I am trying to sendMessage when reach the end point but doesn’t work.

I can’t use bHandled = True when reaching the boundary, it will cancel the resizing action. I want to STOP resizing and mouse don’t allow to move further when reaching the boundary.

If lHDI(1) < m_lMinWidth(tHDN.iItem) And Not m_lMinWidth(tHDN.iItem) = -1 Then
lReturn = 1
bHandled = True
End If
If lHDI(1) > m_lMaxWidth(tHDN.iItem) And Not m_lMaxWidth(tHDN.iItem) = -1 Then
lReturn = 1
bHandled = True
End If
RaiseEvent StartColumnWidthChange(tHDN.iItem, lHDI(1), bCancel)
If bCancel Then
lReturn = 1
bHandled = True
End If

Here are the sGrid2 clsHeaderControl Subclass Code:

Private Sub myWndProc(ByVal bBefore As Boolean, _
                      ByRef bHandled As Boolean, _
                      ByRef lReturn As Long, _
                      ByVal lng_hWnd As Long, _
                      ByVal uMsg As Long, _
                      ByVal wParam As Long, _
                      ByVal lParam As Long, _
                      ByRef lParamUser As Long)
 
Dim tNMH                        As NMHDR
Dim tHDN                        As NMHEADER
Dim lHDI()                      As Long
Dim bCancel                     As Boolean
Dim bForceManualDragDrop        As Boolean
Dim sFilter                     As String
Dim sx                          As Single
Dim sy                          As Single
Dim tP                          As POINTAPI
Dim tGRedraw                    As NMLVCUSTOMDRAW
 
    Select Case lParamUser
    Case exParentWindows
        Select Case uMsg
        Case &H4E 'WM_NOTIFY
            CopyMemory tNMH, ByVal lParam, LenB(tNMH)
            Select Case tNMH.code
            Case HDN_BEGINTRACKA, HDN_BEGINTRACKW
                CopyMemory tHDN, ByVal lParam, Len(tHDN)
                '/* Get HD_ITEM from tHDN.lPtrHDItem.  Don't use a HD_ITEM
                '/* structure - you will crash...
                '/* Here we only need up to the second long (HD_ITEM.cxy)
                ReDim lHDI(0 To 1) As Long
                CopyMemory lHDI(0), ByVal tHDN.lPtrHDItem, 8
                '/* Check if this column is grouped:
                If m_bAllowGrouping Then
                    If ColumnIsGrouped(tHDN.iItem) Then
                        '/* Don't allow it to be sized
                        lReturn = 1
                        bHandled = True
                        Exit Sub
                    End If
                End If
                
                If lHDI(1) < m_lMinWidth(tHDN.iItem) And Not m_lMinWidth(tHDN.iItem) = -1 Then
                  ‘ <big>do something???</big>
                End If
                If lHDI(1) > m_lMaxWidth(tHDN.iItem) And Not m_lMaxWidth(tHDN.iItem) = -1 Then
                   ‘ <big>do something???</big>
                End If
                   RaiseEvent StartColumnWidthChange(tHDN.iItem, lHDI(1), bCancel)
                If bCancel Then
                    lReturn = 1
                    bHandled = True
                End If
 
            Case HDN_TRACKA, HDN_TRACKW
                CopyMemory tHDN, ByVal lParam, LenB(tHDN)
                '/* Get HD_ITEM from tHDN.lPtrHDItem.  Don't use a HD_ITEM
                '/* structure - you will crash...
                '/* Here we only need up to the second long (HD_ITEM.cxy)
                ReDim lHDI(0 To 1) As Long
                CopyMemory lHDI(0), ByVal tHDN.lPtrHDItem, 8
                If lHDI(1) < m_lMinWidth(tHDN.iItem) And Not m_lMinWidth(tHDN.iItem) = -1 Then
                  ‘ <big>do something???</big>
                End If
                If lHDI(1) > m_lMaxWidth(tHDN.iItem) And Not m_lMaxWidth(tHDN.iItem) = -1 Then
                  ‘ <big>do something???</big>
                End If
                RaiseEvent ColumnWidthChanging(tHDN.iItem, lHDI(1), bCancel)
                If bCancel Then
                    lReturn = 1
                    bHandled = True
                End If
                                
            Case HDN_ENDTRACKA, HDN_ENDTRACKW
                lReturn = m_NGSubclass.ssc_CallOrigWndProc(lng_hWnd, uMsg, wParam, lParam)
                CopyMemory tHDN, ByVal lParam, LenB(tHDN)
                If m_bAllowGrouping Then
                    If ColumnIsGrouped(tHDN.iItem) Then
                        '/* No events
                        Exit Sub
                    End If
                End If
                '/* Get HD_ITEM from tHDN.lPtrHDItem.  Don't use a HD_ITEM
                '/* structure - you will crash...
                '/* Here we only need up to the second long (HD_ITEM.cxy)
                ReDim lHDI(0 To 1) As Long
                CopyMemory lHDI(0), ByVal tHDN.lPtrHDItem, 8
                m_lCol = tHDN.iItem
                m_lCXY = lHDI(1)
                RaiseEvent ColumnWidthChanged(tHDN.iItem, lHDI(1))
                m_lCol = -1
                                
            Case HDN_DIVIDERDBLCLICKA, HDN_DIVIDERDBLCLICKW
                CopyMemory tHDN, ByVal lParam, LenB(tHDN)
                RaiseEvent DividerDblClick(tHDN.iItem, m_bFixedWidth(tHDN.iItem)) '// bFixedWidth option
                
            Case HDN_ITEMCLICKA, HDN_ITEMCLICKW
                CopyMemory tHDN, ByVal lParam, LenB(tHDN)
                RaiseEvent ColumnClick(tHDN.iItem, pvShiftState) '// for multi-Sorting function 27-dec-2007
               
            Case HDN_ITEMDBLCLICKA, HDN_ITEMDBLCLICKW
                CopyMemory tHDN, ByVal lParam, LenB(tHDN)
                RaiseEvent ColumnDblClick(tHDN.iItem)
 
            Case HDN_BEGINDRAG
                If m_bPreventDrag Then
                    lReturn = 1
                    bHandled = True
                Else
                    CopyMemory tHDN, ByVal lParam, LenB(tHDN)
                    RaiseEvent ColumnHeaderBeginDrag(tHDN.iItem, bCancel)
                    If bCancel Then
                        m_bPreventDrag = True
                        m_lCol = -1
                        lReturn = 1
                        bHandled = True
                    ElseIf (m_bAllowGrouping And Not (m_bHideGroupingBox)) Then
                        m_iDragCol = tHDN.iItem
                        PostMessage m_hWnd, UM_STARTDRAG, 0, 0
                        lReturn = 1
                        bHandled = True
                    End If
                End If
                       
            Case HDN_ENDDRAG
                  CopyMemory tHDN, ByVal lParam, LenB(tHDN)
                   '/* Get HD_ITEM from tHDN.lPtrHDItem.  Don't use a HD_ITEM
                   '/* structure - you will crash...
                   '/* Here we only need up to the ninth long (HD_ITEM.iOrder)
                   ReDim lHDI(0 To 8) As Long
                   CopyMemory lHDI(0), ByVal tHDN.lPtrHDItem, 36
                   SendMessage m_hWnd, &H200, 0, &H7FFF7FFF  '//Zhu reset dragged state by sending a WM_MouseMove event before RaiseEvent
                   RaiseEvent ColumnHeaderEndDrag(tHDN.iItem, lHDI(8), bCancel)  '// added bCancel on 10-jan-2008
                   If (bCancel) Then
                      lReturn = 1
                      bHandled = True  'Prevent Drop
                  Else
                    lReturn = m_NGSubclass.ssc_CallOrigWndProc(lng_hWnd, uMsg, wParam, lParam)
                    'CopyMemory tHDN, ByVal lParam, LenB(tHDN)
                    '/* Get HD_ITEM from tHDN.lPtrHDItem.  Don't use a HD_ITEM
                    '/* structure - you will crash...
                    '/* Here we only need up to the ninth long (HD_ITEM.iOrder)
                    'ReDim lHDI(0 To 8) As Long
                   'CopyMemory lHDI(0), ByVal tHDN.lPtrHDItem, 36
                   '/* Check for cancel:
                      If lHDI(8) > -1 Then
                         m_lCol = -1
                         PostMessage m_hWnd, UM_ENDDRAG, tHDN.iItem, lHDI(8)
                      End If
                   End If
                   m_lCol = -1
 
            Case HDN_FILTERBTNCLICK
                '/* Get NMHDFILTERBTNCLICK.  Only require NMHDR + 1
                CopyMemory tHDN, ByVal lParam, 16
                RaiseEvent ColumnFilterClick(tHDN.iItem)
 
            Case HDN_FILTERCHANGE
                '/* Filter change.  Don't get details of the item in
                '/* this event, so need to call GetItem..
                CopyMemory tHDN, ByVal lParam, LenB(tHDN)
                sFilter = ColumnFilter(tHDN.iItem)
                RaiseEvent ColumnFilterChange(tHDN.iItem, sFilter)
 
            Case NM_RCLICK
                '/* Right click in control
                GetCursorPos tP
                ScreenToClient m_hWnd, tP
                sx = tP.x
                sy = tP.y + m_tR.top
                RaiseEvent RightClick(sx, sy)
 
            Case NM_RELEASEDCAPTURE
                '/* End of stop dragging mode:
                m_bPreventDrag = False
                
                '/*** added
            Case NM_CUSTOMDRAW
                CopyMemory tGRedraw, ByVal lParam, Len(tGRedraw)
                If tGRedraw.nmcmd.dwDrawStage = CDDS_PREPAINT Then
                    lReturn = CDRF_NOTIFYITEMDRAW
                    bHandled = True
                    Exit Sub
                End If
 
                If tGRedraw.nmcmd.dwDrawStage = CDDS_ITEMPREPAINT Then
                    SetTextColor tGRedraw.nmcmd.hDC, m_oHdrTextClr
                    SetBkColor tGRedraw.nmcmd.hDC, m_oHdrBkClr
                Else
                    lReturn = CDRF_DODEFAULT
                    bHandled = True
                    Exit Sub
                End If
 
                If tGRedraw.nmcmd.dwDrawStage = CDDS_ITEMPOSTPAINT Then
                    lReturn = CDRF_DODEFAULT
                    bHandled = True
                    Exit Sub
                End If
            End Select
        End Select
End Sub

Re: sGrid2: Stop Resizing the Header when Column Width is out of range of Max width or Min Width

VBAdvisor1-Apr-09 20:49

VBAdvisor

1-Apr-09 20:49

ClipCursorRect API works. Laugh | :laugh:

A tip at here.

http://www.vbaccelerator.com/home/vb/Tips/Restrict_Mouse_Movement/article.asp[^]

Re: sGrid2: Stop Resizing the Header when Column Width is out of range of Max width or Min Width

VBAdvisor4-Apr-09 13:46

VBAdvisor

4-Apr-09 13:46

When I am dragging a column divider,sysheader32 will issue HDN_TRACK Notification.But the interval of this notification (column width changing) is not by 1 pixels step . How to get notification by 1 pixel changing?
I want to implement ColMaxWidth and ColMinWidth property into vbaccelerator’s sGrid2.
When I am dragging the divider of a column, the column will stop resizing when column width is reaching the colmaxwidth or colminwidth boundary.
I am checking the mouse position or lWidth in sub m_cHeader_ColumnWidthChanging,if Column Width is reaching the colmaxwidth or colminwidth boundary,then I use ClipCursor API to restrict mouse movement. But the problem is that Header's HDN_TRACK notification is not being sent by 1 pixes change . When I got the notification,the column width has been changed by more than 1 pixels.That is why I can't control the column width accurately. e.g. the Max. Column width is set to 100,The min. Column Width is 50,But somehow,the Column width is going to 48 or 102,not the exact 50 or 100 while resizing.

in Header Class,I am Subclassing those related notifications:

Case HDN_TRACKA, HDN_TRACKW
                CopyMemory tHDN, ByVal lParam, LenB(tHDN)
                '/* Get HD_ITEM from tHDN.lPtrHDItem.  Don't use a HD_ITEM
                '/* structure - you will crash...
                '/* Here we only need up to the second long (HD_ITEM.cxy)
                ReDim lHDI(0 To 1) As Long
                CopyMemory lHDI(0), ByVal tHDN.lPtrHDItem, 8
                RaiseEvent ColumnWidthChanging(tHDN.iItem, lHDI(1), bCancel)
                If bCancel Then
                    lReturn = 1
                    bHandled = True
                End If

Private Sub m_cHeader_ColumnWidthChanging(ByVal lColumn As Long, _
                                          lWidth As Long, _
                                          bCancel As Boolean)

Dim iCol    As Long
Dim iIntCol As Long
Dim tR      As RECT
Dim tClipRect     As RECT
Dim iCurrentCol As Long

    For iCol = 1 To m_iCols
        If (m_tCols(iCol).lHeaderColIndex = lColumn + 1) Then
            iCurrentCol = iCol
        End If
    Next

    If Not m_tCols(iCurrentCol).lMaxWidth = -1 Then
         If lWidth > m_tCols(iCurrentCol).lMaxWidth Then
             ClipCursorRect tClipRect
         End If
    End If
    If Not m_tCols(iCurrentCol).lMinWidth = -1 Then
         If lWidth < m_tCols(iCurrentCol).lMinWidth Then
             ClipCursorRect tClipRect
         End If
    End If
   
    pGetDragImageRect lColumn, lWidth, tR, False
    DrawDragImage tR, False, False
    RaiseEvent ColumnWidthChanging(lColumn, lWidth, bCancel)
    If bCancel Then
        DrawDragImage tR, False, True
    End If
  
End Sub

Private Sub pGerClipColRect(ByVal lCol As Long, _
                                   ByVal lMaxWidth As Long, _
                                   ByVal lMinWidth As Long, _
                                   ByRef tR As RECT)

Dim iCol  As Long
Dim iGCol As Long
Dim tP    As POINTAPI

'/* Find RECT for header column with Max and Min Width to stop sizing when out of boundary:

    If lCol > 0 Then
        '/* Add the width:

        If Not m_tCols(lCol).lMinWidth = -1 Then
            tR.left = m_tCols(lCol).lStartX + m_tCols(lCol).lMinWidth
        Else
            tR.left = m_tCols(lCol).lStartX
        End If
       
        If Not m_tCols(lCol).lMaxWidth = -1 Then
            tR.right = m_tCols(lCol).lStartX + m_tCols(lCol).lMaxWidth
        Else
            tR.right = m_tCols(lCol).lStartX
        End If
       
        With tR
            .left = .left - m_lStartX
            .top = 0   'start from top of usercontrol 'm_cHeader.Height + m_cHeader.top
            .bottom = UserControl.ScaleHeight \ Screen.TwipsPerPixelY
            '/* Return the rectangle relative to the screen:
            tP.x = .left
            tP.y = .top
        End With

        '//Return the rectangle left and top relative to the screen:
        ClientToScreen UserControl.hwnd, tP
        With tR
            .left = tP.x
            .top = tP.y
            tP.x = .right
            tP.y = .bottom
        End With

        '//Return the rectangle right and bottom relative to the screen:
        ClientToScreen UserControl.hwnd, tP
        tR.right = tP.x
        tR.bottom = tP.y
    End If

End Sub

[Chinese]当拖动Header的分界线时候，会发出HDN_TRACK消息（Notification)。问题是HDN_TRACK消息的发出间隔不是1 pixels by 1 pixels,可能多过一个Pixels.请问要用什么办法可以获得sysheader32的Column每改变1 pixels消息？

How to read the public class name into a string

C#Coudou1-Apr-09 14:23

C#Coudou

1-Apr-09 14:23

mates,

how to read the name of a public class.
example.
Public Class frmEntry

i want to put the name frmEntry in my log.txt using log4net.
in log.txt.
what i did in c#.net

private void Page_Load(object sender, System.EventArgs e)
{
log.debug(typeof(frmEntry) +"【Page_Load】*************[Start]")
}

what is equivalent in vb.net

Private Sub frmEntry_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
log.debug(Me.ToString & "【frmEntry_Load】*************[Start]")
EndSub

typeof(frmEntry) in vb.net???? TypeOf(Me) will not work.

C# コードMicrosoft End User
2000-2008

「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」

Re: How to read the public class name into a string

Tom Deketelaere1-Apr-09 21:07

Tom Deketelaere

1-Apr-09 21:07

C#Coudou wrote:
typeof(frmEntry)

GetType(frmEntry).ToString

unrardll referencing problem

vaughan5121-Apr-09 11:07

vaughan512

1-Apr-09 11:07

Hi all

I'm new here and new to VB.Net 2008, so forgive my naivety...

I am trying to read the contents of .cbr and .cbz files.

Searching the net I have found UnRARdll.exe but when I try to add the reference in Visual Studio 2008 (VB) it won't accept the DLL as a valid reference.

Any ideas on what I am doing wrong or what I should be using?

I have also ssen the declaration 'imports RARNET' but I can't work out how to find the reference either.

Any help much appreciated. Many thanks in advance...

Re: unrardll referencing problem

Dave Kreskowiak2-Apr-09 5:39

Dave Kreskowiak

2-Apr-09 5:39

You can only set a reference to a .NET or COM-based .DLL. Since the reference won't go, you're trying to set one on a normal library .DLL. The only way to get at the functions of a library .DLL is to use P/Invoke. But, in order to do that, you need the documentation on the functions in the .DLL. Wihtout it, you're just guessing at the parameters you have to setup for each function.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Re: unrardll referencing problem

vaughan5122-Apr-09 22:29

vaughan512

2-Apr-09 22:29

Dave, many thanks I'll try a work around...

EnsureVisible in TreeView: how to ensure that horiz. scrollbar is aligned left

mp00011-Apr-09 10:45

mp0001

1-Apr-09 10:45

Hi group,

I have a tree view with eg. following nodes

# People
|
+--# Custumers
     |
     +-- # Anne Charles, Hillroad 14, 7766 MyTown, My Country
     |
     +-- # Steve Jones, Forestroad 12, 7766 MyTown, My Country

With the command

Me.treeViewM.Nodes(0).Nodes(0).Nodes(0).EnsureVisible()

I can ensure that "Anne Charles" is visible within the treeview. My problem is: If the treeview is not wide enough to show the complete node text of this node, the horizontal scroll bar is automatically moved to the right so that node structure shown left from the "A" in the text "Anne Charles" is not visible any more. Thus

Anne Charles, Hillroad 14, 7766 MyTown, My Country

Steve Jones, Forestroad 12, 7766 MyTown, My Country

is visible and the node structure is hidden.

Question: How can I ensure that the node "Anne Charles" is visible and also the horizontal scrollbar is aligned to the left, which means that the node structure left from the text is still visible?

Best wishes
Michael

[Visual Basic .net 2005]

Re: EnsureVisible in TreeView: how to ensure that horiz. scrollbar is aligned left [modified]

Henry Minute1-Apr-09 12:41

Henry Minute

1-Apr-09 12:41

Take a look at this[^]. One of the responses claims to do the trick. Unfortunately the code is C#, but have a look, you may be able to convert it yourself, but if not I'm sure that someone here will be able to help you out.

I have also found this snippet:

SendMessage(treeView.Handle, WM_HSCROLL, SB_LEFT, 0);

This also uses the Windows API, I don't think it is possible without doing that, but there's plenty on the web about the SendMessage API call, you will also need to look up the values for the WM_HSCROLL and SB_LEFT constants.

Good luck! Smile | :)

Henry Minute

Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”

modified on Wednesday, April 1, 2009 6:58 PM

Re: EnsureVisible in TreeView: how to ensure that horiz. scrollbar is aligned left

mp00017-Apr-09 5:31

mp0001

7-Apr-09 5:31

thanks for your hints.

I've found the explanations on

[^]

It solved my problem.

best wishes
Michael

Database + listbox with image or icon example

wgarnett1-Apr-09 5:53

wgarnett

1-Apr-09 5:53

hi .... everybody

who can give me example of Database + listbox with image or icon

the icon and image within listbox can be checked by people and give the result of database query

garnett

Re: Database + listbox with image or icon example

Henry Minute1-Apr-09 10:35

Henry Minute

1-Apr-09 10:35

If memory serves, QuickBooks used to use that technique.
Hope this helps. Smile | :)

Re: Database + listbox with image or icon example

wgarnett1-Apr-09 15:24

wgarnett

1-Apr-09 15:24

I can use VB.Net or C# .... just what I want
I now estimate the method
please don't post the reply answer of no help

garnett

Re: CROSSPOST DO NOT REPLY!!

Henry Minute2-Apr-09 11:32

Henry Minute

2-Apr-09 11:32

This guy has posted the same request in more than one forum.
I have asked him to remove one, and explained the reasons that he should.

He appears not to want to.

Re: CROSSPOST DO NOT REPLY!!

wgarnett2-Apr-09 16:40

wgarnett

2-Apr-09 16:40

I just want to know C# or VB.Net method
so I post to two forum
and plz don't waste time to reply unuseful answer
I only want to know the method that how to do it

garnett

Re: CROSSPOST DO NOT REPLY!!

wgarnett3-Apr-09 21:00

wgarnett

3-Apr-09 21:00

I found the answer by myself, it uses component called "listbar"
I only want the answer like this , ok ?

garnett

vb.net dll and web page

rmedo1-Apr-09 1:09

rmedo

1-Apr-09 1:09

Hi all,

i have vb.net dll and i used this dll from webbage, i want this dll to display message box through webpage to the client ans open new page contains textbox to get input from user.
please i want urgant help in this point.

Thanks

Re: vb.net dll and web page

Tom Deketelaere1-Apr-09 1:47

Tom Deketelaere

1-Apr-09 1:47

Several things wrong with your post:

0: this is the VB.NET forum, your question is about webdevelopment so go to the ASP.NET forum : Correct forum[^] and ask there again

1: every question here is urgent, the people answering however don't get payed so you'll get an answer whenever you get it.

2: from what I can understand from your question, what you are trying to do isn't possible (as far as I know), but ask in the correct forum and people can make better suggestions

Re: vb.net dll and web page

rmedo1-Apr-09 1:50

rmedo

1-Apr-09 1:50

Thanks

Confirming the copying is success or not

jishbalan1-Apr-09 0:43

jishbalan

1-Apr-09 0:43

Hello friends,

I want to copy a file from one folder to another.

I am using File object.copy to copy the file from one folder to another. How can i make sure that the copy is success or not?

Thanks and regards
Jishith

Re: Confirming the copying is success or not

0x3c01-Apr-09 0:45

0x3c0

1-Apr-09 0:45

If it succeeds, no exception will be thrown, and File.Exists(destination) will return true

Count Similar Lines

vijay248231-Mar-09 21:39

vijay2482

31-Mar-09 21:39

I have a text file that has similar lines..;
i want to count those similar lines and write it as 1 line with a new fieldname Quantity indicating the number of similar lines...
thanks in advance

Re: Count Similar Lines

Eddy Vluggen31-Mar-09 22:04

Eddy Vluggen

31-Mar-09 22:04

Import it in a database and do a SELECT DISTINCT Smile | :)

I are troll Smile | :)

Re: Count Similar Lines

Tom Deketelaere31-Mar-09 23:36

Tom Deketelaere

31-Mar-09 23:36

When handling text files and doing actions on them I always find its best to read the whole text file line by line into a datatable or array or list. Do your actions you need to do on that datatable / array / list and then overwrite the file with a new one.

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.