社区
VB基础类
帖子详情
急,在控件周围画线
FRtfp
2003-08-19 04:12:48
有两个TextBox类型的控件,名为Text1,Text2
在Text1得到焦点时,按Text1的边框画四条线,清除Text2边上的线
在Text2得到焦点时,按Text2的边框画四条线,清除Text1边上的线
请问代码应该怎么写??
...全文
25
11
打赏
收藏
急,在控件周围画线
有两个TextBox类型的控件,名为Text1,Text2 在Text1得到焦点时,按Text1的边框画四条线,清除Text2边上的线 在Text2得到焦点时,按Text2的边框画四条线,清除Text1边上的线 请问代码应该怎么写??
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
11 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
FRtfp
2003-08-19
打赏
举报
回复
知道,先谢谢了,我只能明天试试看了,今天没写出来,让老板骂了一顿,可怜
无意1975
2003-08-19
打赏
举报
回复
haipingma(我是谁) 的方法很好呀,不知你发现没有在控件工具栏上有画框的控件叫Shape.
射天狼
2003-08-19
打赏
举报
回复
'可以做成函数
Private Sub Form_Load()
Line1.BorderWidth = 2
Line2.BorderWidth = 2
Line3.BorderWidth = 2
Line4.BorderWidth = 2
End Sub
Private Sub Text1_GotFocus()
SetLinePos Text1
End Sub
Private Sub Text2_GotFocus()
SetLinePos Text2
End Sub
Private Sub SetLinePos(Txt As TextBox)
Line1.X1 = Txt.Left
Line1.X2 = Txt.Left + Txt.Width
Line1.Y1 = Txt.Top
Line1.Y2 = Txt.Top
Line2.X1 = Txt.Left
Line2.X2 = Txt.Left
Line2.Y1 = Txt.Top
Line2.Y2 = Txt.Top + Txt.Height
Line3.X1 = Txt.Left
Line3.X2 = Txt.Left + Txt.Width
Line3.Y1 = Txt.Top + Txt.Height
Line3.Y2 = Txt.Top + Txt.Height
Line4.X1 = Txt.Left + Txt.Width
Line4.X2 = Txt.Left + Txt.Width
Line4.Y1 = Txt.Top
Line4.Y2 = Txt.Top + Txt.Height
End Sub
射天狼
2003-08-19
打赏
举报
回复
Private Sub Form_Load()
Line1.BorderWidth = 2
Line2.BorderWidth = 2
Line3.BorderWidth = 2
Line4.BorderWidth = 2
End Sub
Private Sub Text1_GotFocus()
Line1.X1 = Text1.Left
Line1.X2 = Text1.Left + Text1.Width
Line1.Y1 = Text1.Top
Line1.Y2 = Text1.Top
Line2.X1 = Text1.Left
Line2.X2 = Text1.Left
Line2.Y1 = Text1.Top
Line2.Y2 = Text1.Top + Text1.Height
Line3.X1 = Text1.Left
Line3.X2 = Text1.Left + Text1.Width
Line3.Y1 = Text1.Top + Text1.Height
Line3.Y2 = Text1.Top + Text1.Height
Line4.X1 = Text1.Left + Text1.Width
Line4.X2 = Text1.Left + Text1.Width
Line4.Y1 = Text1.Top
Line4.Y2 = Text1.Top + Text1.Height
End Sub
Private Sub Text2_GotFocus()
Line1.X1 = Text2.Left
Line1.X2 = Text2.Left + Text2.Width
Line1.Y1 = Text2.Top
Line1.Y2 = Text2.Top
Line2.X1 = Text2.Left
Line2.X2 = Text2.Left
Line2.Y1 = Text2.Top
Line2.Y2 = Text2.Top + Text2.Height
Line3.X1 = Text2.Left
Line3.X2 = Text2.Left + Text2.Width
Line3.Y1 = Text2.Top + Text2.Height
Line3.Y2 = Text2.Top + Text2.Height
Line4.X1 = Text2.Left + Text2.Width
Line4.X2 = Text2.Left + Text2.Width
Line4.Y1 = Text2.Top
Line4.Y2 = Text2.Top + Text2.Height
End Sub
FRtfp
2003-08-19
打赏
举报
回复
有很多的文本框,每个页面都要用,我想写一个通用的函数,控件得到焦点时,只要把窗体和控件作为参数传进去就可以自动在四边画上线,失去焦点时让线消失或隐掉
就和K3的一样
各位,谢谢
FRtfp
2003-08-19
打赏
举报
回复
帮帮忙啊,再线等
snail2011
2003-08-19
打赏
举报
回复
画四条线呀!
你可以画一个距形呀!
把TEXTBOX放在距形里面.
至于编程嘛!就用楼上的好了.
victorycyz
2003-08-19
打赏
举报
回复
你可以简单地,在textbox位置添加shape控件,文本框得到焦点时显示,失去焦点时隐藏该控件就行。
victorycyz
2003-08-19
打赏
举报
回复
你可以简单地,在textbox位置添加shape控件,文本框得到焦点时显示,失去焦点时隐藏该控件就行。
haipingma
2003-08-19
打赏
举报
回复
Private Sub Text1_GotFocus()
Shape1.Visible = True
Shape2.Visible = False
End Sub
Private Sub Text2_GotFocus()
Shape1.Visible = False
Shape2.Visible = True
End Sub
chao778899
2003-08-19
打赏
举报
回复
画线可以用LINE函数,不知楼主什么意思:)
Android界面
控件
难点精讲
Android
控件
开发教程,在Android开发中,有时用到一些常见的
控件
可以更轻松实现一些效果,比如如果要实现图片轮播效果,我们可以使用动画的方式实现,但是代码比较繁琐,而此时,我们采用ViewFlipper
控件
即可非常方便地实现图片轮播。同时,在Android开发中,如果能够使用MVC模式进行开发,则开发效率会高很多,此时,我们则可以使用AdapterView与Adapter高级
控件
来实现类似MVC的模式进行开发,从而大大提高开发效率本课中会给出AdapterView与Adapter的解决具体问题的应用案例。
C#开发WPF/Silverlight动画及游戏系列教程(Game Tutorial):(十四) 精灵
控件
横空出世!①
在上一节中,我们实现了地图牵引式移动,同时还遗留着一个小尾巴:主角和障碍物该如何跟随着地图的移动而移动? 上节中有点到,只要在地图移动的同时,时时根据主角等对象物体的X,Y坐标进行相对于地图的X,Y坐标移动即可达到目的。但是由此又引来了新问题:主角为Image
控件
,障碍物则为矩形
控件
,它们都没有X,Y这两个属性,我们该如何对它们的坐标进行记录呢? 最简单且最直接的方法莫过于将它
自定义
控件
其实很简单1/3
自定义
控件
其实很简单1/3
C#开发WPF/Silverlight动画及游戏系列教程(Game Tutorial):(十四) 精灵
控件
横空出世!①...
在上一节中,我们实现了地图牵引式移动,同时还遗留着一个小尾巴:主角和障碍物该如何跟随着地图的移动而移动? 上节中有点到,只要在地图移动的同时,时时根据主角等对象物体的X,Y坐标进行相对于地图的X,Y坐标移动即可达到目的。但是由此又引来了新问题:主角为Image
控件
,障碍物则为矩形
控件
,它们都没有X,Y这两个属性,我们该如何对它们的坐标进行记录呢? 最简单且最直接的方法莫...
自定义
控件
其实很简单 四
尊重原创转载请注明:From AigeStudio(http://blog.csdn.net/aigestudio)Power by Aige 侵权必究! 炮兵镇楼 前几天身子骨出了点小毛病不爽,再加上CSDN抽风也木有更新,现在补上之前漏掉的1/3 上一节结尾的时候我们说到,Paint类中我们还有一个方法没讲 [java] view plainco
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章