Dim flag As Boolean
Dim JcqX, JcqY, HgqX, HgqY As Long
Dim tempx1, tempx2, tempy1, tempy2 As Line

Private Sub Form_Load()
Dim i, j As Integer
If flag = True Then
For i = 0 To 5
ImageJcq(i).Picture = LoadPicture(App.Path + "/icon/POINT1.ico")
Lin(i).Visible = False
Next i
Else
For j = 0 To 5
ImageHgq(j).Picture = LoadPicture(App.Path + "/icon/HGQ1.ico")
Next j
End If
End Sub

Private Sub ImageHgq_Click(Index As Integer)

If IfLocked Then Exit Sub
Dim ABC As Integer
Dim NL As Integer
Dim i As Integer
Dim Actstr As String
Dim Jxiang As String
Dim Index2 As String
On Error Resume Next
For i = 0 To Index
If ImageHgq(i).Tag > 0 Then NL = NL + ImageHgq(i).Tag - 1

Next i
Index2 = CStr(Index + 1)
If Len(Index2) = 1 Then Index2 = "0" & Index2
Jxiang = "000000000000000000000000000000000000000000000000000000000000"
Jxiang = NowJD.JCQXiang & Jxiang
Actstr = CStr(CInt((actline + 3) \ 3))
If actline < 99 Then
If ImageHgq(Index).Tag >= 1 Then
NL = NL + NowJD.zhilushu
Else
NL = Index
End If
ABC = actline Mod 3
Select Case ABC
Case 0
Actstr = Actstr & "A"
Lin(NL).BorderColor = &H8080&
Case 1
Actstr = Actstr & "B"
Lin(NL).BorderColor = &HFF0000
Case 2
Actstr = Actstr & "C"
Lin(NL).BorderColor = &HFF&
End Select
Lin(NL).Visible = True
Lin(NL).x1 = ImageJcq(actline).Left + ImageJcq(actline).Width / 2
Lin(NL).y1 = ImageJcq(actline).Top + ImageJcq(actline).Height
Lin(NL).x2 = ImageHgq(Index).Left + ImageHgq(Index).Width / 2
Lin(NL).y2 = ImageHgq(Index).Top '+ ImageHgq(Index).Height
ImageHgq(Index).Tag = ImageHgq(Index).Tag + 1
NowJD.JCQXiang = Left(Jxiang, NL * 4) & Index2 & Actstr & Mid(Jxiang, (NL + 1) * 4 + 1, 96 - NL * 4)

Else
i = InStr(Jxiang, Index2)
If i Mod 4 > 1 Then i = InStr(i + 1, Jxiang, Index2)
NL = (i + 3) \ 4 - 1
If ImageHgq(Index).Tag > 0 Then
ImageHgq(Index).Tag = ImageHgq(Index).Tag - 1
Lin(NL).Visible = False
NowJD.JCQXiang = Left(Jxiang, NL * 4) & "0000" & Mid(Jxiang, (NL + 1) * 4 + 1, 96 - NL * 4)
End If
End If
actline = 99

End Sub

Private Sub ImageHgq_DblClick(Index As Integer)
Lin(Index).Visible = False
End Sub

Private Sub ImageJcq_DblClick(Index As Integer)
If actline < 25 Then actline = Index
End Sub

问题已经很明确了，请你自己去除顶楼中和解决问题无关的代码。

看的是你的能力了。


注意置顶帖：

—话不在多—

你需要提供精确有效的信息。这并不是一定要求你简单的把成吨的出错代码或者数据完全转储摘录到你的提问中。
这样做的用处至少有三点。
第一，表现出你为简化问题付出了努力，这可以使你得 到回答的机会增加；
第二，简化问题使你得到有用答案的机会增加；
第三，在提炼你的bug报告的过程中，也许你自己就能找出问题所在或作出更正。

Private Sub ImageHgq_Click(Index As Integer)

If IfLocked Then Exit Sub
Dim ABC As Integer
Dim NL As Integer
Dim i As Integer
Dim Actstr As String
Dim Jxiang As String
Dim Index2 As String
On Error Resume Next
For i = 0 To Index '好象是index的问题,在另外双击取的index不同?
If ImageHgq(i).Tag > 0 Then NL = NL + ImageHgq(i).Tag - 1

Next i
Index2 = CStr(Index + 1)
If Len(Index2) = 1 Then Index2 = "0" & Index2
Jxiang = "000000000000000000000000000000000000000000000000000000000000"
Jxiang = NowJD.JCQXiang & Jxiang
Actstr = CStr(CInt((actline + 3) \ 3))
If actline < 99 Then
If ImageHgq(Index).Tag >= 1 Then
NL = NL + NowJD.zhilushu
Else
NL = Index '这块可能是有问题?
End If
ABC = actline Mod 3
Select Case ABC
Case 0
Actstr = Actstr & "A"
Lin(NL).BorderColor = &H8080&
Case 1
Actstr = Actstr & "B"
Lin(NL).BorderColor = &HFF0000
Case 2
Actstr = Actstr & "C"
Lin(NL).BorderColor = &HFF&
End Select
Lin(NL).Visible = True
Lin(NL).x1 = ImageJcq(actline).Left + ImageJcq(actline).Width / 2
Lin(NL).y1 = ImageJcq(actline).Top + ImageJcq(actline).Height
Lin(NL).x2 = ImageHgq(Index).Left + ImageHgq(Index).Width / 2
Lin(NL).y2 = ImageHgq(Index).Top '+ ImageHgq(Index).Height
ImageHgq(Index).Tag = ImageHgq(Index).Tag + 1
NowJD.JCQXiang = Left(Jxiang, NL * 4) & Index2 & Actstr & Mid(Jxiang, (NL + 1) * 4 + 1, 96 - NL * 4)

Else
i = InStr(Jxiang, Index2)
If i Mod 4 > 1 Then i = InStr(i + 1, Jxiang, Index2)
NL = (i + 3) \ 4 - 1
If ImageHgq(Index).Tag > 0 Then
ImageHgq(Index).Tag = ImageHgq(Index).Tag - 1
Lin(NL).Visible = False
NowJD.JCQXiang = Left(Jxiang, NL * 4) & "0000" & Mid(Jxiang, (NL + 1) * 4 + 1, 96 - NL * 4)
End If
End If
actline = 99

End Sub

Private Sub ImageJcq_DblClick(Index As Integer) '取值应该没问题

actline = Index
End Sub


不知道是否是.

找到问题了.呵呵,是其中index的问题.感谢各位回贴者