社区
Delphi
帖子详情
为何在文本框不能输入,但将焦点移到别的文本框中然后以后去,则可以输入,readpnly=false enabled=true
zhuchuanan
2003-10-17 09:49:56
为何在文本框不能输入,但将焦点移到别的文本框中然后以后去,则可以输入,readpnly=false enabled=true,你们遇过吗。
...全文
80
8
打赏
收藏
为何在文本框不能输入,但将焦点移到别的文本框中然后以后去,则可以输入,readpnly=false enabled=true
为何在文本框不能输入,但将焦点移到别的文本框中然后以后去,则可以输入,readpnly=false enabled=true,你们遇过吗。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
oracs
2003-10-17
打赏
举报
回复
不能输入只能是ReadOnly = True or Enabled = False造成的,检查一下程序,单步调试一下.
chenxuwang
2003-10-17
打赏
举报
回复
我碰到这样的问题,那是因为在事件里进行了交替调用。
henry2003
2003-10-17
打赏
举报
回复
沒遇見過!
vavyboyleon
2003-10-17
打赏
举报
回复
是不是 OnKeyPress事件里 写什么setfocus了?
代码?睇下先
Maple119
2003-10-17
打赏
举报
回复
没有遇到过这个问题,是不是 OnKeyPress事件写了代码屏蔽键盘输入了.,
IORILI
2003-10-17
打赏
举报
回复
赫赫,删掉这个edit,重新加一个
herofy
2003-10-17
打赏
举报
回复
O
hiflower
2003-10-17
打赏
举报
回复
系统有问题
记事本源码
Dim filem As String '保存文件名 Dim str As String Dim msg Dim bu As Boolean '用于判断
文本框
中
的内容是否改变 Public Nexts As Double '用于存储查找末字符的位置 Public Sv, mo As Double 'sv用于存储查的下一个字符的位置,mo用于存储查找第一次查找字符的位置 Dim Cmt(3) As Single, Cml(3) As Single, Cmw(3) As Single, Cmh(3) As Single Dim Tt(1) As Single, Tl(1) As Single, Tw(1) As Single, Th(1) As Single Dim cht As Single, chl As Single, chw As Single, chh As Single Private Sub Check1_Click() If Check1.Value = 1 Then Label1.Caption = "要连接的末字符" Else Label1.Caption = "要查找的首字符" End If End Sub Private Sub Command1_Click() Dim Ts As String Dim a As Long a = 1048576 cmo1.Filter = "*.txt" cmo1.ShowOpen filem = cmo1.FileName If cmo1.FileName = "" Then Exit Sub End If Ts = Right(cmo1.FileName, 4) If Ts <> ".txt" Then MsgBox "您打开的非文本文档文件", , "提示" Exit Sub End If If FileLen(filem) \ a > 10 Then MsgBox "您打开的文件已超过10M", , "提示" Exit Sub End If RichTextBox1.FileName = cmo1.FileName bu =
False
Label3.Caption = "你打开的文件名为:" & filem If FileLen(filem) \ 1024 <= 0 Then '判断文件是否有1KB Label4.Caption = FileLen(filem) & "字节" ElseIf FileLen(filem) \ 1024 >= 1 And FileLen(filem) / 1024 <= 1024 Then '文件有1KB和文件小于1M时。 Label4.Caption = "文件大小为" & Left(FileLen(filem) / 1024, 5) & "KB" ElseIf FileLen(filem) \ a > 0 Then '文件有1M时 Label4.Caption = "文件大小为:" & Left(FileLen(filem) / a, 4) & "M" End If Exit Sub End Sub Private Sub Command2_Click() If Label1.Caption = "要查找的首字符" Then If Text1.Text = "" Then MsgBox "请
输入
要查找的内容" Exit Sub End If Timer3.
Enab
led
=
True
Command1.
Enab
led
=
False
Command2.
Enab
led
=
False
'防止在程序忙时,用户点击其它按扭,导致程序崩溃。 Command3.
Enab
led
=
False
Label2.Visible =
True
mo = InStr(RichTextBox1.Text, Text1.Text) Command1.
Enab
led
=
True
Command2.
Enab
led
=
True
Command3.
Enab
led
=
True
Timer3.
Enab
led
=
False
Label2.Visible =
False
Sv = mo RichTextBox1.SetFocus DoEvents RichTextBox1.SelStart = mo - 1 RichTextBox1.SelLength = Len(Text1.Text) Label1.Caption = "要查找的末字符" Text1.Text = "" '查找首字符 ElseIf Label1.Caption = "要查找的末字符" Then If Text1.Text = "" Then MsgBox "请
输入
要查找的内容" Exit Sub End If Timer3.
Enab
led
=
True
Command1.
Enab
led
=
False
Command2.
Enab
led
=
False
Command3.
Enab
led
=
False
Label2.Visible =
True
Nexts = InStr(Sv + Len(Text1.Text), RichTextBox1.Text, Text1.Text) 'sv后面加上文本长度是为了从字符后面位置开始查找,否则只会从已查找到字符位置前查找。这样会重复 Command1.
Enab
led
=
True
Command2.
Enab
led
=
True
Command3.
Enab
led
=
True
Timer3.
Enab
led
=
False
Label2.Visible =
False
If Nexts = 0 Then MsgBox "未查找到内容", , "提示" Exit Sub End If Sv = Nexts RichTextBox1.SetFocus RichTextBox1.SelStart = Nexts - 1 RichTextBox1.SelLength = Len(Text1.Text) Command2.Caption = "查找下一个" Command2.
Enab
led
=
False
Timer1.
Enab
led
=
True
'查找末字符,并把选
中
的代码交给时间控件 ElseIf Label1.Caption = "要连接的末字符" Then Timer3.
Enab
led
=
True
Command1.
Enab
led
=
False
Command2.
Enab
led
=
False
Command3.
Enab
led
=
False
Label2.Visible =
True
mo = InStr(Sv + Len(Text1.Text), RichTextBox1.Text, Text1.Text) Command1.
Enab
led
=
True
Command2.
Enab
led
=
True
Command3.
Enab
led
=
True
Timer3.
Enab
led
=
False
Label2.Visible =
False
If mo = 0 Then MsgBox "找不到" Exit Sub End If Sv = mo DoEvents RichTextBox1.SetFocus RichTextBox1.SelStart = mo - 1 RichTextBox1.SelLength = Len(Text1.Text) Command2.Caption = " 查找下一个" Command2.
Enab
led
=
False
Timer2.
Enab
led
=
True
'选
中
文本代码交给时间控件2完成 End If End Sub Private Sub Command3_Click() Call save MsgBox "保存成功" End Sub Private Sub Command4_Click() msg = MsgBox("是否删除选
中
的字符", vbYesNo + 64, "询问") If msg = vbYes Then str = Replace(RichTextBox1.Text, RichTextBox1.SelText, "") RichTextBox1.SelText = str End If End Sub Sub save() Open filem For Output As #1 Print #1, RichTextBox1.Text Close #1 End Sub Private Sub Form_Load() menpaste.
Enab
led
=
False
Tt(0) = Text1.Top Tl(0) = Text1.Left Tw(0) = Text1.Width Th(0) = Text1.Height Tt(1) = RichTextBox1.Top Tl(1) = RichTextBox1.Left Tw(1) = RichTextBox1.Width Th(1) = RichTextBox1.Height '保存Combo1控件的Top、Left、Width和Height属性 Cmt(0) = Command1.Top Cml(0) = Command1.Left Cmw(0) = Command1.Width Cmh(0) = Command1.Height End Sub Private Sub Form_Unload(Cancel As Integer) If filem <> "" And bu =
True
Then msg = MsgBox("是否保存文件", vbYesNo + 64, "询问") If msg = vbYes Then Command1.
Enab
led
=
True
Command2.
Enab
led
=
True
Command3.
Enab
led
=
True
Timer3.
Enab
led
=
False
Label2.Visible =
False
Call save Command1.
Enab
led
=
True
Command2.
Enab
led
=
True
Command3.
Enab
led
=
True
Timer3.
Enab
led
=
False
Label2.Visible =
False
MsgBox "保存成功" End If End If End Sub Private Sub mencopy_Click() Clipboard.SetText RichTextBox1.SelText menpaste.
Enab
led
=
True
End Sub Private Sub menexit_Click() End Sub Private Sub menpaste_Click() RichTextBox1.SelText = Clipboard.GetText End Sub Private Sub RichTextBox1_Change() bu =
True
If bu =
True
And filem <> "" Then Command3.
Enab
led
=
True
End If End Sub Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton Then PopupMenu menfile End If End Sub Private Sub Timer1_Timer() Static a As Integer a = a + 1 If a = 3 Then Command2.
Enab
led
=
True
Timer1.
Enab
led
=
False
'到时间后停止时间控件,以防多次运行 a = 0 msg = MsgBox("是否要将首末字符全部选
中
", vbYesNo + 64, "询问") '选
中
所查找的下一个字符 If msg = vbYes Then Timer3.
Enab
led
=
True
Command1.
Enab
led
=
False
Command2.
Enab
led
=
False
Command3.
Enab
led
=
False
Label2.Visible =
True
RichTextBox1.SetFocus RichTextBox1.SelStart = mo - 1 RichTextBox1.SelLength = Nexts Command1.
Enab
led
=
True
Command2.
Enab
led
=
True
Command3.
Enab
led
=
True
Timer3.
Enab
led
=
False
Label2.Visible =
False
Label1.Caption = "要查找的首字符" Command4.
Enab
led
=
True
Command2.Caption = "开始查找" End If End If End Sub Private Sub Timer2_Timer() Static b As Integer b = b + 1 If b = 3 Then Timer2.
Enab
led
=
False
Command2.
Enab
led
=
True
b = 0 msg = MsgBox("是否从第一个文字到些内容位置全选
中
", vbYesNo + 64, "询问") If msg = vbYes Then Timer3.
Enab
led
=
True
Command1.
Enab
led
=
False
Command2.
Enab
led
=
False
Command3.
Enab
led
=
False
Label2.Visible =
True
RichTextBox1.SetFocus RichTextBox1.SelStart = 1 RichTextBox1.SelLength = mo Command1.
Enab
led
=
True
Command2.
Enab
led
=
True
Command3.
Enab
led
=
True
Timer3.
Enab
led
=
False
Label2.Visible =
False
Command4.
Enab
led
=
True
End If End If End Sub Private Sub Timer3_Timer() Static s As Integer s = s + 1 prog1.Value = s If s Mod 2 = 0 Then DoEvents End If End Sub
.net
文本框
检查用户名是否存在
protected void txtCheck_TextChanged(object sender, EventArgs e) { bool result = UserManager.CheckUserName(txtCheck.Text.Trim()); if (result ==
true
) { lblMessage.Text = "恭喜您,此用户名可以使用!"; Button1.
Enab
led
=
true
; } if (result ==
false
) { lblMessage.Text = "该用户名已存在,请更换用户名!"; Button1.
Enab
led
=
false
; } }
【生成vue代码】可视化布局一键生成vue文件,iview框架灵活使用
在上一节课程
中
讲到了可视化布局,如何去自动生成一个静态页面,只有静态页面没有动态交互,远远
不能
满足实际开发
中
的项目需求。这节课将重点讲解vue动态交互制作,以及如何去一键生成vue文件。本节课内容有:如何创建data数据以及方法如何去双向绑定并添加点击方法以及遍历循环等如何去调用组件,这里以iview框架为例,其
中
包含常用组件有:按钮,
文本框
,对话框,表单与校验,单选框与复选框,表格与分页等等如何在编译好的页面下还能进行可视化操作,在不看代码的情况下快速定位功能位置并直接去修改如何去一键生成vue文件,让开发变的如此简单,快速,高效
VB程序设计综合复习题
VB程序设计综合复习题 1、叙述Visual Basic的特点。 2、当窗体上有三个
文本框
和一个命令按钮,若程序运行时,
焦点
定位在第三个
文本框
(Text3)处,应对何控件的什么属性进行何种设置? 3、若要对窗体上的三个
文本框
输入
数据,个控件
焦点
的移动可通过Tab键(系统本身具有的),也可通过回车键,则要对
文本框
的什么事件编程? 4、当某
文本框
输入
数据后(按了回车键),进行判断认为数据
输入
错,怎样删除原来数据?怎样使
焦点
回到
文本框
重新
输入
? 5、怎样把关于Command命令按钮的
Enab
led
属性的帮助示例代码复制到你的代码窗口?已知帮助
中
的代码如下: Private Sub Form_Load() Text1.Text = ”” ‘消除
文本框
的内容 Command1.Caption = “Save” ‘在按钮上放置标题 End Sub Private Sub Text1_Change() If Text1.Text = “” Then ‘查看
文本框
是否为空 Command1.
Enab
led
=
False
‘使按钮无效 Else Command1.
Enab
led
=
True
‘使按钮有效 End If End Sub 6、当运行程序前,对某些控件设置属性值,除了在窗体
中
直接设置外,还可以通过代码设置,这些代码一般放在什么事件
中
?例如,程序要将命令按钮定位在窗体的
中
央,请写出事件过程。 7、在KeyPress事件
中
,如何取消用户刚键入的字符? 8、静态数组与动态数组的区别是什么?在声明静态数组、重定义动态数组时的下标都可以用变量来表示吗? 9、函数过程和子过程的区别是什么? 10、子过程调用有哪两种形式? 11、什么是形参?什么是实参?什么是值引用?什么地址引用?地址引用时,对应的实参有没有限制? 12、如果要时钟控件每半分钟发生一个Timer事件,则Interval属性应设置为多少? 13、如果在KeyDown事件过程
中
将KeyCode设置为0,KeyPress的KeyAscii参数会不会受影响?如果
输入
的对象是
文本框
,那
文本框
的内容是否有影响? 14、构造满足下列条件的Open语句。 (1)建立一个新的顺序文件SEQNEW.DAT,供用户写入数据,指定文件号为1。 (2)打开一个老的顺序文件SEQOLD.DAT,用户将从该文件读出数据,指定文件号为2。 (3)打开一个老的顺序文件SEQAPPEND.DAT,用户将在该文件后面添加数据,文件号通过调用FreeFile函数获得。 15、请写出程序代码片段,将磁盘上的两个文件合并。(提示:把它们作为二进制文件打开) 16、PictureBox控件和Image控件有什么区别? 17、Visual Basic可处理哪些格式的图形文件? 18、在程序运行时怎样在图形(像)框
中
装入或删除图形? 19、简述Printer对象与Printers集合对象的区别。 20、当要在ToolBar控件
中
添加一个按钮,如何实现? 21、当要修改ToolBar控件某按钮的图像,如何实现? 22、Visual Basic
中
记录集有几种类型?有
C# 计算器
实现功能:模拟微软计算器界面,实现四则混合运算1.键盘
输入
(KeyUp事件)2.无
焦点
(按钮失去
焦点
)3.实现优先级运算。比如直接
输入
1-2*3=-5,而不是微软计算器的-34.使用操作工厂,使用接口5.实现菜单里的复制粘贴功能6.可视化
文本框
7.实现
中
间操作结果显示8.正则表达式验证
输入
是否为数字9.小数点个数校验10.使用发消息_Flag实现操作符状态的判定及转换部分注释预览:失去
焦点
: private void text_display_GotFocus(object sender, EventArgs e) { /* *
文本框
的“获取
焦点
”事件发生时执行的方法。每次获得
焦点
时,就会执行此方法,使之马上失去
焦点
。 * * 当某控件的
Enab
le属性变为
False
的时候,它的
焦点
将转
移到
TabIndex属性值比它大1的控件上。 * 这时,如果有多个控件的TabIndex属性值同时比它大1,鼠标点击按钮或敲击键盘时候会发出“咚”的一声。 * 故在本程序
中
,将label_m控件的TabIndex设为1,其它的全部设为0,因此所有的控件在不可用时
焦点
都会转
移到
label_m上, * 因为label_m没有Click和KeyUp事件,所以不会出错。 * 这样就实现了全局无
焦点
的功能。 * */ text_display.
Enab
led
=
false
; //先使
文本框
不可用,这时
焦点
转
移到
TabIndex比
文本框
大的下一个控件上 text_display.
Enab
led
=
true
; //再使
文本框
可用,这时
焦点
不会返回。 }KeyUp事件: else if (e.KeyCode == Keys.NumPad1 || e.KeyCode == Keys.D1) { /* 当窗体的某个控件触发了其本身的KeyUp事件之后, * 将会调用keyUp()方法,并判断是哪个按键 * 如果是大键盘或者是小键盘的1时,便调用num_Click()方法。 * 参数是no_1和e。 * 在这里的no_1指的是按钮no_1,e是KeyUp事件 * no_1是按钮,参数格式正确;而e是KeyUp事件,也是事件的一种。KeyEventHandler当然也是EventHandler的一部分。 * 所以调用了之num_Click()后一切按照no_1按钮事件的操作执行 * 所以no_1按钮的这一句 * this.no_1.KeyUp += new System.Windows.Forms.KeyEventHandler(this.num_Click); * 可以不写 */ num_Click(no_1, e); }小数点点击的校验: private void dot_Click(object sender, EventArgs e) { if (!dotFlag) //没点击的情况下 { if (operFlag) //如果点击了运算符,就将文本换为"0.",并将小数点设为已点击 { text_display.Text = "0."; dotFlag =
true
; } else if (text_display.Text.Equals("0.")) //如果没有点击运算符,切当前文本是"0.",便保持现状但将小数点设为已点击 { dotFlag =
true
; } else if (text_display.Text.Equals("0") || text_display.Text.Equals("")) { text_display.Text = "0."; dotFlag =
true
; } else //其他情况直接添加并将小数点设为已点击 { text_display.Text = text_display.Text + "."; dotFlag =
true
; } } else //如果已点击则什么也不做 { } enterFlag =
false
; label_m.Focus(); //键盘按键之后
焦点
由下面的各个_GotFocus()方法控制;鼠标点击之后的
焦点
有这条语句控制,同样使
焦点
转
移到
label_m上。 }
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章