简单的方式，就是动态的画两条线就好。

类似的，参考

下载信息  [文件大小：288.0 KB  下载次数：35]

点击浏览该文件:鼠标框选效果.table

你试试双缓存。不行，就做个具体的例子上来看看。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=55385&skin=0

画好像不行，用图片吧。

Dim bcs As WinForm.Panel = e.Form.Controls("I_标尺上")
Dim bcz As WinForm.Panel = e.Form.Controls("I_标尺左")
Dim yk As WinForm.Panel = e.Form.Controls("I_样卡")
Dim fnt As New Font("Noto Sans S Chinese Regular",9)
Dim gap As Integer = 3

Dim bmps As new Bitmap(cint(SysInfo.ScreenWidth), bcs.height)
Dim g = graphics.fromimage(bmps)
For i As Integer = 0 To bmps.Width \\ gap
    If i Mod 10 = 0 Then
        g.DrawLine(Pens.Gray,i*gap,0,i*gap,22)
    ElseIf i Mod 5 = 0 Then
        g.DrawLine(Pens.Gray,i*gap,0,i*gap,10)
    Else
        g.DrawLine(Pens.Gray,i*gap,0,i*gap,5)
    End If
    If  i Mod 10 = 2 Then
        g.DrawString( i \\ 10 +1 ,fnt ,Brushes.Gray,i*gap , 10)
    End If
Next
bcs.basecontrol.backGroundimage = bmps

Dim bmpz As new Bitmap(bcz.width, cint(SysInfo.ScreenHeight))
g = graphics.fromimage(bmpz)
For i As Integer = 0 To bmpz.Height \\ gap
    If i Mod 10 = 0 Then
        g.DrawLine(Pens.Gray,0,27+i*gap,22,27+i*gap)
       
    ElseIf i Mod 5 = 0 Then
        g.DrawLine(Pens.Gray,0,27+i*gap,10,27+i*gap)
    Else
        g.DrawLine(Pens.Gray,0,27+i*gap,5,27+i*gap)
    End If
    If i Mod 10 = 2 Then
        g.DrawString( i \\ 10 +1 ,fnt ,Brushes.Gray,10,27+i*gap)
    End If
Next
bcz.basecontrol.backGroundimage = bmpz