13518219792
一个一个回答吧。
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名申请、网络空间、营销软件、网站建设、内蒙古网站维护、网站推广。
1、CheckBox 的 MouseDown 事件发生在 CheckedChange 事件之前，但这是指在单步调试的状态下，事实上在编译好的程序中，这两个事件是分别处在两个不同的线程中，单纯的考虑时间上的前后没有意义。
2、MouseDown 在先。Scroll 事件发生在滚动条移动的过程中，而 ValueChange 事件发生在滚动条的 Value 属性发生改变的时候，两者没有必然联系。举例，当你用鼠标拖动滚动条移动的时候，这时发生的是 Scroll 事件；松开鼠标键后，Value 属性值改变，这时候触发 ValueChange 事件。另外，如果滚动条的 Value 是通过代码改变的而非鼠标拖动的，是不触发 Scroll 事件只触发 ValueChange 事件。
3、ClientSize 是指控件的工作区的高度和宽度。比如说 form，它的 Size 值是包括标题栏、边框等，而 ClientSize 是工作区，不包括标题栏、边框等。
4、一般是 Load→Paint→Shown。
窗体上添加一个
Label1
Timer1
再添加2个窗体
代码如下：
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now
Select Case Hour(Now)
Case 10
Form2.Show()
Case 11
Form3.Show()
End Select
End Sub
End Class
一定要先在VB中添加excel引用。
在工程中引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择"确定"。表示在工程中要引用EXCEL类型库。
调用excel的工作表中的命令按钮，代码如下：
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls" '打开的工作簿路径名称
SheetName = "sheet1" '命令按钮所在的工作表名
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
……
xlBook.Close (True) '保存并关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
end sub
类似需求我这样处理过，供参考：
1。我在窗体上加了一个label，每次处理过程都会用一个统一的方法来改变其text，从而知道当前的处理过程来自哪里，干了什么
2。通过对这个label的text的读取，就可以控制代码动态添加的过程怎么处理了
3。整个调试过程中，这个label都是可见的，最后交付时将visible属性设置false就行了，将来检查问题时再打开，很方便的。
