以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  PictureBox控件里放label控件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=111232)

--  作者:xxfoxtable
--  发布时间:2017/12/18 11:58:00
--  PictureBox控件里放label控件
PictureBox1在窗体,执行窗体时,怎么定义按键,能微调这个label控件的位置?
--  作者:有点甜
--  发布时间:2017/12/18 12:08:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49697&skin=0

 


--  作者:xxfoxtable
--  发布时间:2017/12/18 12:26:00
--  
鼠标控制不能精确移动,想用键盘操作
--  作者:有点甜
--  发布时间:2017/12/18 14:37:00
--  

keydown事件,写下面代码

 

e.cancel = True
If e.KeyCode = keys.left Then
    e.form.controls("button1").left -= 5
End If
If e.KeyCode = keys.right Then
    e.form.controls("button1").left += 5
End If
If e.KeyCode = keys.up Then
    e.form.controls("button1").top -= 5
End If
If e.KeyCode = keys.down Then
    e.form.controls("button1").top += 5
End If


--  作者:xxfoxtable
--  发布时间:2017/12/18 23:12:00
--  

如果界面上全部是label控件,怎么写能共用这个代码?

[此贴子已经被作者于2017/12/18 23:12:26编辑过]

--  作者:有点甜
--  发布时间:2017/12/19 9:18:00
--  

click事件

 

vars("选中控件") = e.sender.name

 

keydown事件

 

e.cancel = True
If e.KeyCode = keys.left Then
    e.form.controls(vars("选中控件")).left -= 5
End If


--  作者:xxfoxtable
--  发布时间:2017/12/19 10:33:00
--  
click和keydown分别是什么控件的事件?
--  作者:有点甜
--  发布时间:2017/12/19 10:37:00
--  

窗口的click、keydown事件,你要放入一个textbox才能响应keydown事件的。


--  作者:xxfoxtable
--  发布时间:2017/12/19 11:13:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

请帮忙实现一下代码
--  作者:有点甜
--  发布时间:2017/12/19 11:19:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb