[quote=引用 26 楼 zhao4zhong1 的回复:] 在现实世界中,除时间和空间可能是无限的以外,其它任何事物都是有限的。
在现实世界中,除时间和空间可能是无限的以外,其它任何事物都是有限的。
[quote=引用 17 楼 Chen8013 的回复:] [quote=引用 15 楼 zhao4zhong1 的回复:] [quote=引用 14 楼 Chen8013 的回复:] [quote=引用 12 楼 zhao4zhong1 的回复:] 干货啊! 就是长度超过屏幕宽度的话,还得用Tooltip
[quote=引用 21 楼 VBAHZ 的回复:] [quote=引用 19 楼 Chen8013 的回复:] [quote=引用 18 楼 VBAHZ 的回复:] [quote=引用 17 楼 Chen8013 的回复:] [quote=引用 15 楼 zhao4zhong1 的回复:] [quote=引用 14 楼 Chen8013 的回复:] [quote=引用 12 楼 zhao4zhong1 的回复:] 干货啊! 就是长度超过屏幕宽度的话,还得用Tooltip
[quote=引用 19 楼 Chen8013 的回复:] [quote=引用 18 楼 VBAHZ 的回复:] [quote=引用 17 楼 Chen8013 的回复:] [quote=引用 15 楼 zhao4zhong1 的回复:] [quote=引用 14 楼 Chen8013 的回复:] [quote=引用 12 楼 zhao4zhong1 的回复:] 干货啊! 就是长度超过屏幕宽度的话,还得用Tooltip
[quote=引用 18 楼 VBAHZ 的回复:] [quote=引用 17 楼 Chen8013 的回复:] [quote=引用 15 楼 zhao4zhong1 的回复:] [quote=引用 14 楼 Chen8013 的回复:] [quote=引用 12 楼 zhao4zhong1 的回复:] 干货啊! 就是长度超过屏幕宽度的话,还得用Tooltip
[quote=引用 7 楼 chewinggum 的回复:] 来来来,给点干货 Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Form_Load() Combo1.AddItem "这是一个很长很长的选项" Combo1.AddItem "这又是一个很长很长的选项" SendMessage Combo1.hwnd, &H160, 300, 0 '宽度设置成300,单位是像素 End Sub 效果如下:
Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Form_Load() Combo1.AddItem "这是一个很长很长的选项" Combo1.AddItem "这又是一个很长很长的选项" SendMessage Combo1.hwnd, &H160, 300, 0 '宽度设置成300,单位是像素 End Sub
[quote=引用 15 楼 zhao4zhong1 的回复:] [quote=引用 14 楼 Chen8013 的回复:] [quote=引用 12 楼 zhao4zhong1 的回复:] 干货啊! 就是长度超过屏幕宽度的话,还得用Tooltip
[quote=引用 14 楼 Chen8013 的回复:] [quote=引用 12 楼 zhao4zhong1 的回复:] 干货啊! 就是长度超过屏幕宽度的话,还得用Tooltip
[quote=引用 12 楼 zhao4zhong1 的回复:] 干货啊! 就是长度超过屏幕宽度的话,还得用Tooltip
7,759
社区成员
197,606
社区内容
加载中
试试用AI创作助手写篇文章吧