sGrid2: Stop Resizing the Header when Column Width is out of range of Max width or Min Width - Visual Basic Discussion Boards

Re: Compare Two ListBoxes

DaveAuld1-Apr-09 21:24

DaveAuld

1-Apr-09 21:24

Do a for each compare and copy the dodgy item to listbox3

Dave
Who am I?: http://www.bebo.com/daveauld/

Re: Compare Two ListBoxes

kjalandoon1-Apr-09 21:42

kjalandoon

1-Apr-09 21:42

daveauld, thank you for your immediate response, can you give me a sample code for your suggestion?
Here is what my current code looks like:

Private Sub btnOpenCSV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenCSV.Click
    ofdOpenCSV.Filter = "All CSV Files|*.csv;"
    If ofdOpenCSV.ShowDialog() = Windows.Forms.DialogResult.OK Then
        Dim strPathString As String
        Dim strTestString As String = ""
        Dim strArrString As String()
        Dim strCSVRollNumber, strCSVRFIDNumber As String

        strPathString = ofdOpenCSV.FileName.ToString

        Dim myStream As System.IO.StreamReader
        myStream = File.OpenText(strPathString)
        Try
            While myStream.Peek() <> -1
                strTestString = myStream.ReadLine()
                strArrString = strTestString.Split(",")
                lstCSVListBox.Items.Add(strArrString(0).ToString & " :: " & strArrString(1).ToString)

            End While
        Catch ex As Exception

        End Try
        btnOpenCSV.Enabled = False
        lblCSVSuccesful.Text = "File has been loaded."

    End If
End Sub

Private Sub btnOpenAPI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenAPI.Click
    ofdOpenAPI.Filter = "All CSV Files|*.csv;"
    If ofdOpenAPI.ShowDialog() = Windows.Forms.DialogResult.OK Then
        Dim strPathString As String
        Dim strArrString As String()
        Dim strTestString As String = ""
        Dim strAPIRollNumber, strAPIRFIDNumber As String

        strPathString = ofdOpenAPI.FileName.ToString

        Dim myStream As System.IO.StreamReader
        myStream = File.OpenText(strPathString)
        Try
            While myStream.Peek() <> -1
                strTestString = myStream.ReadLine()
                strArrString = strTestString.Split(",")
                strAPIRollNumber = strArrString(1).ToString
                strAPIRFIDNumber = strArrString(2).ToString
                lstAPIListBox.Items.Add(strArrString(0).ToString & " :: " & strArrString(1).ToString)
            End While
        Catch ex As Exception

        End Try
        btnOpenAPI.Enabled = False
        lblAPISuccesful.Text = "File has been loaded."

    End If
End Sub

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

    'WHAT SHOULD I PUT HERE?

End Sub

Thanks again!

vb.net dataset object being exported and formatted in excel

jazzgirl1-Apr-09 17:13

jazzgirl

1-Apr-09 17:13

I am writing a Visual Basic.Net 2005 desktop application that exports data to individual excel 2003 spreadsheets in separate workbooks. (The data is written to separate workbooks since the workbooks are emailed to different customers.)

I am exporting all the data I want to the spreadsheets now. However, I would like to know how to do any of the following:
1. Put the column headers on to the top of each data column.
2. How to put report headers on the first 3 rows of each spreadsheet,
3. How to set the wraparound property one column in particular. I have one column that is varchar(500) and I want this column to wraparound.

Thanks!

serious problem need serious help Ö

udikantz1-Apr-09 16:42

udikantz

1-Apr-09 16:42

i am working on project which i developed for long time,
recently someone out in germany wanted to use my application,
so i made a few tests on my application on germany set regional info in windows )
then i found out they use a comma decimal separator which pretty much killed my application.

i never thought of that before , i have done some reading on the subject and a lot of people like the idea of CultureInfo.InvariantCulture. in every parsing or to string method in the application , how ever the project contains kazzillion lines of codes,
and i rather shoot my self then doing that.

i was looking for a way to set the, cultureinfo to en-us in the application level ,
found this example which didnt work for me:

<br />
CultureInfo myCulture = new CultureInfo("en-US");<br />
myCulture.DateTimeFormat.ShortDatePattern = "MM/dd/yyyy";<br />
Application.CurrentCulture = myCulture;<br />

also found that i can change it on a thread level which doesn't really help me.

please anyone with any tips or answer to how i can change the culture in application level , or any other alternative i would like to here , it would me alot thanks in advance!!!!!!!

Net

Re: serious problem need serious help Ö

Luc Pattyn2-Apr-09 5:08

Luc Pattyn

2-Apr-09 5:08

Hi,

AFAIK there is no way to fix the culture info for an entire app, you can only set it on the thread level using Application.CurrentCulture or Thread.CurrentCulture. And there not being a way is an indication you are not expected to need it either...

Here are some guidelines:
- you should not fix the culture info on input/output intended for human consumption; the user chooses the culture through the Regional Settings control panel and all the apps should obey that choice.
- you should fix the culture info for culture-invariant data storage such as databases, allowing international cooperation on such data. ISO 8601 sets the standard for these.
- Since threads can be involved in both human I/O and database I/O you can't possibly have it all automatically. Hence the suggestion to keep the threads at the regional settings, so human I/O is fine, and explicitly code for culture-invariant I/O where appropriate.

FWIW: object orientation should prevent any detail to appear a kazzillion times whatever the size of the app is.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

- before you ask a question here, search CodeProject, then Google
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get
- use the code block button (PRE tags) to preserve formatting when showing multi-line code snippets

Re: serious problem need serious help Ö

Mehdi_S3-Sep-09 4:03

Mehdi_S

3-Sep-09 4:03

I basicly have the same problem:

I was trying to set the CurrentCulture of my application to en-US. I used the following source code:

System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US");
System.Threading.Thread.CurrentThread.CurrentUICulture = System.Threading.Thread.CurrentThread.CurrentCulture;

My solution consists in a HMI interface and a dll project. in the runtime mode, the HMI interface is set to en-US (had a label choing it each 1 second for test) but when executing things in the DLL project, I noticied that the CurrentCulture is getting back to fr-FR.

I read on the net that when creating threads, we have to change their CurrentCulture too but I'm not creating Threads. In other hands, I'm using delegates for the callbacks. Could they be the source of that?

For now, I'm forcing that by adding the 2 lines at the beginning of the procedure I'm using to get numeric input (which are using "." as separation). But this solution is not the best solution I guess.

Could anyone help me please?

Re: serious problem need serious help Ö

Luc Pattyn3-Sep-09 5:13

Luc Pattyn

3-Sep-09 5:13

You might not be creating threads explicitly and still be using threads, e.g. through the BackgroundWorker class or the ThreadPool class. And most asynchronous operations implicitly rely on the ThreadPool class, see my little article here[^].

Anyway, my previous reply remains valid. The only way out that I know of is by having each thread that works for you and needs your culture setting, to start with its culture getting set. Which means you might need that in your DataReceived handler of your serial port, and all the other asynchronous handlers you might have.

BTW: assuming changing the culture takes some time, you'd better add some flags so it gets set only once per thread.

Smile | :)

Luc Pattyn

Badger | [badger,badger,badger,badger...]

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

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

VBAdvisor1-Apr-09 15:42

VBAdvisor

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

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