如何在vb.net中创建圆角窗体如下所示:
Private Sub Type(ByVal sender As Control, ByVal p_1 As Integer, ByVal p_2 As Double)
Dim oPath As New Drawing2D.GraphicsPath()
oPath.AddClosedCurve(New Point() {New Point(0, sender.Height / p_1), New Point(sender.Width / p_1, 0), New Point(sender.Width - sender.Width / p_1, 0), New Point(sender.Width, sender.Height / p_1), New Point(sender.Width, sender.Height - sender.Height / p_1), New Point(sender.Width - sender.Width / p_1, sender.Height), _
New Point(sender.Width / p_1, sender.Height), New Point(0, sender.Height - sender.Height / p_1)}, CSng(p_2))
sender.Region = New Region(oPath)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Type(Me, 20, 0.1)
End Sub
VB.Net怎么做圆形窗体【vb.net圆形窗口 vb general窗口】设置Region属性:
Dim path As New System.Drawing.Drawing2D.GraphicsPath
path.AddEllipse(0, 0, 400, 300)
Region = New Region(path)
VB.net该如何将图片圆形显示?新建一个Winformvb.net圆形窗口 , 拖两个图片框 。图片框1在设计器中选择一个图片(尺寸在图片框容纳为佳) 。如下代码测试通过vb.net圆形窗口:
private void button1_Click(object sender, EventArgs e)
{
Image img1 = this.pictureBox1.Image;
Image img2 = CropToCircle(img1);
this.pictureBox2.Image = img2;
}
public Image CropToCircle(Image img1)
{
Image img2 = new Bitmap(img1.Width, img1.Height,
img1.PixelFormat);
Graphics g = Graphics.FromImage(img2);
using (Brush br =
new SolidBrush(SystemColors.Control))//背景色
{
g.FillRectangle(br, 0, 0,
img2.Width, img2.Height);
}
GraphicsPath path = new GraphicsPath();
path.AddEllipse(0, 0, img2.Width, img2.Height);
g.SetClip(path);
g.DrawImage(img1, 0, 0);
return img2;
}
关于vb.net圆形窗口和vb general窗口的介绍到此就结束了 , 不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。
推荐阅读
- 苹果手机拨号补电怎么操作,苹果拨号麻烦
- maxclientsredis的简单介绍
- excel置转,excel2010怎么转置
- 有牛的什么直播间,直播看牛什么意思
- python字典内置函数 python字典内置函数打印键
- linux获取更新命令,linux查看系统版本
- 苹果手机地图为什么关不掉,苹果地图不动了
- java代码重复度 java 类重复
- 路由器重新换密码怎么办,路由器重置wifi密码