| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2082 人关注过本帖
标题:VB6.0窗口BorderStyle属性选择了0 — None,如何令用户可以拖动窗口?
只看楼主 加入收藏
小刀神
Rank: 1
等 级:新手上路
帖 子:69
专家分:5
注 册:2018-5-27
结帖率:91.67%
收藏
已结贴  问题点数:20 回复次数:4 
VB6.0窗口BorderStyle属性选择了0 — None,如何令用户可以拖动窗口?
VB6.0窗口BorderStyle属性选择了0 — None,如何令用户可以拖动窗口?
顺便问下,有哪位大神知道Image控件有被按下、弹起两个时间么?我想在鼠标在Image控件上按下鼠标后更换Picture,在Image控件上鼠标弹起后,Picture再次更换回来。

搜索更多相关主题的帖子: VB6.0 窗口 选择 用户 拖动 
2018-05-27 15:25
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
收藏
得分:10 
这都是最基础的技巧了,参照下述代码即可:
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Static ox As Integer, oy As Integer
  If Button = 1 Then
    Me.Left = Me.Left + X - ox
    Me.Top = Me.Top + Y - oy
  Else
    ox = X
    oy = Y
  End If
End Sub
2018-05-27 16:08
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:10 
二楼 xzlxzlxzl 的回答应该说基本正确,但我认为应该是窗体的MouseMove事件。
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Static ox As Integer, oy As Integer
  If Button = 1 Then
    Me.Left = Me.Left + X - ox
    Me.Top = Me.Top + Y - oy
  Else
    ox = X
    oy = Y
  End If
End Sub

请不要选我!!!
2018-05-27 17:07
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
收藏
得分:0 
回复 3楼 ZHRXJR
哦,题主问了两个问题,看成按住image了,没仔细审题。
第二问参照下述代码:
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Image1.Picture = LoadPicture("图片文件位置")  '可以换成用LoadResPicture函数加载资源文件内容
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Image1.Picture = LoadPicture("")  '""里可以换成原图片文件路径,空字符串是取消inage控件里图片
End Sub


[此贴子已经被作者于2018-5-27 17:27编辑过]

2018-05-27 17:16
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
回复 4楼 xzlxzlxzl
哦,我也没有仔细看,还是你比较认真。

请不要选我!!!
2018-05-27 18:09
快速回复:VB6.0窗口BorderStyle属性选择了0 — None,如何令用户可以拖动窗口?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016149 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved