未发布 Edraw Office Viewer component教程（二）：将Excel嵌入VB 6并使之自动化
使用Edraw office viewer component，vb开发人员可以轻松地将一个现有的Excel电子表格嵌入到表单中，然后进行自动化。在加载表单时，开发人员可以使用Open方法从硬盘驱动器或服务器中加载* .xls、* .xlsx、* .xslm或* .cvs文件，并在窗口的某个区域中打开。Excel文件可以是只读、完全编辑或禁止保存等状态。开发人员还可以使用excel组件轻松实现excel自动化。
本文将演示如何逐步将Excel嵌入到VB中。如果你没有officeviewer.ocx文件，请先安装。
Office viewer component - 支持Word、Excel、PowerPoint、Visio和Project的vb6、vb.net项目
在VB 6中嵌入Excel组件
启动Visual Basic并创建一个新的标准项目。默认情况下创建Form1。
在“工具箱”面板中，右键单击空白区域。然后单击Component...
在弹出的对话框中，查看Edraw Office Viewer Component。
单击确定按钮。
Office Viewer Component便已添加到“工具栏”窗口中。
切换到VB 6窗口，然后添加组件。
该组件包括许多自定义Excel窗口的方法、事件和属性。
开发人员可以使用以下代码在Form_Load事件中打开一个excel文件。
Private Sub Form_Load（）
EDOffice1.OpenFileDialog'EDOffice1.OpenWord
“d：\ test.xlsx”
'EDOffice1.Open“d：\ test.xls”，“Excel.Application”
End Sub |
为了保护Excel工作表不被最终用户修改，开发人员需要在DocumentOpened事件中添加以下代码。
Private Sub EDOffice_DocumentOpened（）
EDOffice1.ProtectDoc 1'XlProtectTypeNormal
End Sub |
一些包含excel自动化的方法可用于创建或修改Excel数据。
bool ExcelAddWorkSheet（long Index）;
bool ExcelDeleteWorkSheet（long Index）;
bool ExcelActivateWorkSheet（long Index）;
长ExcelGetWorkSheetCount（）;
bool ExcelSetCellValue（long Column，long Row，BSTR Value）;
BSTR ExcelGetCellValue（长列，长行）;
bool ExcelSetRowHeight（long Row，double Height）;
bool ExcelSetColumnWidth（long Column，double Width）;
afx_msg bool ExcelDeleteRow（long Row）;
bool ExcelDeleteColumn（long Column）;
bool ExcelInsertRow（long Row）;
bool ExcelInsertColumn（long Column）;
bool ExcelInsertPageBreakInRow（long Row）;
bool ExcelInsertPageBreakInColumn（long Column）;
bool ExcelCopyToClipboard（）;
bool ExcelPasteStringToWorksheet（BSTR bstText）; |
使用Visual Basic自动化操作Excel
单击项目，然后单击引用。将显示“引用”对话框。向下滚动列表，找到Microsoft Excel object库（Microsoft Excel xx.x Object库），然后选择引用Excel。如果列表中没有正确的Excel Object库，请确认你是否安装了合适的Excel版本。
单击“确定”关闭“引用”对话框。
将CommandButton添加到Form1。
在Form1的代码窗口中，插入以下代码：
Private Sub Command1_Click() Dim oXL As Excel.Application
Set oXL = EDOffice1.GetApplication()
Dim oWB As Excel.Workbook
Set oWB = EDOffice1.ActiveDocument()
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range
Set oSheet = oWB.ActiveSheet
oSheet.Cells(1, 1).Value = "First Name"
oSheet.Cells(1, 2).Value = "Last Name"
oSheet.Cells(1, 3).Value = "Full Name"
oSheet.Cells(1, 4).Value = "Salary"
' Format A1:D1 as bold, vertical alignment = center.
With oSheet.Range("A1", "D1")
.Font.Bold = True
.VerticalAlignment = xlVAlignCenter
End With
' Create an array to set multiple values at once.
Dim saNames(5, 2) As String
saNames(0, 0) = "John"
saNames(0, 1) = "Smith"
saNames(1, 0) = "Tom"
saNames(1, 1) = "Brown"
saNames(2, 0) = "Sue"
saNames(2, 1) = "Thomas"
saNames(3, 0) = "Jane"
saNames(3, 1) = "Jones"
saNames(4, 0) = "Adam"
saNames(4, 1) = "Johnson"
' Fill A2:B6 with an array of values (First and Last Names).
oSheet.Range("A2", "B6").Value = saNames
' Fill C2:C6 with a relative formula (=A2 & " " & B2).
Set oRng = oSheet.Range("C2", "C6")
oRng.Formula = "=A2 & "" "" & B2"
' Fill D2:D6 with a formula(=RAND()*100000) and apply format.
Set oRng = oSheet.Range("D2", "D6")
oRng.Formula = "=RAND()*100000"
oRng.NumberFormat = "$0.00"
' AutoFit columns A:D.
Set oRng = oSheet.Range("A1", "D1")
oRng.EntireColumn.AutoFit
oXL.UserControl = True
End Sub |
按F5运行项目。Excel将自动填充excel单元格。
自动化Excel时要注意的一点是Excel Macro Recorder。它仍然在Word 2007中，但隐藏在开发者功能区栏。
以上就是本次教程的全部内容，接下来会有更多相关教程，敬请关注！您也可以在评论者留下你的经验和建议。
未发布 Edraw Max（亿图图示）新技能：在软件上进行反激活 Edraw Max（亿图图示）8.7以上的版本，新增了“反激活”功能，也就意味这用户以后可以自主进行反激活。Edraw Max（亿图图示）一个产品秘钥支持两台电脑同时使用，如果超过两台电脑，则需要清除其中一台电脑的绑定，也就是反激活操作。又或者因为某些原因导致电脑需要重装系统，那么，你也需要进行反激活。否则，就会出现产品秘钥失效的情况。
本文将详细介绍Edraw Max（亿图图示）8.7以上版本在软件上应该如何进行反激活操作!目前Edraw Max（亿图图示）在线订购享75折优惠活动正在进行中，欢迎您下载、购买进行运用！
首先，请确定软件是8.7及其以上版本，软件版本查看如下图所示：
如果已经是8.7以上版本的，就可以通过软件一键“反激活”按钮，来进行反激活操作了。
第一步：点击软件上方菜单栏“帮助”中的“反激活”，然后系统会弹出一个提示框，确认信息后点击“反激活”。
第二步：当提示反激活成功后，软件会自动关闭。
第三步：再次打开软件，软件就显示为试用版本的了。
接下来你就可以任意的换电脑，重装系统了。当这一切都准备完毕，软件也重新下载、安装好了，最后只需要按照一般的激活方法，使用原来的产品密钥激活软件就可以了!
总而言之，如果你要换电脑了，请提前进行反激活；如果你的电脑需要重装系统，也请提前反激活。
温馨提示：首次反激活即刻生效，以后再进行反激活则需30天的冷却期。
未发布 电子邮件.NET控件MailBee.NET Objects v11.0发布丨附下载 几行代码便可为应用程序添加E-Mail支持，简单高效。MailBee.NET Objects 是一款为创建、发送、接收以及处理电子邮件而设计的健壮、功能丰富的.NET控件。具备“必需”以及独特的功能，这些控件帮助开发人员简单快速地将复杂的电子邮件功能添加到他们的应用程序中。
MailBee.NET Objects 更新至v11.0，增加新的Ews组件、新的密钥格式并与Visual Studio 2017进行测试。
MailBee.NET Objects v11.0点击下载>>>
更新内容：
新的Ews组件，通过其本地EWS协议访问MS Exchange服务器。
.NET Framework 3.5和4.0版本以及2.0和4.5版本现在包含在安装程序和NuGet包中。
所有.NET版本的MailBee.NET.dll现在具有相同的名称。
所有MailBee.NET DLL都添加了sha256签名（除了sha1）。
IDN域（具有国际域的电子邮件地址）支持发送和解析。
使用MailMessage.GetHtmlWithBase64EncodedRelatedFiles方法来保存HTML主体，相关图像直接嵌入到HTML中，这样就不需要在本地保存它们并在以后删除它们。
STARTTLS安全连接现在支持直接发送模式。要激活，请使用mailer.DirectSendDefaults.EnableStartTls = true，其中mailer是Smtp实例。
SecurityProtocol现在包括TlsAuto值，你可以使用该值来限制MailBee使用最佳支持的TLS协议（最高为TLS 1.2）。例如， imapClient.SslProtocol = SecurityProtocol.TlsAuto其中imapClient是Imap实例。
Imap.GetSpecialFolder方法，轻松找到文件夹例如已发送信息或草稿。
Imap，Smtp，Pop3类的GetStream方法现在允许你访问底层网络流。
支持Outlook 2016.MSG格式。
支持.PST文件中的通讯组列表。
添加MailMessage.Sender属性。
新的Logger.DateTimeFormatTimeOnly和Logger.DateTimeFormatFull属性在日志文件中配置了日期时间格式。
Bounce数据库已更新。
与Visual Studio 2017进行测试。
许可证密钥采用新的MN110格式。如果你有有效的维护合同，请与我们联系以接收你的新密钥。如果你的合同已经过期，请先更新。
未发布 MySQL的查询优化方法及原理详解丨附下载 关于MySQL的查询优化方法大家应该都知道一些：不使用NULL字段、为字段选择合适的数据类型、合理创建索引、不能使用SELECT *等等，但是你真的理解了这些优化方法了吗？它们的工作原理是什么？在实际运用中性能可以得到提升吗？其实未必。如何合理运用这些优化方法的前提是理解其中原理，希望本文能给你一定的帮助。
MySQL逻辑架构
如果能在头脑中构建一幅MySQL各组件之间如何协同工作的架构图，有助于深入理解MySQL服务器。下图展示了MySQL的逻辑架构图。
MySQL逻辑架构
MySQL逻辑架构整体分为三层，最上层为客户端层，并非MySQL所独有，诸如：连接处理、授权认证、安全等功能均在这一层处理。
MySQL大多数核心服务均在中间这一层，包括查询解析、分析、优化、缓存、内置函数(比如：时间、数学、加密等函数)。所有的跨存储引擎的功能也在这一层实现：存储过程、触发器、视图等。
最下层为存储引擎，其负责MySQL中的数据存储和提取。和Linux下的文件系统类似，每种存储引擎都有其优势和劣势。中间的服务层通过API与存储引擎通信，这些API接口屏蔽了不同存储引擎间的差异。
点击查看完整文章>>>
未发布 Windows网络守门人UserLock教程：UserLock教程：阻止规定时间以外的访问连接 UserLock免费下载试用>>>
UserLock允许您创建规则用来阻止用户在授权时间以外连接到网络。本文将一步一步的教您如何制定规则来阻止用户工作站和终端连接超出工作时间：
- 周一至周五，8:00至19:00。
- 周六上午，9:00至13:00。
并且将在到达时限后强制任何会话的注销打开。
1、点击菜单中的“受保护的帐户”。如果已存在则可以通过双击相应的行来打开所需的用户帐户。否则，您可以为目标组创建受保护的帐户。
2、显示“时间限制”部分。
3、选择“以下时间范围”下拉列表的'被授权'选项。
4、点击“添加”来定义时间段。
5、定义具体的时间范围。选择“交互”作为会话类型来选择哪些类型的会话，包括工作站和终端会话类型。点击“确定”。
6、检查相应的日期框 - 星期一至星期五。点击“确定”。
7、调整时间为上午8:00至下午7:00。点击“确定”以验证第一个授权的时间范围。
8、您现在必须为星期六定义第二个时间范围。再次点击“添加”。
9、定义第二个时间框架，即星期六上午9:00至下午1:00。再次选择“交互”作为会话类型，包括工作站和终端会话类型。点击“确定”。
10、取消选中从星期一到星期五的框，而是选中星期六的框。点击“确定”。
11、调整时间为上午9:00至下午1:00。点击“确定”添加第二个时间框架。
您已经成功定义了与授权时间相对应的两个时间范围。用户在这些时间以外的连接将被拒绝。
12、要在时间限制后注销用户会话，请调整“超时时采取的行动”为“注销会话”选项。
请注意，强制注销表示所有未保存的文档将丢失。下一步允许您自定义警。
13、要警告用户授权时间已经结束，将“注销通知超时”设置为“已启用”，并输入几分钟，在此分钟内将显示警告消息框（在我们的示例中为15）。
14、在“快速访问”面板中单击“确定”以验证规则。
“Everyone”组的用户成员将被允许在授权时间内打开工作站或终端会话的权限。达到时限的会话将被注销，并发出预警通知。所有工作站和终端连接超出规定的时间将被拒绝。
您可以在“消息”视图中自定义“注销通知超时”内容。通知消息参考是“TIME_RESTRICTION_LOGOFF”。
未发布 Essential Studio for Xamarin更新2017 v2，新增sunburst图表控件丨附下载 Essential Studio for Xamarin是全面的Xamarin.iOS、Xamarin.Android和Xamarin.Forms组件套包，包含最快的图表和网格。Essential Studio for Xamarin更新至2017 v2版本，新增sunburst图表控件和许多其他功能。
Essential Studio for Xamarin 2017 v2新功能
sunburst图表
sunburst图表对于可视化分层数据非常有用。中心圆表示结构的根，外圈表示结构的更高级别。
主要特征
新的图像编辑器
增加了一个新的图像编辑器，包含以下功能：
图像裁剪
文字和形状的图像注释
图像旋转和翻转
用于自定义的交互式工具栏
列表显示
自动适应
列表项目可以根据内容自动调整，并且在进入视图时可按需查询每个项目的大小。
实时更新
在运行时对底层执行移动和替换操作时自动刷新视图。
PDF查看器（预览）
文本搜索
搜索文本功能已经添加到XAMarin.Forms的PDF查看器中，允许用户在PDF文档中查找搜索文本实例。
演示
注释功能
可以在PowerPoint演示文稿中创建和修改注释。
数据网格
表格摘要
数据网格控件支持在视图的顶部或底部显示表格摘要信息。
数据模板选择器
数据网格控件支持模板列中的数据模板选择器，并根据用户的需要自定义单元格模板。
调整大小
数据网格控件支持调整大小功能，允许在平移或平移完成时调整列的大小。
计划表
性能改进
控制性能提升以便处理大量的计划。加载性能也得到改善，以便在运行时更改计划视图时提供更好的体验。
沪公网安备31011202009668号 | 沪ICP备13020027号-2 