C# GDI+ 自绘按钮的问题 http：//wenwen.soso.com/z/q258134892.htm 这是我上次回答的淡入淡出楼主可以参见一下 使用CreateRoundRectRgn 来设置需要创建的圆角矩形大小和圆角半径 SetWindowRgn 用。
vb怎么画图？ VB画图最好调用API，自带的画图的命令是沿用Basic的东西。
vb 怎么画圆角矩形 请用 API 函数 RoundRect。例子（点击窗体，画圆角矩形）：Private Declare Function RoundRect Lib\"gdi32\"(ByVal hdc As Long，ByVal X1 As Long，ByVal Y1 As Long，ByVal X2 As Long，ByVal Y2 As Long，ByVal X3 As Long，ByVal Y3 As Long)As LongPrivate Sub Form_Click()Call RoundRect(Me.hdc，10，10，110，110，10，10)End Sub参数：hdc 设备上下文。比如 Me.hDC，Picture1.hDC就可以。X1，Y1 左上角X2，Y2 右下角X3，Y3 圆角内偏移（即圆角半径，0表示直角）上面的坐标什么的都以像素计，不同于VB默认的Twip
请问一下VB问题 Private Declare Function SetWindowRgn Lib\"user32\"(ByVal hWnd As Long，ByVal hRgn As Long，ByVal bRedraw As Boolean)As Long '设置窗口形状 Private Declare Function 。
求教VB实现仅两个圆角窗体的方法 '圆角Private Declare Function CreateRoundRectRgn Lib\"gdi32\"(ByVal X1 As Integer，ByVal Y1 As Integer，ByVal X2 As Integer，ByVal Y2 As Integer，ByVal x3 As Integer，ByVal y3 As Integer)As LongPrivate Declare Function DeleteObject Lib\"gdi32\"(ByVal hObject As Long)As LongPrivate Declare Function SetWindowRgn Lib\"User32\"(ByVal hWnd As Long，ByVal hrgn As Long，ByVal bRedraw As Boolean)As Long'圆角Private Sub Form_Load()Dim hround1hround1=CreateRoundRectRgn(0，0，ScaleX(Form1.Width，vbTwips，vbPixels)，ScaleY(Form1.Height+200，vbTwips，vbPixels)，19，19)'+200就只有上面两个圆角了SetWindowRgn Me.hWnd，hround1，TrueDeleteObject hround1End Sub
VB.NET 中GDI+绘图问题 贴一下画棋子的主要代码。
在VB6用GDI 绘制文字却得到无文字绘制上去的空白图 Picture1.AutoRedraw=FalseSet Picture1.Picture=Picture1.ImageSavePicture Picture1.Picture，StrDir&\"\\bmp.bmp
VB.NET怎么应用GDI画串口通讯数据的实时曲线 拖一个PictureBox1控件创建一个Paint事件。在事件中加入Private Sub PictureBox1_Paint(ByVal sender As Object，ByVal e As System.Windows.Forms.PaintEventArgs)Handles PictureBox1.Paint' Create pens.Dim redPen As New Pen(Color.Red，3)Dim greenPen As New Pen(Color.Green，3)' Create points that define curve.Dim point1 As New Point(50，50)Dim point2 As New Point(100，25)Dim point3 As New Point(200，5)Dim point4 As New Point(250，50)Dim point5 As New Point(300，100)Dim point6 As New Point(350，200)Dim point7 As New Point(250，250)Dim curvePoints As Point()={point1，point2，point3，point4，_point5，point6，point7}' Draw lines between original points to screen.e.Graphics.DrawLines(redPen，curvePoints)' Draw curve to screen.e.Graphics.DrawCurve(greenPen，curvePoints)End Sub得到数据后，改point的数据。然后PictureBox1.Refresh()就行了
