Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

find click entry now select in main form

  • Loading branch information...
commit d41465a90fbdbf715a1c794e5aa799869e53cb77 1 parent c76e377
unknown authored
View
6 .gitattributes
@@ -0,0 +1,6 @@
+*.frm eol=crlf
+*.bas eol=crlf
+*.cls eol=crlf
+*.ctl eol=crlf
+*.vbp eol=crlf
+*.vbw eol=crlf
View
6 compare/Form1.frm
@@ -1165,6 +1165,9 @@ Public Sub lv1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim rs As Recordset
Dim asm As String
+ Item.Selected = True
+ Item.EnsureVisible
+
Set rs = ado("Select * from a where autoid=" & Item.Tag)
asm = rs!disasm
txtA = asm
@@ -1187,6 +1190,9 @@ Public Sub lv2_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim rs As Recordset
Dim asm As String
+ Item.Selected = True
+ Item.EnsureVisible
+
Set rs = ado("Select disasm from b where autoid=" & Item.Tag)
asm = rs!disasm
txtB = asm
View
2  compare/Project1.vbp
@@ -1,5 +1,5 @@
Type=Exe
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\system32\stdole2.tlb#OLE Automation
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation
Reference=*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\Program Files\Common Files\system\ado\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library
Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; mscomctl.ocx
Form=Form1.frm
View
4 compare/Project1.vbw
@@ -1,7 +1,7 @@
-Form1 = 31, 14, 785, 566, , -8, 1, 772, 669, C
+Form1 = 31, 14, 785, 566, Z, -8, 1, 772, 669, C
CAlphaSort = 44, 44, 567, 489,
CFunction = 176, 176, 724, 621,
-Module1 = 176, 176, 603, 621, Z
+Module1 = 176, 176, 603, 621,
clsCmnDlg = 110, 110, 580, 525,
frmProfile = 154, 154, 591, 549, , 132, 132, 709, 527, C
frmFind = 132, 132, 603, 527, , 110, 110, 581, 505, C
View
6 compare/frmFind.frm
@@ -193,10 +193,10 @@ End Function
Private Sub Form_Load()
On Error Resume Next
With lv1.ColumnHeaders(2)
- .Width = lv1.Width - .Left - 100
+ .Width = lv1.Width - .left - 100
End With
With lv2.ColumnHeaders(2)
- .Width = lv2.Width - .Left - 100
+ .Width = lv2.Width - .left - 100
End With
End Sub
@@ -211,7 +211,7 @@ End Sub
'works for unmatched only
Private Sub lv2_ItemClick(ByVal Item As MSComctlLib.ListItem)
On Error Resume Next
- Dim li As ListItem
+ Dim li As ListItem
Set li = Form1.lv2.ListItems(Item.key)
If Not li Is Nothing Then Form1.lv2_ItemClick li
End Sub
View
BIN  ida_compare.exe
Binary file not shown
Please sign in to comment.
Something went wrong with that request. Please try again.