重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
vb.net中控件都是矩形的,如果一定要看起来是其他形状的,只能用背景图片,一般要三个背景图片,正常时候、鼠标移上时候、按下时候的。分别在按钮的四个事件:MouseHover MouseLeave MouseDown MouseUp的时候更换成相应的背景图片
创新互联公司主要从事成都做网站、网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务麦盖提,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220
用DataGrid的话,得重写(继承Datagrid),你也可以考虑自定义控件,看起来1个TableLayoutPanel,3个label,3个Datagrid就能搞定。
那么我建议你用一个新的窗体完成这个功能。将你可能用到的所有控件画在那个窗体里(照葫芦画瓢),实现你所说的功能应该不成问题。不过工作量是不小。如果你能找到一个合适的第三方控件,就省不少力气。不过要一般的话得花点钱。希望你能找到个免费的(一般都会或多或少有一些Bug),祝你好运吧。
这是win7和xp的兼容性问题,要解决这个问题,点击菜单“项目”--“windowsApplication1属性”,取消“启用XP视觉样式”选项。看图:
'我给你找到了,设置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)