扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
参考MSDN中的内容:如果Dim xlApp As Excel.Application 这就不是后期绑定了是早期如果将对象分配给声明为 Object 类型的变量,则该对象为“后期绑定”。Dim xlApp As Object
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:申请域名、网页空间、营销软件、网站建设、温江网站维护、网站推广。
Dim xlBook As Object
Dim xlSheet As Object
xlApp = CreateObject("Excel.Application")
' Late bind an instance of an Excel workbook.
xlBook = xlApp.Workbooks.Add
' Late bind an instance of an Excel worksheet.
xlSheet = xlBook.Worksheets(1)
xlSheet.Activate()
' Show the application.
xlSheet.Application.Visible = True
' Place some text in the second row of the sheet.
xlSheet.Cells(2, 2) = "This is column B row 2"
我主要就是在这时候用后期绑定,这样有个好处就是不用理会Excel的版本,2000/2003/2007都能调用.因为定义对象时并没有声明成Excel对象,不好的地方就是速度比较慢
没有pastespecial属性,但有pastespecial方法。
对于 Range 对象,将剪贴板中的 Range 对象粘贴到指定区域中。
对于Worksheet对象,以指定格式将剪贴板中的内容粘贴到工作表上。可用本方法从其他应用程序中粘贴数据,或以特定格式粘贴数据。
第一步:定义两个DataTable对象,并把数据库中的两个表分别读入这两个DataTable对象中;如Dt1用于存储省名表,Dt2用于存储省辖市名表。
第二步:先绑定Dt1,以循环方式向TreeView添加Node。其中,Node.index就是Dt1中id字段的值,Node.Text就是Dt1中name字段的值。
第三步:绑定Dt2,同样以循环方式向TreeView添加Node。这里稍微有点复杂,需先判断下已经存在于TreeView中的节点,如果节点的索引是3,则向这个节点下添加id为3xx的子节点。
获得当前节点的索引值的语句是:dim s as Integer = TreeView1.Nodes(i).Nodes.IndexOf(Node)
为当前节点添加子节点的语句是:TreeView1.Nodes(i).Nodes(s).Nodes.Add(Node)
最后的效果是:TreeView中有北京、上海、山东等节点,点击"山东"则会展开其下面的"济南"、"青岛"、"烟台"等子节点。
请参考下面的描述,这样你就明白了为什么VB6.0不支持后期绑定事件。
因为在VB 6.0中,使用 WithEvents 变量时受到了下列限制条件:
1、WithEvents 变量不能是派生对象变量。也就是说,不能把它声明为 As Object----当声明该变量时必须指定类名。
2、不能把 WithEvents 变量声明为 As New。必须明确地创建事件源对象,并将它赋给 WithEvents 变量。
3、不能在标准模块中声明 WithEvents 变量。只能在类模块、窗体模块以及其它定义类的模块中声明。
4、不能创建 WithEvents 变量数组。
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流