Solved

VB6 number of the row dbclick

Posted on 2013-06-16
4
364 Views
Last Modified: 2013-06-16
Hello all

I have this macro below that transfer data into my form 8 when i double click in a specific cell in my MSHFlexgrid.

Now, i would like to add in a TEXT13 the row number from the grid.

Ex:

I f i double click in the 3rd row, it will put 3 in my TEXT13.

How can i do that?

Thanks again for your help



On Error GoTo handler
Form8.Show
Form8.Text0 = Trim(Form3.MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 3))
Form8.Text00 = Trim(Form3.MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4))
Form8.Text3 = Trim(Form3.MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 9))
Form8.Text4 = Trim(Form3.MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 11))
Form8.Text5 = Trim(Form3.MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 12))
Form8.Text6 = Trim(Form3.MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 13))
Form8.Text7 = Trim(Form3.MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 15))
Form8.Text8 = Trim(Form3.MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 16))
Form8.Text9 = Trim(Form3.MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 17))
Form8.Text10 = Trim(Form3.MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 20)) '
Form8.Text11 = Trim(Form3.MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 21))
Form8.Text12 = Trim(Form3.MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 23))

Exit Sub
handler:
MsgBox "Try again"

Open in new window

0
Comment
Question by:Wilder1626
  • 2
4 Comments
 
LVL 29

Expert Comment

by:Randy Downs
ID: 39251210
Try this

http://vbcity.com/forums/t/23153.aspx

Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

    Dim lngRow As Long
    Dim lngCol As Long
    Dim loop1 As Long
    Dim sngColRight As Single
    
    'make sure we're in column mode
    If ListView1.View = lvwReport Then
    
        'select the clicked row, using HitTest to return the clicked item
        Set ListView1.SelectedItem = ListView1.HitTest(30, y)
        'ensure that there is a row there
        If Not ListView1.SelectedItem Is Nothing Then
            'get the row number
            lngRow = ListView1.SelectedItem.Index
            
            'loop throught each column
            For loop1 = 1 To ListView1.ColumnHeaders.Count
                'add the column width to the value we're checking
                sngColRight = sngColRight + ListView1.ColumnHeaders(loop1).Width
                
                'if the X location is less the the total current column width
                If x <= sngColRight Then
                    'this is the column
                    lngCol = loop1
                    'exit the loop
                    Exit For
                End If
            Next
            
            
            'disply the information
            Label1.Caption = "Row = " & CStr(lngRow) & " Col = " & CStr(lngCol)
            
            'make sure that a row and column were found
            If lngRow <> 0 And lngCol <> 0 Then
                Label2.Caption = "Value clicked = "
                If lngCol = 1 Then
                    Label2.Caption = Label2.Caption & ListView1.SelectedItem.Text
                Else
                    Label2.Caption = Label2.Caption & ListView1.SelectedItem.SubItems(lngCol - 1)
                End If
            End If
        End If
    End If
End Sub

Open in new window

0
 
LVL 45

Accepted Solution

by:
Martin Liss earned 500 total points
ID: 39251357
Private Sub MSFlexGrid1_DblClick()
If MSFlexGrid1.Row = 2 Then
    Form8.Text12 = MSFlexGrid1.Row + 1
    ' Or just
    'Form8.Text12 = "3"
End If

End Sub

Open in new window

0
 
LVL 11

Author Closing Comment

by:Wilder1626
ID: 39251373
Hi,

this is perfect. Actually i will only use this and it work:
Form8.row_num = Form3.MSHFlexGrid1.Row

Thanks again
0
 
LVL 45

Expert Comment

by:Martin Liss
ID: 39251394
You're welcome and I'm glad I was able to help.

Select the 'About Me' tab in my profile and you'll find links to some articles I've written that may interest you.
Marty - MVP 2009 to 2013
0

Featured Post

6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

Join & Write a Comment

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now