Chinaunix首页 | 论坛 | 博客
  • 博客访问: 41697
  • 博文数量: 58
  • 博客积分: 10
  • 博客等级: 民兵
  • 技术积分: 520
  • 用 户 组: 普通用户
  • 注册时间: 2011-01-23 14:08
文章分类

全部博文(58)

文章存档

2024年(14)

2023年(22)

2022年(22)

我的朋友

分类: Windows平台

2024-11-04 11:10:31

Dim w As Single, l As Single

Private Sub Form_Load()
    w = Me.Width / Combo1.Width
    l = Me.Width / Combo1.Left
End Sub
 
Private Sub Form_Resize()
    Combo1.Width = Me.Width / w
    Combo1.Left = Me.Width / l
End Sub
阅读(56) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~