日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
實(shí)例探討VB.NET回調(diào)函數(shù)

VB.NET經(jīng)過長時(shí)間的發(fā)展，很多用戶都很了解VB.NET回調(diào)函數(shù)了，這里我發(fā)表一下個(gè)人理解，和大家討論討論。創(chuàng)建數(shù)據(jù)庫事件處理函數(shù)（VB.NET回調(diào)函數(shù)）

公司主營業(yè)務(wù)：成都做網(wǎng)站、成都網(wǎng)站建設(shè)、移動(dòng)網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出東平免費(fèi)做網(wǎng)站回饋大家。

#t#無論什么時(shí)候一個(gè)對象被打開并要被修改時(shí)，數(shù)據(jù)庫事件處理函數(shù)會(huì)被調(diào)用。當(dāng)然，如果這時(shí)我們監(jiān)視的命令不是活動(dòng)的，我們就應(yīng)該跳過任何被這個(gè)VB.NET回調(diào)函數(shù)調(diào)用的內(nèi)容。

If bEditCommand = False Then
Return
End If

同樣地，如果我們監(jiān)視的命令已經(jīng)結(jié)束，而ObjectOpenedForModify事件被另一個(gè)VB.NET回調(diào)函數(shù)再次觸發(fā)的話，而這時(shí)有對象被修改時(shí)，我們要阻止所有由這個(gè)VB.NET回調(diào)函數(shù)執(zhí)行的動(dòng)作。

If bDoRepositioning = True Then
Return
End If

這個(gè)VB.NET回調(diào)函數(shù)剩余部分的代碼用來驗(yàn)證我們是否正在處理EMPLOYEE塊索引。如果是的話，我們就獲取它的ObjectID和位置（三維點(diǎn)）。下面的代碼可以被粘貼到這個(gè)事件處理函數(shù)函數(shù)。

 
 
 
    
  
  
  
  1. Public Sub objOpenedForMod(ByVal o As Object, ByVal e As ObjectEventArgs)  
    2. 
  
  
  
  2. If bEditCommand = False Then  
    3. 
  
  
  
  3. Return  
    4. 
  
  
  
  4. End If  
    5. 
  
  
  
  5. If bDoRepositioning = True Then  
    6. 
  
  
  
  6. Return  
    7. 
  
  
  
  7. End If  
    8. 
  
  
  
  8. Dim objId As ObjectId  
    9. 
  
  
  
  9. objId = e.DBObject.ObjectId  
    10. 
  
  
  
  10. Dim trans As Transaction  
    11. 
  
  
  
  11. Dim bt As BlockTable  
    12. 
  
  
  
  12. Dim db As Database  
    13. 
  
  
  
  13. db = HostApplicationServices.WorkingDatabase  
    14. 
  
  
  
  14. trans = db.TransactionManager.StartTransaction()  
    15. 
  
  
  
  15. Try  
    16. 
  
  
  
  16. 'Use it to open the current object!  
    17. 
  
  
  
  17. Dim ent As Entity = trans.GetObject(objId, OpenMode.ForRead, False)  
    18. 
  
  
  
  18. If TypeOf ent Is BlockReference Then 'We use .NET's RTTI to establish type.  
    19. 
  
  
  
  19. Dim br As BlockReference = CType(ent, BlockReference)  
    20. 
  
  
  
  20. 'Test whether it is an employee block  
    21. 
  
  
  
  21. 'open its extension dictionary  
    22. 
  
  
  
  22. If br.ExtensionDictionary().IsValid Then  
    23. 
  
  
  
  23. Dim brExtDict As DBDictionary = trans.GetObject(br.ExtensionDictionary(), OpenMode.ForRead)  
    24. 
  
  
  
  24. If brExtDict.GetAt("EmployeeData").IsValid Then  
    25. 
  
  
  
  25. 'successfully got "EmployeeData" so br is employee block ref  
    26. 
  
  
  
  26. 'Store the objectID and the position  
    27. 
  
  
  
  27. changedObjects.Add(objId)  
    28. 
  
  
  
  28. employeePositions.Add(br.Position)  
    29. 
  
  
  
  29. 'Get the attribute references,if any  
    30. 
  
  
  
  30. Dim atts As AttributeCollection  
    31. 
  
  
  
  31. atts = br.AttributeCollection  
    32. 
  
  
  
  32. If atts.Count > 0 Then  
    33. 
  
  
  
  33. Dim attId As ObjectId  
    34. 
  
  
  
  34. For Each attId In atts  
    35. 
  
  
  
  35. Dim att As AttributeReference  
    36. 
  
  
  
  36. att = trans.GetObject(attId, OpenMode.ForRead, False)  
    37. 
  
  
  
  37. changedObjects.Add(attId)  
    38. 
  
  
  
  38. employeePositions.Add(att.Position)  
    39. 
  
  
  
  39. Next  
    40. 
  
  
  
  40. End If  
    41. 
  
  
  
  41. End If  
    42. 
  
  
  
  42. End If  
    43. 
  
  
  
  43. End If  
    44. 
  
  
  
  44. trans.Commit()  
    45. 
  
  
  
  45. Finally  
    46. 
  
  
  
  46. trans.Dispose()  
    47. 
  
  
  
  47. End Try  
    48. 
  
  
  
  48. End Sub 
    49.

網(wǎng)站標(biāo)題：實(shí)例探討VB.NET回調(diào)函數(shù)
文章源于：http://www.5511xx.com/article/dhjhcis.html