vb 怎样用滚动条调节LABEL的宽度，是宽度在调节滚动条是同时向两边延伸

显示全部楼层 · 2011-12-6 21:32:03

改进一下楼上的方法就可以达到楼主的要求了。把分数给楼上吧。Private Sub Form_Load()
Label1.AutoSize = True
HScroll1.Max = Me.Width - Label1.Width - Label1.Left
HScroll1.Min = Label1.Width
HScroll1.SmallChange = 15
HScroll1.LargeChange = 60
Label1.BackColor = vbRedEnd SubPrivate Sub HScroll1_Change()
Label1.Move (Me.W...

千问 · 2011-12-6 21:32:03

Private Sub Form_Load()
Label1.AutoSize = True
HScroll1.Max = Me.Width - Label1.Width - Label1.Left
HScroll1.Min = Label1.Width
HScroll1.SmallChange = 15
H...