此時只能按下"Ignore all"來告訴EndNote不要把該筆資料視為參考文獻,但是每次都要這麼做總是十分的魯洨...
那要如何避免這種情形呢? 只要在設定中把「暫時參考文獻格式」改掉就好,如下圖︰
要改成什麼都可以,只要不要與文件中會出現的符號衝突就可以,比如此處我是改為「<<......}」,如此一來只有被這樣的符號包圍的文字,EndNote才會將之視為參考文獻,就再也不會誤判了。
Public Class Class1
Public Event ShowMsg(ByVal text As String) '宣告事件,觸發該事件即可傳出參數
Private sum As Integer '執行緒執行時傳入的參數
Property Num As Integer '設成屬性存取
Get
Return sum
End Get
Set(value As Integer)
sum = value
End Set
End Property
Public Sub calcd() '該執行緒要執行的方法
For I = 0 To 1000
sum += I
RaiseEvent aa(sum) '觸發事件
Threading.Thread.Sleep(100)
Next
End Sub
End Class
Public Class Form1
Private Delegate Sub InvokeDelegate(ByVal text As String)
Private t As Threading.Thread
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim c As Class1 = New Class1 '建立一個Class1的執行個體
c.Num = 10 '設定要傳入的參數(也可在建立執行個體時以建構式設定)
'新建一個執行緒,指向Class1的執行個體中要執行的方法(該方法必須為Public)
t = New Threading.Thread(AddressOf c.calcd)
AddHandler c.ShowMsg, AddressOf ShowMsg '設定事件的處理方式,將事件指向Form1的ShowMsg()
t.Start()
End Sub
Private Sub ShowMsg(ByVal text As String)
'若呼叫端不是建立該控制項(Me)的執行緒,則以委派方式呼叫
If Me.InvokeRequired Then
Invoke(New InvokeDelegate(AddressOf ShowMsg), text)
Else
TextBox1.Text = text '顯示訊息
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
t.Abort()
End Sub
End Class