VB6中如何固定窗体不让它用鼠标拉动调整大小
答案:2 悬赏:40 手机版
解决时间 2021-03-16 06:14
- 提问者网友：沉默的哀伤
- 2021-03-15 14:11
VB6中如何固定窗体不让它用鼠标拉动调整大小
最佳答案
- 五星知识达人网友：掌灯师
- 2021-03-15 15:28
你改变窗体的
BorderStyle 属性
自己尝试！
BorderStyle 属性
自己尝试！
全部回答
- 1楼网友：廢物販賣機
- 2021-03-15 16:37
在设计阶段，将窗体的borderstyle设置为0，showintaskbar设置为true就可以了。移动窗体的代码如下：
dim movescreen as boolean
dim mousx as integer
dim mousy as integer
dim currx as integer
dim curry as integer
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 1 then
movescreen = true
mousx = x
mousy = y
end if
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
if movescreen then
currx = form1.left - mousx + x
curry = form1.top - mousy + y
form1.move currx, curry
end if
end sub
private sub form_mouseup(button as integer, shift as integer, x as single, y as single)
movescreen = false
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯