VBA中的列表框可以直接拖拽改变列宽吗
补充一下：在VBA窗体运行时是否可以通过手动拖拽listbox控件的列，改变显示的列宽（就像listview一样）。我在代码中已经设定好了listbox控件的列数以及列宽...
补充一下：
在VBA窗体运行时是否可以通过手动拖拽listbox控件的列，改变显示的列宽（就像listview一样）。我在代码中已经设定好了listbox控件的列数以及列宽数值，但是显示的时候部分文字过长不能全部显示出来，这时候是否可以通过鼠标拖拽直接改变每一列的列宽？ 展开
在VBA窗体运行时是否可以通过手动拖拽listbox控件的列，改变显示的列宽（就像listview一样）。我在代码中已经设定好了listbox控件的列数以及列宽数值，但是显示的时候部分文字过长不能全部显示出来，这时候是否可以通过鼠标拖拽直接改变每一列的列宽？ 展开
展开全部
想了一个比较奇怪的变通方法。
在MouseMove事件中加入一个过程在控制listbox的宽度，通过在MouseDown、Up事件来控制这个事件是否能发生。您看如何。具体代码如下。只要鼠标可以接触到Form面板，就可以实现。
Public a%
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
a = 1
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If a = 1 Then
ListBox1.Width = ListBox1.Width + (X - ListBox1.Width - ListBox1.Left)
End If
End Sub
Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
a = 0
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
