易语言设置窗口位置怎么用啊

就是想把指定窗口设置到指定位置就行了

xh=me.height, xw=me.width, X=10
上,左:窗体<=X,窗体向上(top=xh-xh+X)或左移动;
右、下:窗体与屏幕判断比较,当屏幕宽-(窗体左+宽)<=X,右移;屏幕高-(窗体上+高)<=X,下移
然后鼠标指向窗体后拉出窗体,
有些得加些API函数用于检测鼠标移入移出,窗体置顶,窗体也不能是普通类型的,有些难度,你也可以自己在网上找找看更好的。新建工程,将窗体的BorderStyle设置为0,再加入一个Command按钮,粘贴以下代码测试

Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Dim nX As Single, nY As Single

Private Sub Command1_Click()
SetWindowPos Me.hwnd, -2, 0, 0, 0, 0, 3
Unload Me
End Sub

Private Sub Form_Load()
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
nX = X: nY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Move Me.Left - nX + X, Me.Top - nY + Y
Me.Caption = Me.Top
End If

Dim pW!, pH!, mL!, mT!, mW!, mH!
pW = Screen.Width
pH = Screen.Height
mL = Me.Left
mT = Me.Top
mW = Me.Width
mH = Me.Height
Const m = 50

Dim MouseEnter As Boolean
MouseEnter = (0 <= X) And (X <= mW) And (0 <= Y) And (Y <= mH)
If MouseEnter Then '进入
If mL <= m Then Me.Left = -m
If mT <= m Then Me.Top = -m
If mL >= pW - m Then Me.Left = pW - mW
If mT >= pH - m Then Me.Top = pH - mH
SetCapture Me.hwnd
Else '移出
If mL <= m Then Me.Left = m - mW '左隐
If mT <= m Then Me.Top = m - mH '上隐
If pW - mL - mW <= m Then Me.Left = pW - m '右隐
If pH - mT - mH <= m Then Me.Top = pH - m '下隐
ReleaseCapture
End If
End Sub这样设定以后你的窗口可以自由移动,在靠边时可以也像QQ一样自动隐藏。
温馨提示:内容为网友见解,仅供参考
第1个回答  2013-08-09
窗口.左边=.....
窗口.**边=.....
你可以输出调试来确定
第2个回答  2013-08-09
简单的事情何必复杂化,窗口.左边=指定值,窗口.顶边=指定值
第3个回答  2013-08-09
_启动窗口.移动()

易语言设置窗口位置怎么用
_启动窗口.移动 (取屏幕宽度 () - _启动窗口.宽度, 0, , )这个是把窗口移动到屏幕右上角的

易语言 执行指定窗口的操作
1、打开易语言程序,单击新建按钮。2、弹出新建对话框,选中windows窗口程序,点击确定按钮。3、在设计区窗体任意位置双击鼠标,跳到代码输入区。4、在代码输入区中输入打开指定网址,可以根据实际应用进行填写。5、点击图中的编译,选择静态编译,弹出对话框,填写程序名称。6、填写完成后保存就可以,这样问...

易语言窗口程序如何设置?
1、首先,我们打开易语言编程软件,点击左上角的程序菜单,选择新建。2、我们完成第一步后,会弹出一个对话框,选择Windows窗口程序,点击确定按钮,如图所示。3、为增加演示效果,在新建好的Windows窗口程序的界面上,我们放置一些需要用到的控件,如图所示。4、点击如果按钮,进入代码编辑区。如果命令有两...

易语言设置窗口位置怎么用啊
右、下:窗体与屏幕判断比较,当屏幕宽-(窗体左+宽)<=X,右移;屏幕高-(窗体上+高)<=X,下移 然后鼠标指向窗体后拉出窗体,有些得加些API函数用于检测鼠标移入移出,窗体置顶,窗体也不能是普通类型的,有些难度,你也可以自己在网上找找看更好的。新建工程,将窗体的BorderStyle设置为0,再加...

易语言窗口位置
设置启动窗口总在最前属性为真,然后,载入窗口1,代码如下:载入(窗口1,_启动窗口,假)窗口1.置父窗口(_启动窗口)这样,启动窗口就一直在桌面窗口的顶层,窗口1总在启动窗口的上面。

易语言怎么让自己制作的窗口固定在指定外部程序窗口中?
使用SetParent 函数 可以改变窗口的父子关系 如 SetParent(易语言窗口句柄,外部窗口句柄)

易语言怎么控制窗口默认启动位置
.版本 2.子程序 __启动窗口_创建完毕_启动窗口.左边 = 取屏幕宽度 () - _启动窗口.宽度 _启动窗口.顶边 = 取屏幕高度 () - _启动窗口.高度

易语言,怎么让标签框的位置,跟随着窗口放大缩小一直保持在中间_百度知 ...
.版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_尺寸被改变 标签1.左边 = (取用户区宽度 () - 标签1.宽度) ÷ 2 标签1.顶边 = (取用户区高度 () - 标签1.高度) ÷ 2

易语言 怎么绑定程序窗口并点击按钮后移动到屏幕左上角(即x=1,y=1...
.子程序 __启动窗口_首次激活 .如果真(可否移动)’判断窗口可否移动 可否移动 = 假’禁止移动窗口 .如果真结束 .子程序 _按钮1_被单击 移动 (1, 1, 宽度, 高度)’改变窗口位置,不改变尺寸,重画一次 这样就好了……:.子程序 __启动窗口_首次激活 .如果真(可否移动)’判...

易语言怎么在某个窗口中、画方框、并且锁定在某个坐标上..._百度知...
Y(纵坐标),X(横坐标)定位 窗口1.左边=100(横坐标)窗口1.顶边=100(纵坐标)就可以更改易语言窗口的位置

相似回答