重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
'我给你找到了,设置region属性就可
创新互联建站服务项目包括万年网站建设、万年网站制作、万年网页制作以及万年网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,万年网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到万年省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
Private Sub PictureBox1_DoubleClick(sender As System.Object, e As System.EventArgs) Handles PictureBox1.DoubleClick
If PictureBox1.Region Is Nothing Then
Dim path As New System.Drawing.Drawing2D.GraphicsPath
path.AddEllipse(0, 0, 200, 200)
PictureBox1.Region = New Region(path)
Else
PictureBox1.Region = Nothing
End If
End Sub
'这个双击图片框使其变形,通过GraphicsPath对象可以作出各种形态来,比如可作出文字形状
Dim stringText As String = "我是谁"
Dim family As New FontFamily("Arial")
Dim myfontStyle As Integer = CInt(FontStyle.Italic)
Dim emSize As Integer = 86
Dim origin As New Point(20, 20)
Dim format As StringFormat = StringFormat.GenericDefault
path.AddString(stringText, family, myfontStyle, emSize, _
origin, format)
PictureBox1.Region = New Region(path)
没听说过这种按钮能变椭圆的。但是你可以用图片按钮实现这种效果,即用图片或者Flash作为按钮,加上点击事件就行了。
记得VB6当中有Shape控件,但是VB.net里这个控件不存在了。
提个思路:使用Picture控件或Label控件,通过代码在控件里绘图想要的图形,可以试试。