Solved

VB6 number of the row dbclick

Posted on 2013-06-16
4
369 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
4 Comments
 
LVL 30

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 48

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 48

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

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

695 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