最近频繁使用异步所以自己综合的学习了一把异步相关的知识，自己稍加整理了一下（这也是我试着写的第一篇，如果有不对的，希望大神来指正！）

首先是 委托实现的异步

class Program
{

public delegate int weituo();//定义了个委托

public int xxx()
{
Thread.Sleep(3000);
Console.WriteLine("11111.");

return 1;
}

///定义了个方法

static void Main(string[] args)
{

weituo a  =new weituo(new Program().xxx);

IAsyncResult result= a.BeginInvoke(null,null);

Console.WriteLine("1234");
Thread.Sleep(1000);
int i= a.EndInvoke(result);
Console.WriteLine("1235");
Console.WriteLine(i.ToString());
Console.ReadLine();

}

}

执行结果如下；

接着是 async /await 的异步实现

class Program
{

public static async void xxx()
{
int i = 0;
await Task.Run(() =>
{
new Program().xxxa();
});
Console.WriteLine("123");
}
public async Task<int> xxxa()
{
Thread.Sleep(3000);
Console.WriteLine("11111.");
return (2);
}
static void Main(string[] args)
{
xxx();
Console.WriteLine("1234");
Console.WriteLine("1235"); 
Console.ReadLine();

}
}

执行结果

如果将

public static async void xxx()
{
int i = 0;
await Task.Run(() =>
{
new Program().xxxa();
});
Console.WriteLine("123");
}

改为

public static async void xxx()

{
int i = 0;
await new Program().xxxa();
Console.WriteLine("123");
}

结果变为

说明，async与await关键字本身并不会产生多线程；

await 不会开启新的线程，当前线程会一直往下走直到遇到真正的Async方法（比如说HttpClient.GetStringAsync），这个方法的内部会用Task.Run或者Task.Factory.StartNew 去开启线程。也就是如果方法不是.NET为我们提供的Async方法，我们需要自己创建Task，才会真正的去创建线程

使用语言：VB.NET
原网站：https://*.com/questions/53862825/how-to-remove-the-white-lines-surrounding-a-button-appearing-when-i-click-it/53867195?noredirect=1#comment94614321_53867195

问题描述

在我用鼠标点击，然后弹出一个文件选择对话框前，按钮没有异常，但之后它的周围出现了一圈白线。

只有一句代码openFileDialog1.ShowDialog()。
按钮的FlatStyle属性为flat，BackgroundImage是一张PNG格式的图像。
白线出现后，点击窗体它就会消除。

解答

一个简单的办法是把按钮的FlatAppearance.BorderColor属性设置成Parent.BackColor，即它的“容器”的背景色。这会重写焦点框。MouseUp事件可以被用来设置其值，它将在新窗口出现前被引发。

Private Sub SomeButton_MouseUp(sender As Object, e As MouseEventArgs) Handles SomeButton.MouseUp
    Dim ctl As Button = DirectCast(sender, Button)
    ctl.FlatAppearance.BorderColor = ctl.Parent.BackColor
End Sub

使用Control.Paint事件，我们也可以更改Control.BackColor属性来重绘边框，也可以用ControlPaint类中的DrawBorder方法（比使用ButtonRenderer类简单）

Private Sub SomeButton_Paint(sender As Object, e As PaintEventArgs) Handles SomeButton.Paint
    Dim ctl As Button = DirectCast(sender, Button)
    ControlPaint.DrawBorder(e.Graphics, ctl.ClientRectangle, ctl.BackColor, ButtonBorderStyle.Solid)
End Sub

或者，也可以自己重绘控件的边框：
（要注意的是ClientRectangle的Width和Height必须被缩小1像素）

Private Sub SomeButton_Paint(sender As Object, e As PaintEventArgs) Handles SomeButton.Paint
    Dim ctl As Control = DirectCast(sender, Control)
    Dim r As Rectangle = ctl.ClientRectangle
    Using pen As Pen = New Pen(ctl.BackColor, 1)
        e.Graphics.DrawRectangle(pen, r.X, r.Y, r.Width - 1, r.Height - 1)
    End Using
End Sub