在两个控件间建立分劈条的简单方法-.NET教程,组件控件开发

窗体中控件picsep,text1,text2

option explicit

private sub form_load()

picsep.borderstyle = 0

picsep.width = 50

picsep.mousepointer = vbsizewe

end sub

private sub form_resize()

on error resume next

text1.move 0, 0, picsep.left, me.scaleheight

text2.move picsep.left + picsep.width, 0, me.scalewidth – picsep.left – picsep.width, me.scaleheight

end sub

private sub picsep_mousemove(button as integer, shift as integer, x as single, y as single)

if button = vbleftbutton then

picsep.left = picsep.left + x

form_resize

end if

end sub