锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net如何划线 vb net

IT技术PictureBox

vb.net的label怎么在鼠标移动过来时添加下划线？代码是什么？Label1.Attributes.Add("onmouseover", "this.style.textDecoration='underline'"); //显示下划线
Label1.Attributes.Add("onmouseout", "this.style.textDecoration=''"); //隐藏下划线
VB.Net中画直线问题不想整个重画，最好用单色的背景，例如黑色，线条是白色的
用变量把线条的内容备份
当想改变线条的位置或者长度之前，先用存下来的变量以黑色重画一次，覆盖原来的白色线条
然后再画新的白色线条，这种重画方法比较节省资源
假如需要用花哨的背景或者图片当背景，也可以用局部重回的方式 。
代码就不提供了，只提供思路 。
vb.net中怎么给label设置下划线将Label1 改成相应vb.net如何划线的 label 控件名称 。
'鼠标经过时vb.net如何划线，显示下划线
Private Sub Label1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.MouseEnter
Dim LabelFont As Font = New Font(Label1.Font.Name, Label1.Font.Size, FontStyle.Underline)
Label1.Font.Dispose()
Label1.Font = LabelFont
End Sub
'鼠标离开时vb.net如何划线，去除下划线
Private Sub Label1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave
Dim LabelFont As Font = New Font(Label1.Font.Name, Label1.Font.Size, FontStyle.Regular)
Label1.Font.Dispose()
Label1.Font = LabelFont
End Sub
vb.net drawline画不出线Form_load事件运行的时候vb.net如何划线，窗体里面的控件尚未初始化vb.net如何划线，以下代码经测试可行vb.net如何划线：
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
e.Graphics.DrawLine(Pens.Blue, 0, 0, 111, 111)
End Sub
VB.net中如何在picturebox画线，有什么函数？Dim b As New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim g As Graphics = Graphics.FromImage(b)
g.Clear(Color.White)
Dim p As New Pen(Color.Black)
p.EndCap = Drawing2D.LineCap.ArrowAnchor
g.DrawLine(p, 30, PictureBox1.Height - 30, 30, 30)
g.DrawLine(p, 30, PictureBox1.Height - 30, PictureBox1.Width - 30, PictureBox1.Height - 30)
Dim i As Integer
Dim bs As New SolidBrush(Color.Green)
Dim po As New Point
po.X = 0
po.Y = PictureBox1.Height - 35
For i = 700 To 1000 Step 50
g.DrawString(i, Me.Font, bs, po.X, po.Y)
g.DrawLine(p, po.X28, po.Y5, po.X30, po.Y5)
po.Y -= (PictureBox1.Height - 100) / 6
Next
po.X = 30
po.Y = PictureBox1.Height - 30
For i = 0 To 40 Step 5
g.DrawString(i, Me.Font, bs, po.X, po.Y5)
g.DrawLine(p, po.X, po.Y2, po.X, po.Y)
po.X= (PictureBox1.Width - 100) / 8
【vb.net如何划线 vb net】Next
PictureBox1.Image = b
关于vb.net如何划线和vb net的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：mongodb未找到命令，mongodb丢失数据

    下一篇：pythonn输出最后一位，python输出列表最后一个元素