1 | <div id="dwtcontrolContainer"></div> |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | <input type="button" value="Scan" onclick="AcquireImage();"><script type="text/javascript" data-filtered="filtered"> var DWObject; function Dynamsoft_OnReady(){ DWObject = Dynamsoft.WebTwainEnv.GetWebTwain('dwtcontrolContainer'); } function AcquireImage(){ if(DWObject) { DWObject.IfDisableSourceAfterAcquire = true; DWObject.SelectSource(); DWObject.OpenSource(); DWObject.AcquireImage(); } }</script> |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | <title data-filtered="filtered">Hello World</title><script type="text/javascript" src="Resources/dynamsoft.webtwain.initiate.js" data-filtered="filtered"> </script><script type="text/javascript" src="Resources/dynamsoft.webtwain.config.js" data-filtered="filtered"> </script><input type="button" value="Scan" onclick="AcquireImage();"><div id="dwtcontrolContainer"> </div><script type="text/javascript" data-filtered="filtered"> var DWObject; function Dynamsoft_OnReady(){ DWObject = Dynamsoft.WebTwainEnv.GetWebTwain('dwtcontrolContainer'); } function AcquireImage(){ if(DWObject) { DWObject.IfDisableSourceAfterAcquire = true; DWObject.SelectSource(); DWObject.OpenSource(); DWObject.AcquireImage(); } } </script> |
试用、下载、了解更多产品信息请点击"咨询在线客服"
Office viewer component - 支持Word、Excel、PowerPoint、Visio和Project的vb6、vb.net项目
| Private Sub Form_Load（） EDOffice1.OpenFileDialog'EDOffice1.OpenWord “d：\ test.xlsx” 'EDOffice1.Open“d：\ test.xls”，“Excel.Application” End Sub |
| Private Sub EDOffice_DocumentOpened（） EDOffice1.ProtectDoc 1'XlProtectTypeNormal End Sub |
| 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）; |
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 |
【慧都十四周年庆预热开启！全场满额送七级豪礼，AppleMac笔记本电脑、iwatch、iPad等您来拿！】
活动时间：10月1日-10月30日
试用、下载、了解更多产品信息请点击"咨询在线客服"
| 功能 | 要求 |
| 主要功能 | Windows 98或更高 最低1.2GHzPentium或兼容CPU 256MB内存 50MB可用硬盘 SVGA显卡，256色 |
| 对电影或视图截图 | Windows 2000或更高（文件格式为NTFS） 最低2GHz Pentium或兼容CPU 1GB内存 30GB可用硬盘 专业版SVGA显卡，最低显存256MB （非集成显卡） |
沪公网安备31011202009668号 | 沪ICP备13020027号-2
