DeletePen 方法示例

以下示例使用图表Chart1 的笔集合的 Count 属性作为索引，来删除已添加到该图表中的最后一个笔。

Dim x As Integer

x = Chart1.Pens.Count

Chart1.DeletePen x

以下示例删除名为 Chart1的图表中的笔，然后使用 AddPen 方法将其替换为另一个笔，如果该笔尚未存在。

Private Sub Chart1_Click()

'用户单击时选择一个笔

'检查用户是否要删除该笔

Dim Strtn as string

Dim Inti as integer

Strtn = Chart1.CurrentPen

Msgprompt = "You have selected Pen : " & Chart1.Pens.Item(Strtn).Source & vbCrLf & "Do you want to remove it ?"

user_reponse = MsgBox(Msgprompt, vbYesNo, "Removing Pen")

If user_reponse = 6 Then

 Chart1.DeletePen (Strtn)

End If

End Sub

 

Private Sub DELPEN_Click()

'从特定图表下的笔集合中删除所有笔

Dim Inti as integer

If Chart1.Pens.Count <> 0 Then

 For Inti = Chart1.Pens.Count To 1 Step -1

  Chart1.DeletePen (Inti)

 Next Inti

End If

End Sub

 

Private Sub PBADDREALPEN_Click()

'检查笔不在笔集合内之后，

'将笔添加到给定图表的笔集合中

If Chart1.Pens.Count <> 0 Then

'首次使用该图表时，集合包含默认笔

 Chart1.DeletePen(1)

End If

 checkifalreadyexist ("Fix32.Alice.MyTag1")

 checkifalreadyexist ("Fix32.Alice.MyTag2")

 checkifalreadyexist ("Fix32.Alice.MyTag3")

End Sub

 

Function checkifalreadyexist(Tagname As String)

'检查笔是否不在集合内

Dim loc_tagname As String

loc_tagname = Tagname & ".F_CV"

Egu_tagname = Tagname

If Chart1.Pens.Count = 0 Then

 Chart1.AddPen (loc_tagname)

 hiEGU = Readvalue(Egu_tagname & ".A_Ehi")

 loEGU = Readvalue(Egu_tagname & ".A_Elo")

 

 Else

 Tag_found = False

  For i = 1 To Chart1.Pens.Count

   If UCase(loc_tagname) = UCase(Chart1.Pens.Item(i).Source) Then

Tag_found = True

   Else

 End If

  Next i

  If Tag_found = False Then

     Chart1.AddPen (loc_tagname)

     Tag_found = False

   End If

 End If

End Function