Imports System.Runtime.InteropServices Public Class Ledsdk Public Enum E_ScreenColor_G56 As Byte eSCREEN_COLOR_SINGLE = 1 '单基色 eSCREEN_COLOR_DOUBLE = 2 '双基色 eSCREEN_COLOR_THREE = 3 '七彩色 eSCREEN_COLOR_FULLCOLOR = 4 '全彩色 End Enum Public Enum E_DoubleColorPixel As Byte eDOUBLE_COLOR_PIXTYPE_1 = 1 '双基色1：G+R eDOUBLE_COLOR_PIXTYPE_2 '双基色2：R+G End Enum Public Enum E_arrMode As UInteger eSINGLELINE '单行 eMULTILINE '多行 End Enum Public Enum E_Color As UInteger eBLACK '黑色 eRED '红色 eGREEN '绿色 eYELLOW '黄色 End Enum Public Enum E_txtDirection As Byte pNORMAL '正常 pROTATERIGHT '向右旋转 pMIRROR '镜像 pROTATELEFT '向左旋转 End Enum Public Enum E_DateStyle As UInteger eYYYY_MM_DD_MINUS 'YYYY-MM-DD eYYYY_MM_DD_VIRGURE 'YYYY/MM/DD eDD_MM_YYYY_MINUS 'DD-MM-YYYY eDD_MM_YYYY_VIRGURE 'DD/MM/YYYY eMM_DD_MINUS 'MM-DD eMM_DD_VIRGURE 'MM/DD eMM_DD_CHS 'MM月DD日 eYYYY_MM_DD_CHS 'YYYY年MM月DD日 End Enum Public Enum E_TimeStyle As UInteger eHH_MM_SS_COLON 'HH:MM:SS eHH_MM_SS_CHS 'HH时MM分SS秒 eHH_MM_COLON 'HH:MM eHH_MM_CHS 'HH时MM分 eAM_HH_MM 'AM HH:MM eHH_MM_AM 'HH:MM AM End Enum Public Enum E_WeekStyle As UInteger eMonday = 1'Monday eMon'Mon. eMonday_CHS'星期一 End Enum Public Enum E_Color_G56 eBLACK '黑色 eRED '红色 eGREEN '绿色 eYELLOW '黄色 eBLUE '蓝色 eMAGENTA '品红/洋红 eCYAN '青色 eWHITE '白色 '5代时间区只支持四种颜色 End Enum Public Enum E_ClockStyle eLINE '线形 eSQUARE '方形 eCIRCLE '圆形 '表盘样式 End Enum _ Public Structure EQSound_6G '1 0x00 是否使能语音播放;0 表示不使能语音; 1 表示播放下文中 SoundData 部分内容; Dim SoundFlag As Byte 'SoundData 部分内容--------------------------------------------------------------------------------------------------------------------------------------------------- '1 0x00 发音人 该值范围是 0 - 5，共 6 种选择只有 SoundFlag（是否使能语音播放）为 1 时才发送该字节，否则不发送该值默认为 0 Dim SoundPerson As Byte '1 0x05 音量该值范围是 0~10，共 11 种，0表示静音只有 SoundFlag（是否使能语音播放）为 1 时才发送该字节，否则不发送该值默认为 5 Dim SoundVolum As Byte '1 0x05 语速该值范围是 0~10，共 11 种只有 SoundFlag（是否使能语音播放）为 1 时才发送该字节，否则不发送该值默认为 5 Dim SoundSpeed As Byte '1 0x00 SoundData 的编码格式：该值意义如下：0x00 GB2312; 0x01 GBK; 0x02 BIG5; 0x03 UNICODE只有 SoundFlag（是否使能语音播放）为 1 时才发送该字节，否则不发送 Dim SoundDataMode As Byte ' 4 0x00000000 重播次数该值为 0，表示播放 1 次该值为 1，表示播放 2 次 Dim SoundReplayTimes As Integer '...... '该值为 0xffffffff，表示播放无限次只有 SoundFlag（是否使能语播放）为 1 时才发送该字节，否则不发送该值默认为 0 ' 4 0x00000000 重播时间间隔该值表示两次播放语音的时间间隔，单位为 10ms只有 SoundFlag（是否使能语音播放）为 1 时才发送该字节，否则不发送该值默认为 0 Dim SoundReplayDelay As Integer ' 1 0x03 语音参数保留参数长度 Dim SoundReservedParaLen As Byte ' 1 0 0：自动判断1：数字作号码处理 2：数字作数值处理只有当 SoundFlag 为 1 且SoundReservedParaLen不为 0才发送此参数 Dim Soundnumdeal As Byte ' 1 0 0：自动判断语种1：阿拉伯数字、度量单位、特殊符号等合成为中文2：阿拉伯数字、度量单位、特殊符号等合成为英文只有当 SoundFlag 为 1 且 SoundReservedParaLen不为 0才发送此参数（目前只支持中英文） Dim Soundlanguages As Byte ' 1 0 0：自动判断发音方式1：字母发音方式2：单词发音方式；只有当 SoundFlag 为 1 且SoundReservedParaLen不为 0才发送此参数 Dim Soundwordstyle As Byte ' 4 语音数据长度; 只有 SoundFlag（是否使能语音播放）为 1 时才发送该字节，否则不发送 Dim SoundDataLen As Integer ' N 语音数据只有 SoundFlag（是否使能语音播放）为 1 时才发送该字节，否则不发送 Dim SoundData() As Byte End Structure _ Public Structure EQtimeAreaData_G56 '排列方式，单行还是多行 Dim linestyle As E_arrMode '字体颜色 Dim color As UInteger '字体名字 Dim fontName() As Byte '字体大小 Dim fontSize As UShort '字体加粗 Dim fontBold As Byte '斜体 Dim fontItalic As Byte '字体加下划线 Dim fontUnderline As Byte '对齐方式--多行有效 Dim fontAlign As Byte '是否添加日期 Dim date_enable As Byte '日期格式 Dim datestyle As E_DateStyle '是否添加时间---默认添加 Dim time_enable As Byte '时间格式 Dim timestyle As E_TimeStyle '是否添加星期 Dim week_enable As Byte '星期格式 Dim weekstyle As E_WeekStyle End Structure Public Structure EQAnalogClockHeader_G56 '原点横坐标 Dim OrignPointX As UShort '原点纵坐标 Dim OrignPointY As UShort '表针模式 Dim UnitMode As Byte '时针宽度 Dim HourHandWidth As Byte '时针长度 Dim HourHandLen As Byte '时针颜色 Dim HourHandColor As UInteger '分针宽度 Dim MinHandWidth As Byte '分针长度 Dim MinHandLen As Byte '分针颜色 Dim MinHandColor As UInteger '秒针宽度 Dim SecHandWidth As Byte '秒针长度 Dim SecHandLen As Byte '秒针颜色 Dim SecHandColor As UInteger End Structure Public Structure ClockColor_G56 '369点颜色 Dim Color369 As UInteger '点颜色 Dim ColorDot As UInteger '表盘外圈颜色 模式没有圈泽此颜色无效 Dim ColorBG As UInteger End Structure '************************************************************************************** '5代、6代通用接口 '************************************************************************************** '初始化函数库 Public Declare Auto Function bxDual_InitSdk Lib "bx_sdk_dual.dll" () As Integer '释放函数库 Public Declare Auto Sub bxDual_ReleaseSdk Lib "bx_sdk_dual.dll" () _ Public Structure Ping_data ' 控制器类型 '小端存储低位在前高位在后， 比如 0x254 反着取，低位表示系列，高位编号 [0x54, 0x02] 【系列，编号】 Dim ControllerType As UShort ' 固件版本号 _ Dim FirmwareVersion() As Byte ' 控制器参数文件状态 0x00 –控制器中没有参数配置文件，以下返回的是控制器的默认参数。 此时， PC 软件应提示用户必须先加载屏参。0x01 –控制器中有参数配置文件 Dim ScreenParaStatus As Byte ' 控制器地址 Dim uAddress As UShort ' 波特率 Dim Baudrate As Byte ' 屏宽 Dim ScreenWidth As UShort ' 屏高 Dim ScreenHeight As UShort ' 显示屏颜色定义 Dim Color As Byte '当前亮度值 整数1-16 Dim CurrentBrigtness As Byte ' 控制器开关机状态 0 关机 1开机？ Dim CurrentOnOffStatus As Byte ' 扫描配置编号 Dim ScanConfNumber As UShort ' 第一个自己一路数据代几行，其他基本用不上，如有需要可参考协议取相应的字节 _ Dim reversed() As Byte ' 控制器ip地址 _ Dim ipAdder() As Byte End Structure '广播ping Public Declare Auto Function bxDual_cmd_udpPing Lib "bx_sdk_dual.dll" (ByRef retData As Ping_data) As Integer '设置屏相关属性 Public Declare Auto Function bxDual_program_setScreenParams_G56 Lib "bx_sdk_dual.dll" (ByVal color As E_ScreenColor_G56, ByVal ControllerType As UShort, ByVal doubleColor As E_DoubleColorPixel) As Integer '写文件 Public Declare Auto Function bxDual_cmd_ofsWriteFile Lib "bx_sdk_dual.dll" (ByVal ip() As Byte, ByVal port As UShort, ByVal fileName() As Byte, ByVal fileType As Byte, ByVal fileLen As Integer, ByVal overwrite As Byte, ByVal fileAddre As IntPtr) As Integer '开始写文件 Public Declare Auto Function bxDual_cmd_ofsStartFileTransf Lib "bx_sdk_dual.dll" (ByVal ip() As Byte, ByVal port As UShort) As Integer '结束写文件 Public Declare Auto Function bxDual_cmd_ofsEndFileTransf Lib "bx_sdk_dual.dll" (ByVal ip() As Byte, ByVal port As UShort) As Integer '************************************************************************************** '5代控制卡接口 '************************************************************************************** _ Public Structure EQprogramHeader '文件类型 '默认：0x00 'LOGO文件:0x08 '扫描配置文件:0x02 '日志文件:0x06 '字库文件:0x05 '提示信息库文件: 0x07 Dim FileType As Byte '节目ID Bit0 –全局节目标志位 Bit1 –动态节目标志位 Bit2 –屏保节目标志位 Dim ProgramID As UInteger '节目类型 Dim ProgramStyle As Byte '节目等级 注:带播放时段的节目优先级为 1，不带播放时段的节目优先级为 0 Dim ProgramPriority As Byte '节目重播放次数 Dim ProgramPlayTimes As Byte '播放的方式 Dim ProgramTimeSpan As UShort '节目星期属性 Dim ProgramWeek As Byte '年 Dim ProgramLifeSpan_sy As UShort '月 Dim ProgramLifeSpan_sm As Byte '日 Dim ProgramLifeSpan_sd As Byte '结束年 Dim ProgramLifeSpan_ey As UShort '结束日 Dim ProgramLifeSpan_em As Byte '结束天 Dim ProgramLifeSpan_ed As Byte '播放时段的组数 Dim PlayPeriodGrpNum As Byte End Structure '创建节目 Public Declare Auto Function bxDual_program_addProgram Lib "bx_sdk_dual.dll" (ByRef programH As EQprogramHeader) As Integer _ Public Structure EQareaHeader '区域类型 Dim AreaType As Byte '区域左上角横坐标 Dim AreaX As UShort '区域左上角纵坐标 Dim AreaY As UShort '区域宽度 Dim AreaWidth As UShort '区域高度 Dim AreaHeight As UShort End Structure '添加区域 Public Declare Auto Function bxDual_program_AddArea Lib "bx_sdk_dual.dll" (ByVal areaID As UShort, ByRef programH As EQareaHeader) As Integer _ Public Structure EQpageHeader '数据页类型 Dim PageStyle As Byte '显示方式 Dim DisplayMode As Byte '退出方式/清屏方式 Dim ClearMode As Byte '速度等级 Dim Speed As Byte '停留时间 Dim StayTime As UShort '重复次数 Dim RepeatTime As Byte '此字段只在左移右移方式下有效 Dim ValidLen As UShort '排列方式--单行多行 Dim arrMode As E_arrMode '字体大小 Dim fontSize As UShort '字体颜色 Dim color As E_Color '是否为粗体 Dim fontBold As Boolean '是否为斜体 Dim fontItalic As Boolean '文字方向 Dim tdirection As E_txtDirection '文字间隔 Dim txtSpace As UShort Dim Valign As Byte Dim Halign As Byte End Structure '添加文本 Public Declare Auto Function bxDual_program_picturesAreaAddTxt Lib "bx_sdk_dual.dll" (ByVal areaID As UShort, ByVal str() As Byte, ByVal fontName() As Byte, ByRef programH As EQpageHeader) As Integer '添加图片 Public Declare Auto Function bxDual_program_pictureAreaAddPic Lib "bx_sdk_dual.dll" (ByVal areaID As UShort, ByVal picID As UShort, ByRef pheader As EQpageHeader, ByVal picPath() As Byte) As Integer '添加时间 Public Declare Auto Function bxDual_program_fontPath_timeAreaAddContent Lib "bx_sdk_dual.dll" (ByVal areaID As UShort, ByRef pheader As EQtimeAreaData_G56) As Integer '添加表盘 Public Declare Auto Function bxDual_program_timeAreaAddAnalogClock Lib "bx_sdk_dual.dll" (ByVal areaID As UShort, ByRef pheader As EQAnalogClockHeader_G56, ByRef cStyle As E_ClockStyle, ByRef cColor As ClockColor_G56) As Integer _ Public Structure EQprogram '节目参数文件名 _ Dim fileName() As Byte '文件类型 Dim fileType As Byte '参数文件长度 Dim fileLen As Integer '文件所在的缓存地址 Dim fileAddre As IntPtr '文件CRC32校验码 Dim fileCRC32 As Integer End Structure '获取节目缓存 Public Declare Auto Function bxDual_program_IntegrateProgramFile Lib "bx_sdk_dual.dll" (ByRef program As EQprogram) As Integer '删除节目缓存 Public Declare Auto Function bxDual_program_deleteProgram Lib "bx_sdk_dual.dll" () As Integer '************************************************************************************** '6代控制卡接口 '************************************************************************************** _ Public Structure EQprogramHeader_G6 '文件类型 '默认：0x00 'LOGO文件:0x08 '扫描配置文件:0x02 '日志文件:0x06 '字库文件:0x05 '提示信息库文件: 0x07 Dim FileType As Byte '节目ID Bit0 –全局节目标志位 Bit1 –动态节目标志位 Bit2 –屏保节目标志位 Dim ProgramID As UInteger '节目类型 Dim ProgramStyle As Byte '节目等级 注:带播放时段的节目优先级为 1，不带播放时段的节目优先级为 0 Dim ProgramPriority As Byte '节目重播放次数 Dim ProgramPlayTimes As Byte '播放的方式 Dim ProgramTimeSpan As UShort '特殊节目标 Dim SpecialFlag As Byte '扩展参数长度，默认为0x00 Dim CommExtendParaLen As Byte '节目调度 Dim ScheduNum As UShort '调度规则循环次数 Dim LoopValue As UShort '调度相关 Dim Intergrate As Byte '时间属性组数 Dim TimeAttributeNum As Byte '第一组时间属性偏移量--目前只支持一组 Dim TimeAttribute0Offset As UShort '节目星期属性 Dim ProgramWeek As Byte '年 Dim ProgramLifeSpan_sy As UShort '月 Dim ProgramLifeSpan_sm As Byte '日 Dim ProgramLifeSpan_sd As Byte '结束年 Dim ProgramLifeSpan_ey As UShort '结束日 Dim ProgramLifeSpan_em As Byte '结束天 Dim ProgramLifeSpan_ed As Byte '播放时段的组数 Dim PlayPeriodGrpNum As Byte End Structure '添加节目 Public Declare Auto Function bxDual_program_addProgram_G6 Lib "bx_sdk_dual.dll" (ByRef programH As EQprogramHeader_G6) As Integer _ Public Structure EQareaHeader_G6 '区域类型 Dim AreaType As Byte '区域左上角横坐标 Dim AreaX As UShort '区域左上角纵坐标 Dim AreaY As UShort '区域宽度 Dim AreaWidth As UShort '区域高度 Dim AreaHeight As UShort '是否有背景 Dim BackGroundFlag As Byte '透明度 Dim Transparency As Byte '前景、背景区域大小是否相同 Dim AreaEqual As Byte '语音内容 '使用语音功能时：部分卡需要配置串口为语音模式！！！ Dim stSoundData As EQSound_6G End Structure '添加区域 Public Declare Auto Function bxDual_program_addArea_G6 Lib "bx_sdk_dual.dll" (ByVal areaID As UShort, ByRef programH As EQareaHeader_G6) As Integer _ Public Structure EQpageHeader_G6 '数据页类型 Dim PageStyle As Byte '显示方式 Dim DisplayMode As Byte '退出方式/清屏方式 Dim ClearMode As Byte '速度等级 Dim Speed As Byte '停留时间 Dim StayTime As UShort '重复次数 Dim RepeatTime As Byte '此字段只在左移右移方式下有效 Dim ValidLen As UShort '特技为动画方式时，该值代表其帧率 Dim CartoonFrameRate As Byte '背景无效标志 Dim BackNotValidFlag As Byte '排列方式--单行多行 Dim arrMode As E_arrMode '字体大小 Dim fontSize As UShort '字体颜色 Dim color As E_Color '是否为粗体 Dim fontBold As Byte '是否为斜体 Dim fontItalic As Byte '文字方向 Dim tdirection As Integer '文字间隔 Dim txtSpace As UShort Dim Valign As Byte Dim Halign As Byte End Structure '添加文本 Public Declare Auto Function bxDual_program_picturesAreaAddTxt_G6 Lib "bx_sdk_dual.dll" (ByVal areaID As UShort, ByVal str() As Byte, ByVal fontName() As Byte, ByRef programH As EQpageHeader_G6) As Integer Public Declare Auto Function bxDual_program_fontPath_picturesAreaAddTxt_G6 Lib "bx_sdk_dual.dll" (ByVal areaID As UShort, ByVal str() As Byte, ByVal fontName() As Byte, ByRef programH As EQpageHeader_G6) As Integer '添加图片 Public Declare Auto Function bxDual_program_pictureAreaAddPic_G6 Lib "bx_sdk_dual.dll" (ByVal areaID As UShort, ByVal picID As UShort, ByRef pheader As EQpageHeader_G6, ByVal picPath() As Byte) As Integer '添加时间 Public Declare Auto Function bxDual_program_fontPath_timeAreaAddContent_G6 Lib "bx_sdk_dual.dll" (ByVal areaID As UShort, ByRef pheader As EQtimeAreaData_G56) As Integer '添加表盘 Public Declare Auto Function bxDual_program_timeAreaAddAnalogClock_G6 Lib "bx_sdk_dual.dll" (ByVal areaID As UShort, ByRef pheader As EQAnalogClockHeader_G56, ByRef cStyle As E_ClockStyle, ByRef cColor As ClockColor_G56) As Integer _ Public Structure EQprogram_G6 '节目参数文件名 _ Dim fileName() As Byte '文件类型 Dim fileType As Byte '参数文件长度 Dim fileLen As Integer '文件所在的缓存地址 Dim fileAddre As IntPtr '节目数据文件名 _ Dim dfileName() As Byte '节目数据文件类型 Dim dfileType As Byte '数据文件长度 Dim dfileLen As Integer '数据文件缓存地址 Dim dfileAddre As IntPtr End Structure '获取节目缓存 Public Declare Auto Function bxDual_program_IntegrateProgramFile_G6 Lib "bx_sdk_dual.dll" (ByRef program As EQprogram_G6) As Integer '删除节目缓存 Public Declare Auto Function bxDual_program_deleteProgram_G6 Lib "bx_sdk_dual.dll" () As Integer '语音接口 _ Public Structure EQPicAreaSoundHeader_G6 '1 0x00 发音人 该值范围是 0 - 5，共 6 种选择只有 SoundFlag（是否使能语音播放）为 1 时才发送该字节，否则不发送该值默认为 0 Dim SoundPerson As Byte '1 0x05 音量该值范围是 0~10，共 11 种，0表示静音只有 SoundFlag（是否使能语音播放）为 1 时才发送该字节，否则不发送该值默认为 5 Dim SoundVolum As Byte '1 0x05 语速该值范围是 0~10，共 11 种只有 SoundFlag（是否使能语音播放）为 1 时才发送该字节，否则不发送该值默认为 5 Dim SoundSpeed As Byte '1 0x00 SoundData 的编码格式：该值意义如下：0x00 GB2312; 0x01 GBK; 0x02 BIG5; 0x03 UNICODE只有 SoundFlag（是否使能语音播放）为 1 时才发送该字节，否则不发送 Dim SoundDataMode As Byte ' 4 0x00000000 重播次数该值为 0，表示播放 1 次该值为 1，表示播放 2 次 Dim SoundReplayTimes As Integer '...... '该值为 0xffffffff，表示播放无限次只有 SoundFlag（是否使能语播放）为 1 时才发送该字节，否则不发送该值默认为 0 ' 4 0x00000000 重播时间间隔该值表示两次播放语音的时间间隔，单位为 10ms只有 SoundFlag（是否使能语音播放）为 1 时才发送该字节，否则不发送该值默认为 0 Dim SoundReplayDelay As Integer ' 1 0x03 语音参数保留参数长度 Dim SoundReservedParaLen As Byte ' 1 0 0：自动判断1：数字作号码处理 2：数字作数值处理只有当 SoundFlag 为 1 且SoundReservedParaLen不为 0才发送此参数 Dim Soundnumdeal As Byte ' 1 0 0：自动判断语种1：阿拉伯数字、度量单位、特殊符号等合成为中文2：阿拉伯数字、度量单位、特殊符号等合成为英文只有当 SoundFlag 为 1 且 SoundReservedParaLen不为 0才发送此参数（目前只支持中英文） Dim Soundlanguages As Byte ' 1 0 0：自动判断发音方式1：字母发音方式2：单词发音方式；只有当 SoundFlag 为 1 且SoundReservedParaLen不为 0才发送此参数 Dim Soundwordstyle As Byte End Structure Public Declare Auto Function bxDual_program_pictureAreaEnableSound_G6 Lib "bx_sdk_dual.dll" (ByVal areaID As UShort, ByVal pheader As EQPicAreaSoundHeader_G6, ByVal soundData() As Byte) As Integer _ Public Structure EQscreenframeHeader_G6 Dim FrameDispStype As Byte Dim FrameDispSpeed As Byte Dim FrameMoveStep As Byte Dim FrameUnitLength As Byte Dim FrameUnitWidth As Byte Dim FrameDirectDispBit As Byte End Structure _ Public Structure BxAreaFrmae_Dynamic_G6 Dim AreaFFlag As Byte Dim oAreaFrame As EQscreenframeHeader_G6 Dim pStrFramePathFile() As Byte End Structure _ Public Structure DynamicAreaBaseInfo_5G Dim nType As Byte Dim DisplayMode As Byte Dim ClearMode As Byte Dim Speed As Byte Dim StayTime As UShort Dim RepeatTime As Byte Dim oFont As EQfontData Dim fontName() As Byte Dim strAreaTxtContent() As Byte Dim filePath() As Byte End Structure _ Public Structure EQfontData Dim arrMode As Integer Dim fontSize As UShort Dim color As Integer Dim fontBold As Byte Dim fontItalic As Byte Dim tdirection As Integer Dim txtSpace As UShort Dim Halign As Byte Dim Valign As Byte End Structure Public Declare Auto Function bxDual_dynamicArea_AddAreaInfos_6G_V2 Lib "bx_sdk_dual.dll" (ByVal ip() As Byte, ByVal port As UShort, ByVal color As E_ScreenColor_G56, ByVal uAreaId As Byte, ByVal RunMode As Byte, ByVal Timeout As UShort, ByVal RelateAllPro As Byte, ByVal RelateProNum As Byte, ByVal RelateProSerial() As UShort, ByVal ImmePlay As Byte, ByVal uAreaX As UShort, ByVal uAreaY As UShort, ByVal uWidth As UShort, ByVal uHeight As UShort, ByVal oFrame As BxAreaFrmae_Dynamic_G6, ByVal nInfoCount As Byte, ByRef pInfo As DynamicAreaBaseInfo_5G, ByRef pSoundData As EQSound_6G ) As Integer Public Declare Auto Function bxDual_dynamicArea_AddAreaPic_6G Lib "bx_sdk_dual.dll" (ByVal ip() As Byte, ByVal port As UShort, ByVal color As E_ScreenColor_G56, ByVal uAreaId As Byte, ByVal uAreaX As UShort, ByVal uAreaY As UShort, ByVal uWidth As UShort, ByVal uHeight As UShort, ByRef pheader As EQpageHeader_G6, ByVal strAreaTxtContent() As Byte) As Integer Public Declare Auto Function bxDual_dynamicArea_AddAreaPic_WithProgram_6G Lib "bx_sdk_dual.dll" (ByVal ip() As Byte, ByVal port As UShort, ByVal color As E_ScreenColor_G56, ByVal uAreaId As Byte, ByVal uAreaX As UShort, ByVal uAreaY As UShort, ByVal uWidth As UShort, ByVal uHeight As UShort, ByRef pheader As EQpageHeader_G6, ByVal strAreaTxtContent() As Byte, ByVal RelateProNum As Byte, ByVal RelateProSerial() As UShort) As Integer Public Declare Auto Function bxDual_dynamicArea_AddAreaTxt_6G Lib "bx_sdk_dual.dll" (ByVal ip() As Byte, ByVal port As UShort, ByVal color As E_ScreenColor_G56, ByVal uAreaId As Byte, ByVal uAreaX As UShort, ByVal uAreaY As UShort, ByVal uWidth As UShort, ByVal uHeight As UShort, ByVal fontName() As Byte, ByVal nFontSize As Byte, ByVal str() As Byte) As Integer Public Declare Auto Function bxDual_dynamicArea_AddAreaTxtDetails_6G Lib "bx_sdk_dual.dll" (ByVal ip() As Byte, ByVal port As UShort, ByVal color As E_ScreenColor_G56, ByVal uAreaId As Byte, ByRef oAreaHeader_G6 As EQareaHeader_G6, ByRef pheader As EQpageHeader_G6, ByVal fontName() As Byte, ByVal str() As Byte) As Integer Public Declare Auto Function bxDual_dynamicArea_AddAreaTxtDetails_WithProgram_6G Lib "bx_sdk_dual.dll" (ByVal ip() As Byte, ByVal port As UShort, ByVal color As E_ScreenColor_G56, ByVal uAreaId As Byte, ByRef oAreaHeader_G6 As EQareaHeader_G6, ByRef pheader As EQpageHeader_G6, ByVal fontName() As Byte, ByVal str() As Byte, ByVal RelateProNum As Byte, ByVal RelateProSerial() As UShort) As Integer End Class