1與0的世界

暫停數秒讓cpu可以釋放讓其它工作可以繼續
Application.DoEvents()
System.Threading.Thread.Sleep(1)
使用時機
寫程式時就常常碰到需要寫遞迴或迴圈去執行程式，
因此，迴圈資料跑很久的情況也常發生，
程式就會一直程式而無法跳出程式或執行其它工作，
當然，滑鼠也無法動作...
那在迴圈中就需要加入  Application.DoEvents()
讓程式執行時可以暫停一下讓cpu或滑鼠可以安排其它的工作排程。
但若是只有Application.DoEvents()，程式的功能會正常執行，
但卻會常發生 cpu使用率100%，cpu的資源未釋放掉，
故在Application.DoEvents()下面加入System.Threading.Thread.Sleep(1)
cpu使用率100%的問題也因此解決...

.Net2.0中新增了很多组件，WebClient就是其中一个，功能也很强大，今天拿WebClient做了一个小实验，只用到了一些很简单的功能就可以实现以前不好实现的功能，很方便。
    简单介绍一下WebClient：
    WebClient 类提供向 URI 标识的任何本地、Intranet 或 Internet 资源发送数据以及从这些资源接收数据的公共方法。
    WebClient 类使用 WebRequest 类提供对资源的访问。WebClient 实例可以通过任何已向 WebRequest.RegisterPrefix 方法注册的 WebRequest 子代访问数据。
    注意
    默认情况下，.NET Framework 支持以 http:、https:、ftp:、和 file: 方案标识符开头的 URI。 

            Dim objOS As Object
            For Each objOS In GetObject("winmgmts:{(Shutdown)}").InstancesOf("Win32_OperatingSystem")
                objOS.Win32Shutdown(5)
            Next

Public Class Frm漸層表單
    Private Sub Frm漸層表單_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim brush1 As New System.Drawing.Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(0, Me.Height), Color.White, Color.Blue)
        e.Graphics.FillRectangle(Brush1, 0, 0, Me.ClientSize.Width, Me.ClientSize.Height)
    End Sub

    Private Sub Frmscreensaver_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        Static start As Boolean = True
        Static start_x, start_y As Integer
        If (start) Then
            start_x = e.X
            start_y = e.Y
        End If
        start = False

    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        Dim mail As New MailMessage(Me.TextBox1.Text, Me.TextBox2.Text, Me.TextBox3.Text, Me.RichTextBox1.Text)
        '附加檔案
        If (Me.TextBox4.Text <> "") Then
            mail.Attachments.Add(New System.Net.Mail.Attachment(Me.TextBox4.Text))
        End If

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        WebBrowser1.GoHome()
        While Not WebBrowser1.ReadyState = WebBrowserReadyState.Complete
            Application.DoEvents()
        End While

Public Class CalendarColumn
    Inherits DataGridViewColumn
    Public Sub New()
        MyBase.New(New CalendarCell())
    End Sub

Imports System.Data.SqlClient
Imports System.Web.Security
Imports System.Security.Cryptography
Imports System.Text
Imports System.IO
Imports System.Web.Security.FormsAuthentication

Private Function CheckID(ByVal UserID As String) As Boolean
        Dim AreaNo As Long
        Dim I As Integer
        Dim CheckSum As Long
        Dim AreaCode As String