如何调整控件大小?

titan90 2003-12-11 05:19:20
请问如保在程序运行时,通常鼠标拉动调整其大小?
如图片框在运行时当鼠标点到其边时,可以通过拉动调整其大小?TKS
...全文
36 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
titan90 2003-12-11
  • 打赏
  • 举报
回复
谢谢jilate(李建旭)兄,你的方法可行,
jilate 2003-12-11
  • 打赏
  • 举报
回复

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbKeyLButton Then
If X >= Text1.Left And X <= Text1.Left + Text1.Width And Y = Text1.Top + Text1.Height Then
Text1.Height = Y - Text1.Top
Text1.Width = X - Text1.Left
End If
End If
End Sub

写了一点,你自己参考一下,可行不可行
jilate 2003-12-11
  • 打赏
  • 举报
回复
也许可以判断鼠标的移动事件,如果是在控件的边缘的话并且按下左键就执行控件的大小改变
可以通过控件的自身属性。
没测试过
titan90 2003-12-11
  • 打赏
  • 举报
回复
偶要的就是用鼠标调整:)
SoHo_Andy 2003-12-11
  • 打赏
  • 举报
回复
程序调整大小就可以
如果想用鼠标随心所欲的调整可能比较麻烦

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧