- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何设置控件边框底纹颜色 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114212)
-- 发布时间：2018/1/31 18:24:00
-- [求助]如何设置控件边框底纹颜色
老师，
选定一个控件，让它的边框底纹显示颜色， BorderColor=Color.red 不是很明显 ，怎么办？
[此贴子已经被作者于2018/1/31 18:33:28编辑过]
-- 发布时间：2018/1/31 19:57:00
--
设置一下边框样式啊，FixedSingle
-- 发布时间：2018/1/31 20:37:00
--
你要这个？
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104121&skin=0
[此贴子已经被作者于2018/1/31 20:37:32编辑过]
-- 发布时间：2018/2/24 13:14:00
--
老师，
希望用鼠标拖动上面的例子的lable 控件大小发生变化怎么写呢？
-- 发布时间：2018/2/26 0:14:00
--
老师，
这么晚了还没歇息呢，辛苦您了。
原来的调整空间d大小的按钮，是按住ait 不是很好用，大小变起来控制不好；
能否根据这个例子，怎么能根据拖动lable 位置更精确的定位到大小的位置呢？
[此贴子已经被作者于2018/2/26 0:29:30编辑过]
-- 发布时间：2018/2/26 1:36:00
--
以下是引用blsu33在2018/2/24 13:14:00的发言：
老师，
老师，
希望用鼠标拖动上面的例子的lable 控件大小发生变化怎么写呢？
首先，有一些控件的大小是固定的。比如 textbox
不固定大小的控件拖动的情况你这样处理：你点击label的时候，mousedown事件，检测是哪个label，记录下来，然后编写mousemove事件，设置控件的大小（比如你点击右下角的label，控件大小就是控件的left、top和你当前鼠标e.x、e.y之间的值得到）
-- 发布时间：2018/2/26 21:26:00
--
老师，
按照您说的 我体会下改了些 没有达到效果，劳烦您给看看
我用“”“\'\'我填的” 把我写的标注了 在mousedown mousemove
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:可移动的控件_例子 (1) (1).table |
-- 发布时间：2018/2/26 23:15:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:可移动的控件_例子 (1) (1).zip |
-- 发布时间：2018/2/27 14:31:00
--
老师，
调整后，线和labl没有变化，如何能自动调整下
我在keyup 选定一下 为什么不起作用
If e.Sender.name.StartsWith("draw_label_") Then
If e.Sender.name = vars("mdlable") Then
Dim ar() As String = vars("mdlable").split("_")
Dim c = e.Form.controls(ar(3))
c.Select=True
End If
End If
-- 发布时间：2018/2/27 15:42:00
--
这个意思？8楼那里加上，可以调整线段。
Dim line1 = e.form.controls("draw_line_" & ar(3))
line1.left = c.left
line1.top = c.Top
line1.Width = c.width