无人机数据链实用方法.docVIP

无人机数据链实用方法 MSFlexGrid控件简介 MSFlexGrid控件显示和操作表格数据。其对包含字符串和图片的表格提供了灵活的排序、插入数据和格式编排功能。当与Data控件绑定时，MSFlexGrid控件只显示只读数据。 你可以在MSFlexGrid中的任何单元放置文本、图片或这二者。Row和Col属性指定MSFlexGrid控件的当前单元。你可以在代码中指定当前单元，也可以在运行时使用鼠标或键盘改变当前单元。Text属性引用了当前单元中的文本。 如果单元中的文本太长以致不能在单元中一行显示，将WordWrap属性置为True将在单元中分多行显示文本。要在单元中显示多行文本，你需要增大单元的宽度（ColWidth属性）或行高度（RowHeight属性）。 使用Cols和Rows属性确定MSFlexGrid控件中的行数和列数MSFlexGrid赋值方法 方法其实比较简单吧，就是通过循环和赋值语句即可实现其全部的赋值： If Adodc1.Recordset.RecordCount 0 Then i = i + 1 MSFlexGrid1.TextMatrix(i, 1) = Adodc1.Recordset.Fields(0) MSFlexGrid1.TextMatrix(i, 2) = Adodc1.Recordset.Fields(1) MSFlexGrid1.TextMatrix(i, 3) = Adodc1.Recordset.Fields(2) MSFlexGrid1.TextMatrix(i, 4) = Adodc1.Recordset.Fields(3) MSFlexGrid1.TextMatrix(i, 5) = Adodc1.Recordset.Fields(4) MSFlexGrid1.TextMatrix(i, 6) = Adodc1.Recordset.Fields(5) MSFlexGrid1.TextMatrix(i, 7) = Adodc1.Recordset.Fields(6) MSFlexGrid1.TextMatrix(i, 8) = Adodc1.Recordset.Fields(7) MSFlexGrid1.TextMatrix(i, 9) = Adodc1.Recordset.Fields(8) End If 如下图显示： 图5.5 选择信号保存 这里我们将选择的雷达信号保存在一个表格里面。用到VB与Excel表格之间的操作。 VB与Excel VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。 一、 VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下： 1、在工程中引用Microsoft Excel类型库： 从工程菜单中选择引用栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择确定。表示在工程中要引用EXCEL类型库。 2、在通用对象的声明过程中定义EXCEL对象： Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet 3、在程序中操作EXCEL表常用命令： Set xlApp = CreateObject(Excel.Application) 创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open(文件名) 打开已经存在的EXCEL工件簿文件 xlApp.Visible = True 设置EXCEL对象可见（或不可见） Set xlSheet = xlBook.Worksheets(表名) 设置活动工作表 xlSheet.Cells(row, col) =值 给单元格（row,col）赋值 xlSheet.PrintOut 打印工作表 xlBook.Close (True) 关闭工作簿 xlApp.Quit 结束EXCEL对象 Set xlApp = Nothing 释放xlApp对象 xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) 运行EXCEL关闭宏 4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作