189 8069 5689
有两种解决方法
成都创新互联专注于太谷网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供太谷营销型网站建设，太谷网站制作、太谷网页设计、太谷网站官网定制、成都小程序开发服务，打造太谷网络公司原创品牌,更为您提供太谷网站排名全网营销落地服务。
在可视化编程中，控件属性里的位置一栏可以设置绝对定位或相对定位，大小可以设置固定大小或相对大小。当设置成相对窗口改变时就能根据窗口大小改变控件位置和大小，但是这种方法只能按百分比改变控件大小和位置，不能大幅改变。
在代码里改变，窗口改变大小时主程序里有相应的监听回调方法，在那个方法中可以根据窗口不同的大小设置各个控件的大小和位置，这种方法更自由更全面，还可以设置控件的其他属性。
用vs.net创建控件项目，其他的和vb类似...
新建项目-windows 窗体控件库
如果是.NET平台的，你可以使用ComponentOne Enterprise 全功能.NET控件集中的布局控件实现。也可以试试ComponentOne的LinearGauge 控件，这是一个线性仪表器，显示为一个值和象征参考值的可选范围。线性仪表盘（LinearGauge）控件提供了一个 ShowText 属性，用来决定哪些值以文本显示。
》》传送门：网页链接
Public Class UserControl1
#Region "变量"
Dim Down_Color As Color = Color.Blue
Dim UP_Color As Color = Color.Gray
Dim Mode As Short = 0
Dim flag As Boolean
Dim offset_X As Integer
Dim offset_Y As Integer
Dim Mouse_P As Point
#End Region
#Region "属性"
'按下颜色
Public Property _DownColor As Color
Get
Return Down_Color
End Get
Set(ByVal value As Color)
Down_Color = value
End Set
End Property
'弹起颜色
Public Property _UpColor As Color
Get
Return UP_Color
End Get
Set(ByVal value As Color)
UP_Color = value
End Set
End Property
'滑动模式 0-横 1-竖
Public Property _Mode As Short
Get
Return Mode
End Get
Set(ByVal value As Short)
Mode = value
End Set
End Property
#End Region
Private Sub UserControl1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.BackColor = UP_Color
End Sub
'鼠标按下
Private Sub UserControl1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
Me.BackColor = Down_Color
Mouse_P = e.Location
flag = True
End Sub
'鼠标移动
Private Sub UserControl1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If flag = False Then Exit Sub
Select Case Mode
Case 0 '横向·
offset_X = e.X - Mouse_P.X
If Me.Location.X + offset_X + Me.Width = Me.ParentForm.Width Or Me.Location.X + offset_X = 0 Then
flag = False
Else
Me.Location = New Point(Me.Location.X + offset_X, Me.Location.Y)
End If
Case 1 '竖向·
offset_Y = e.Y - Mouse_P.Y
If Me.Location.Y + offset_Y + Me.Height + 30 = Me.ParentForm.Height Or Me.Location.Y + offset_Y = 0 Then
flag = False
Else
Me.Location = New Point(Me.Location.X, Me.Location.Y + offset_Y)
End If
End Select
End Sub
'鼠标弹起
Private Sub UserControl1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
Me.BackColor = UP_Color
flag = False
End Sub
End Class
Spire.XLS for .NET这个可以，操作excel文档的效果不错，性能稳定，而且使用环境不需要安装office excel，个人使用的话可以推荐使用免费版Free Spire.XLS for Java