Vb.net

 
 

Struct

2011年3月26日

11:26

 
 

'数据结构

  Public MAX_BRIEVENT_DATA As Integer = 600

  <StructLayout(LayoutKind.Sequential)> _

  Public Structure TBriEvent_Data

  Public uVersion As [Byte]

  Public uReserv As [Byte]

  Public uChannelID As Int16 '事件来自通道ID

  Public lEventType As Int32 '事件类型ID 查看BRI_EVENT.lEventType Define

  Public lEventHandle As Int32 '事件相关句柄

  Public lResult As Int32 '事件相关数值

  ' Public lParam As Int32<MarshalAs(UnmanagedType.ByValArray, SizeConst := MAX_BRIEVENT_DATA)> '保留,扩展使用

  '事件相关数据.如：来电时，保存了来电的号码

  Public szData() As [Byte]<MarshalAs(UnmanagedType.ByValArray, SizeConst := 32)> 

  '保留,扩展使用

  Public szDataEx() As [Byte]

  End Structure 'TBriEvent_Data

 
 

源文档 <http://www.bianc.info/DotNET/VBDotNET/VBDotNET-923.html>

 
 

 
 

Win7TestTaskBar

2011年3月26日

11:21

 
 

<<Form1.Designer.vb>>

<<CodeFile1.vb>>

<<App.config>>

<<Win7TestTaskBar.vbproj>>

<<Module1.vb>>

<<Form1.vb>>

<<Form1.resx>>