VB窗口吸附功能?!
我自己用VB6.0做了一个记事本,我想让它有吸附功能!也就是贴近桌面边框时自动吸附!就像QQ一样!请问需要什么控件?什么语法?小弟也是刚刚学习,请讲得详细点!谢谢!帮忙受...
我自己用VB 6.0做了一个记事本,我想让它有吸附功能!也就是贴近桌面边框时自动吸附!就像QQ一样!请问需要什么控件?什么语法?
小弟也是刚刚学习,请讲得详细点!谢谢!
帮忙受累写个完整的代码!
只是窗口离桌面边缘近的时候自动吸附(隐藏)没有别的……!
像QQ那样!
这个对小弟非常重要!
就差这点了!
如有人帮忙,小弟愿意追加10分!
请问怎么写?就是写在哪里??
小弟新手,见笑见笑!
谢谢! 展开
小弟也是刚刚学习,请讲得详细点!谢谢!
帮忙受累写个完整的代码!
只是窗口离桌面边缘近的时候自动吸附(隐藏)没有别的……!
像QQ那样!
这个对小弟非常重要!
就差这点了!
如有人帮忙,小弟愿意追加10分!
请问怎么写?就是写在哪里??
小弟新手,见笑见笑!
谢谢! 展开
3个回答
展开全部
当 距离 小于多少时 left=0 用if 判断
----------------------------------------
问题补充:
看你还要加10分的份上 就给你写点代码(开玩笑的,不用追加了,如果我写的符合你的要求的话)
在 窗体中加个时间控件,然后复制代码
Option Explicit
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Integer
If Form1.Top >= 0 And Form1.Top < 180 Then
If Button = 1 Then
For a = 1 To 100
Form1.Top = Form1.Top - 35
Next
End If
ElseIf Form1.Left >= 0 And Form1.Left < 300 Then
If Button = 1 Then
For a = 1 To 107
Form1.Left = Form1.Left - 45
Next
End If
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Integer
If Form1.Top < 0 Then
For a = 1 To 10
Form1.Top = Form1.Top + 7
Next
ElseIf Form1.Left < 0 Then
For a = 1 To 10
Form1.Left = Form1.Left + 17
Next
End If
End Sub
Private Sub Timer1_Timer()
If Me.Top < 180 And Me.Top > 0 Then Me.Top = 0
If Me.Left < 180 And Me.Left > 0 Then Me.Left = 0
End Sub
鼠标点击时 窗体 就隐藏,鼠标移动到 窗体时 就显示,经过测试没有问题。数具[缩起的速度,小于多少的距离就怎样等等]要怎么改就自己决定!!
----------------------------------------
问题补充:
看你还要加10分的份上 就给你写点代码(开玩笑的,不用追加了,如果我写的符合你的要求的话)
在 窗体中加个时间控件,然后复制代码
Option Explicit
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Integer
If Form1.Top >= 0 And Form1.Top < 180 Then
If Button = 1 Then
For a = 1 To 100
Form1.Top = Form1.Top - 35
Next
End If
ElseIf Form1.Left >= 0 And Form1.Left < 300 Then
If Button = 1 Then
For a = 1 To 107
Form1.Left = Form1.Left - 45
Next
End If
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Integer
If Form1.Top < 0 Then
For a = 1 To 10
Form1.Top = Form1.Top + 7
Next
ElseIf Form1.Left < 0 Then
For a = 1 To 10
Form1.Left = Form1.Left + 17
Next
End If
End Sub
Private Sub Timer1_Timer()
If Me.Top < 180 And Me.Top > 0 Then Me.Top = 0
If Me.Left < 180 And Me.Left > 0 Then Me.Left = 0
End Sub
鼠标点击时 窗体 就隐藏,鼠标移动到 窗体时 就显示,经过测试没有问题。数具[缩起的速度,小于多少的距离就怎样等等]要怎么改就自己决定!!
AiPPT
2024-09-19 广告
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询