标题:用了API窗口怎么不能移动?
只看楼主
蔡蔡
Rank: 1
等 级:新手上路
帖 子:193
专家分:0
注 册:2007-5-8
 问题点数:0 回复次数:8 
用了API窗口怎么不能移动?
我用API重新画了个窗口,是圆形,但是不能移动,那个标题栏不见了,
要怎么才能移动它?
请各位指点迷津~
搜索更多相关主题的帖子: API 窗口 
2007-10-25 19:48
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
得分:0 
自己做MovingHandle
2007-10-25 19:51
ytmGring
Rank: 1
等 级:新手上路
帖 子:48
专家分:0
注 册:2007-5-27
得分:0 
API画窗口?圆形的?
学习了,告诉一下相关API

欢迎参观http://blog..cn/ytmGring
2007-10-26 00:39
蔡蔡
Rank: 1
等 级:新手上路
帖 子:193
专家分:0
注 册:2007-5-8
得分:0 
以下是引用multiple1902在2007-10-25 19:51:25的发言:
自己做MovingHandle

怎么做呀?
能不能说详细点~
谢谢~


从不撒谎,却常常骗人。 自认不笨,却热衷装傻。
2007-10-26 19:37
卡卡希比
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:2283
专家分:189
注 册:2007-7-1
得分:0 
哈哈!

PLEASE FLUSH AFTER USE!
2007-10-26 19:47
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
得分:0 
我自己没写过类似代码,因为我不了解这个原理。
某个叫QQForm的自定义控件里做了个MovingHandle,建议楼主去看看。
2007-10-26 21:05
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
得分:0 

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hWnd, &HA1, 2, 0
End Sub


VB QQ群:47715789
2007-10-27 08:48
西山居士
Rank: 4
等 级:贵宾
威 望:11
帖 子:581
专家分:0
注 册:2007-4-21
得分:0 
关键问题是你没有了标题栏,因为你拖动的是标题栏才能移动。请用楼上方法。
PS:楼上好久没见,最近发大财去了吧

2007-10-27 09:58
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
得分:0 
呵,发啥大财?穷得没钱交网费了…………
最近一直在玩游戏。。。VB玩累了。。。

VB QQ群:47715789
2007-10-27 13:17



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-180768-1-1.html




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

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