未找到

未发布 Edraw Office Viewer component教程(二):将Excel嵌入VB 6并使之自动化
by Harriet666 keys 分享 1494475186338
Edraw office viewer component对于开发人员来说是一个将Microsoft Excel电子表格嵌入到vb.net应用程序中的简单可靠的解决方案。
 
使用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中,但隐藏在开发者功能区栏。
 
以上就是本次教程的全部内容,接下来会有更多相关教程,敬请关注!您也可以在评论者留下你的经验和建议。
【百厂约惠】喜迎2018,CADSoftTools全线产品劲享6.7折!
by Harriet666 keys 分享 1514884931560
CADSoftTools已开发出一系列工业与建筑绘图软件产品。CADSoftTools旨在帮助客户更方便有效地处理设计与项目文档。CADSoftTools在读取、保存和编辑AutoCAD ™ DWG、DXF、 DWF 、HPGL、PLT、SPL、SVG 、 CGM 格式的文件方面具有自主核心技术。旗下产品CAD .NETCADViewXABViewerCAD EditorXCAD VCL EnterpriseWeb CAD SDKCAD DLL等产品深受用户的青睐。
 
CADSoftTools全线产品低至6.7折!全年仅此一次,错过不再有!
 
截止时间:2018.1.31
 
 
CAD.NET是一个在.NET环境中提供解决方案的库,
它支持AutoCAD®DWG,DXF,PLT及其它CAD格式。
 
 
CADViewX一款能让应用程序
具有强大CAD图像浏览和打印
功能的图像处理工具。
 
 
ABViewer是一款高质量的2D/3D文档查看器,
可提供专业的浏览、编辑和转换功能,
支持30多种光栅和矢量图形格式。
 
 
CAD EditorX提供易用
的API和大量的示例方便开发者快速集成。
 
 
 
CAD VCL Enterprise是一个
高品质多功能且含源码的控件。
 
 
 
 
用于通过Internet、Intranet、
Sharepoint、Office 365 及其他在线 HTML5
启用技术查看DWG和其他CAD文件。
 
                                                       
 
CAD DLL是一个为开发者打造的
新版本CAD库,可在支持动态链接
库技术的语言中添加CAD功能到应用程序中。
 
 

更多CADSoftTools产品点击查看>>>

未发布 邮件客户端WebMail Pro v7.7.4发布,在线订购限时75折优惠!
by Harriet666 keys 分享 1496393211510

AfterLogic WebMail Pro是基于网页并以脚本开发的邮件客户端。能以前端模式与现有的邮件服务器或内置邮件服务器工作。

WebMail Pro最新版下载>>>

WebMail Pro


V7.7.4更新内容:

  • 更新Tenants REST API。
  • 更新法语翻译。
  • 正确处理多个IMAP-quota值(webmail.default-imap-quota-name)。
  • 语言自动检测现在可用作配置选项。
  • 修复了Helpdesk客户端屏幕的错误。
  • 修复首次登录时提示“上次登录”信息的错误。
  • 修复其他Bug。

试用、下载、了解更多产品信息请点击"咨询在线客服"   

未发布 MailBee.NET Objects发送电子邮件(SMTP)教程三:没有SMTP服务器的情况下发送消息
by Harriet666 keys 分享 1493716753597
 
发送消息的最简单的方法是使用Smtp类的QuickSend方法(此方法是静态的,不需要你创建Smtp类的实例)。
 
即使没有SMTP服务器,QuickSend方法也可以发送电子邮件。该方法通过向网络设置中注册的DNS服务器进行查询,确定哪些服务器接收电子邮件的To / CC / BCC字段中指定的域的邮件,然后将电子邮件直接发送到收件人的邮件服务器。
C#:
MailBee.SmtpMail.Smtp.QuickSend("jdoe@domain.com", "bill@domain.com", "Subject", "Message Body");           
VB.NET:
MailBee.SmtpMail.Smtp.QuickSend("jdoe@domain.com", "bill@domain.com", "Subject", "Message Body")
 
如果要手动指定DNX MX查找DNS服务器,可以编辑应用程序的app.config或web.config文件,并将MailBee.DnsMX.DnsServerCollection键放该位置。有关详细信息,请参阅DnsAutodetectOptions文档。
 
备用(和更高级)的方法是创建Smtp对象并手动指定DNS服务器的IP地址:
C#:
mailer.DnsServers.Add("127.0.0.1");                                                          
VB.NET:
mailer.DnsServers.Add("127.0.0.1")
 
要通过检查系统属性自动填充Dns服务器,请使用Autodetect方法(顺便说一下,QuickSend方法可以使用Autodetect来确定可用的DNS服务器列表):
C#:
mailer.DnsServers.Autodetect();                                                     
VB.NET:
mailer.DnsServers.Autodetect()
 
此外,你可以指定用于调整在系统中注册的DNS服务器的自动检测选项。有关详细信息,请参阅DnsAutodetectOptions文档。
 
注意:由于发送垃圾邮件的人经常使用直接发送操作,因此许多邮件服务不接受来自未知主机的邮件提交。建议仅从指定的MX、PTR和SPF记录的域执行直接发送操作。在这种情况下,接收邮件的主机将能够验证发件人的域名并接受邮件提交请求。
 

试用、下载、了解更多产品信息请点击"咨询在线客服"   
未发布 用户界面控件TMS IntraWeb Component Pack Pro发布v5.8.8.1丨附下载
by Harriet666 keys 分享 1507541970691
IntraWeb的TMS控件允许从Delphi IDE直接在IntraWeb表格上编辑设计期间的网页。IntraWeb的TMS控件允许以RAD方法用Delphi进行网页应用程序的开发。这使得网页开发就像在表格上放控件一样简单。
 
 
v5.8.8.1

修复:
  • IntraWeb 14.2.x兼容性
 
v5.8.8.0

新增:
  • 支持RAD Studio 10.2 Tokyo
修复:
  • IWResponsiveList:异步滚动问题
  • IWDateSelector:显示粗体和斜体字体样式的问题
  • IWAdvWebGrid:在DynEdit中显示减号的问题
 
v5.8.7.0

新增:
  • 支持IntraWeb 14.1.4
修复:
  • IWHTMLRadioGroup:IW 14.1.4兼容性
 
v5.8.6.0

改进:
  • IWMultiColumnComboBox:对齐
修复:
  • IWResponsiveList:滚动列表时可能出现问题
  • IWMultiColumnComboBox:DropDownImage属性的设计时间功能
  • IWDatePicker:在较新的IW版本中设置可见性问题
  • IWAdvWebGrid:内存泄漏
  • IWAdvTreeView:设置SelectedNode属性的问题
 
v5.8.5.0

新增:
  • 支持RAD Studio 10.1 Berlin
修复:
  • IWMultiColumnComboBox:OnAsyncChange事件问题
  • IWAdvMessageDialog:渲染问题

【慧都十四周年庆预热开启!全场满额送七级豪礼,AppleMac笔记本电脑、iwatch、iPad等您来拿!】

活动时间:10月1日-10月30日

未发布 【更新】音频视频组件Audio DJ Studio for .NET更新至v10.0.0.0丨附下载
by Harriet666 keys 分享 1510908199999
Audio DJ Studio for .NET是一款多功能的音频视频组件,它可以轻松把声音播放和混音功能添加到用Visual Studio.NET编写的应用程序中。
 
Audio DJ Studio for .NET v10.0.0.0最新版下载
 
Audio DJ Studio for .NET v10.0.0.0更新内容:
新功能
  • 当通过外部编码器FdkAac.exe作为ShoutCAST和IceCast服务器的源时,添加了对以AAC+(HE-AAC)格式进行流式传输的支持。
  • 支持播放声音,同时通过鼠标手动滚动波形滚动条。
  • 支持从ID3V2标签中检索“PRIV”帧的内容。
  • 自定义流混音器现在可以创建为多声道(最多8个声道),播放器可以连接到混音器的特定扬声器。
  • 自定义流混音器现在支持“环绕模式”,这意味着立体声或单声道音频流可以在流混音器的所有输出通道上进行镜像。
  • 支持以HLS格式(HTTP Live Streaming)进行流媒体回放
  • 回放期间显示在波形视觉反馈上的峰值现在通过专用事件报告给容器应用程序。
  • 增加了对回放、单声道、立体声和多声道音频流的峰值电平和RMS(均方根)电平进行检索的支持。
  • 现在可以通过特定的日期和时间来设置延迟播放。
  • 增加了从波形分析仪中检索包含波形峰值的缓冲区的可能性。
 
新方法
  • StreamMixerCreateWithSurround
  • StreamMixerPlayerAddToSpeaker
  • StreamPeakLevelsGet
  • DelayedPlayback.ListAddItemByDate
  • DelayedPlayback.ListAddItemByDateEx
  • Fader.Stop
  • TagsReader.ID3V2_PrivateFrameFileGet
  • TagsReader.ID3V2_PrivateFrameMemoryFileGet
  • TagsReader.ID3V2_PrivateFrameOwnerGet
  • TagsReader.ID3V2_PrivateFrameSizeGet
  • Waveform.PeaksBufferLengthGet
  • Waveform.PeaksBufferGet
  • WaveformScroller.PlaybackOnScrollEnable
  • WaveformScroller.PlaybackOnScrollInfoGet
 
新事件
  • WaveformValueChange
未发布 企业级界面开发工具包Essential Studio Enterprise Edition发布2017 v4丨附下载
by Harriet666 keys 分享 1512637148118

Essential Studio企业版是一个企业级界面开发工具包,包含800多个.NET和JavaScript平台的组件和框架。使用Essential Studio企业版,开发者可以创建丰富的应用程序,并轻松地集成商业智能分析和报告解决方案。Essential Studio企业版是世界级的软件组件,它使得开发者能在最苛刻的环境下开发出高质量的软件。

Essential Studio 2017 v4最新版下载>>>

Essential Studio 2017 v4更新内容

JavaScript


   充分利用JavaScript

    • Essential JS 2是下一代的JavaScript组件套件

    • 支持Ember框架

    • 新的组合框架

 

Xamarin.Forms


   构建跨平台的应用程序

    • 新的图表控件

    • 数据网格的多列分组

    • 图像编辑器的缩放和平移功能

 

Xamarin.iOS


   用C#创建优秀的iOS应用程序

    • 新的图表控件

    • 图像编辑器的缩放和平移功能
 

Xamarin.Android


   用C#开发Android应用程序

    • 新的图表控件

    • 图像编辑器的缩放和平移功能

 

ASP.NET Core


   发布卓越的Web应用程序

    • 新的日期范围选择器

    • 新的组合框

    • 新的pivot客户端控件

 

ASP.NET MVC


   创建Web应用程序

    • 新的组合框

    • 服务器下拉列表

    • 树形网格控件的堆叠标题

 

ASP.NET Web Forms


   开发大师级网站

    • 新的组合框

    • 服务器下拉列表

    • 树形网格控件的堆叠标题

 

UWP


   开发跨Windows生态系统

    • 新的图像编辑器

    • 史密斯图

    • 支持富文本框从右到左

 

WPF


   桌面控制

    • 史密斯图

    • 数据网格的行拖放

    • 支持富文本框从右到左

 

Windows Forms


   创建更好的APP

    • 电子表格的数组公式计算

    • 日期时间选择器的Office 2016主题

    • ribbon控件的快速访问工具栏图标功能

未发布 Oracle MySQL 5.5和5.6正受到Riddle漏洞影响,请立即更新到5.7!丨附下载
by Harriet666 keys 分享 1492666027332

流行的数据库管理系统(DBMS)Oracle MySQL 中发现了被称为“The Riddle”的编码漏洞,该漏洞允许攻击者利用MiTM(man-in-the-middle,中间人)来窃取用户的用户名和密码等登录凭证。用户请立即更新到5.7版本。

【MySQL v5.7点击下载>>>】

中间人攻击(MiTM)


MiTM 攻击(Man-in-the-MiddleAttack)是一种“间接”的入侵攻击,这种攻击模式是通过各种技术手段将受入侵者控制的一台计算机虚拟放置在网络连接中的两台通信计算机之间,这台计算机就称为“中间人”。例如SMB会话劫持、DNS欺骗等攻击都是典型的MITM攻击。

Riddle漏洞


Riddle漏洞是Oracle MySQL 5.5和5.6客户端数据库中发现的关键安全漏洞。该漏洞允许攻击者使用‘中间人攻击’来破坏MySQL客户端和服务器之间的SSL配置连接。这个漏洞是一个非常关键的安全漏洞,因为它影响到MySQL(一个非常流行的SQL数据库,SSL连接由其定义安全。)

该漏洞编号为“CVE-2017-3305”,可以潜在地将用户登录凭证暴露给攻击者,当MySQL客户端5.5和5.6将这些用户凭证信息发送到服务器时,攻击者就能够顺利捕获它们。

针对5.5.49和5.6.30版本发布的安全更新无法完全解决这一安全漏洞。5.7及更高版本以及MariaDB系统不受该安全问题的影响。

根据安全研究人员 Pali Rohár 所言,他们曾经尝试利用影响MySQL数据库的BACKRONYM漏洞的修补方式来修复Riddle漏洞,但是结果失败了。Backronym漏洞也同Riddle漏洞一样,允许攻击者运行中间人攻击来窃取用户登录凭证,即使流量已经被加密也无法阻止。

MySQL 5.5.49以及5.6.30 稳定版的安全更新包括在验证过程完成后添加安全参数的验证。因为验证完成后,攻击者可以使用中间人攻击与 SSL 降级攻击来窃取用户的登录数据,以便立即进行身份验证并登录 MySQL 服务器,可笑的部分是,MySQL 客户端不会在MySQL服务器拒绝验证用户时报告任何与 SSL 问题相关的错误,而是报告服务器发送的未加密的错误信息。此外,当中间人攻击处于活跃状态时,错误信息可以由攻击者控制。

更新建议


安全专家建议用户尽快将客户端软件更新到MySQL 5.7 或 MariaDB,因为这些应用程序的安全更新正在正常运行,未受该安全漏洞影响。需要注意的是,这个漏洞虽然早在今年2月份就已经发现了,但是目前仍然在影响Oracle MySql软件。

如果你不是Oracle 用户,那么你对他们报告安全漏洞是无用的(即使确实是与安全相关的漏洞)。他们可以完全无视这些安全报告,甚至希望任何人都不要知道这些报告和漏洞的存在,所以至此他们都没有对漏洞进行修复。所以,立即向用户公开披露这些安全漏洞看来是最有效的解决方案,因为这样可以让用户知道一旦受影响应该做什么,有效的保护用户数据安全。

 试用、下载、了解更多产品信息请点击"咨询在线客服"   

未发布 邮件客户端WebMail Pro更新至v7.7.7丨附下载
by Harriet666 keys 分享 1516180735591
AfterLogic WebMail Pro是基于网页并以脚本开发的邮件客户端。能以前端模式与现有的邮件服务器或内置邮件服务器工作。
 

WebMail Pro

 
v7.7.7更新内容
  • 纯文本编辑器功能 - “webmail.allow-compose-plain-text”和“webmail.compose-plain-text-default”设置(config.php)。
  • 按域启用/禁用组件功能(仅适用于Aurora)。
  • 修复了几个潜在的漏洞。
 
v7.7.6更新内容
  • Dropbox API更新至版本2。
  • 更新了Ubuntu/Debian的WebMail Lite软件包。
  • 波兰语翻译更新。
  • 修复了XSS漏洞。
未发布 GIS软件开发工具包TatukGIS Developer Kernel更新至v11.5,修复紧急问题
by Harriet666 keys 分享 1498556827991
GIS定制开发首选控件,帮您轻松搞定高效、优质、实惠的GIS解决方案

TatukGIS Developer Kernel(DK)是一个用于开发自定义地理信息系统(GIS)应用程序以及解决方案的综合性软件开发工具包(SDK)。众所周知,构建一个庞大的地理信息系统需要花费大量的金钱和人力,而TatukGIS却是同类产品中性价比最高的控件,TatukGIS Developer Kernel DK因其功能强大,价格适中,已被超过 50个国家的个人、公司、以及政府等客户用来实现其地理信息系统解决方案。根据不同地首选开发环境,本产品分别以五个独立产品的形式提供(即VCL、.NET/WPF、ActiveX、Compact Framework和ASP.NET),各个产品使用相同的框架、应用程序编程接口(API)技术。
 
v11.5更新内容:
  • 修复Winforms/WPF SharpDX渲染器内存泄漏的关键问题。
  • 修复了VCL Hi-DPI相关问题(比如RAD Studio 10.1 Berlin之前版本的低分辨率对话框的尺寸不正确)。[DK-9287],[DK-9278]
  • WinForms/WPF对话框加入阿拉伯语和希伯来语翻译。 [DK-9255]
  • WinForms/WPF是Hi-DPI aware。 [DK-9277]
  • 其他修复。

 近期热门 - 点击最多
  1. python基于asyncio实现 Redis 的异步操作哈希数据写入 / 读取、发布订阅消息中间件
  2. Node.js 打印vite react+go项目目录树
  3. Angular入门:用Signals状态管理和Bootstrap基础样式实现的用户登录注册实例教程
  4. 用Gitea搭建免费Git服务器自定义Actions配置CI/CD自动化部署和测试流水线
  5. FastAPI+SQLModel+PostgreSQL+React+Vite全栈项目文件结构说明环境搭建与初始化指南
  6. React结合vite使用vue3,在纯typescript的react hooks中使用vue
  7. valtio基于Proxy代理比redux\zustand更简洁的react状态管理库
  8. React Native为http网络请求添加timeout超时异常处理: 用XMLHttpRequest替换fetch发送的区别
  9. React Native使用fetch发送http登陆验证请求失败:无法读取set-cookie并显示network request failed
  10. 克服Redux的缺点在React/Native中使用消息队列,pubsub-js更加简洁的组件间通信和状态传递方法

  全端社区 - 最新回复
  1. 在无管理员权限的情况下,使用安装Python补全 pip临时配置环境变量
  2. Python鉴权方法:Depends 依赖注入;装饰器;与基于Proxy模式的Session状态管理自动计算脏属性;将用户数据存储在Redis中
  3. python基于asyncio实现 Redis 的异步操作哈希数据写入 / 读取、发布订阅消息中间件
  4. Angular入门:用Signals状态管理和Bootstrap基础样式实现的用户登录注册实例教程
  5. 用Gitea搭建免费Git服务器自定义Actions配置CI/CD自动化部署和测试流水线
  6. FastAPI+SQLModel+PostgreSQL+React+Vite全栈项目文件结构说明环境搭建与初始化指南
  7. Node.js 打印vite react+go项目目录树
  8. valtio基于Proxy代理比redux\zustand更简洁的react状态管理库
  9. Windows与Mac通过git ssh和rsync实现文件共享互传
  10. Windows与Mac通过git ssh和scp实现文件共享互传

  开源的 OurJS
OurJS开源博客已经迁移到 OnceOA 平台。

  关注我们
扫一扫即可关注我们:
OnceJS

OnceOA