博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2009年9月30日

摘要: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim l As Integer l = Me.Range("a65536").End(Excel.XlDirection.xlUp).Row MessageBox.Show(l.To... 阅读全文

posted @ 2009-09-30 15:19 VSTO之路 阅读(438) 评论(0) 推荐(0) 编辑

摘要: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.... 阅读全文

posted @ 2009-09-30 15:09 VSTO之路 阅读(303) 评论(0) 推荐(0) 编辑