为何在文本框不能输入，但将焦点移到别的文本框中然后以后去，则可以输入，readpnly=false enabled=true

zhuchuanan 2003-10-17 09:49:56

为何在文本框不能输入，但将焦点移到别的文本框中然后以后去，则可以输入，readpnly=false enabled=true,你们遇过吗。

...全文

76 8 打赏收藏转发到动态举报

写回复

用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

打赏
举报

hiflower 2003-10-17

打赏
举报

系统有问题

protected void txtCheck_TextChanged(object sender, EventArgs e) { bool result = UserManager.CheckUserName(txtCheck.Text.Trim()); if (result == true) { lblMessage.Text = "恭喜您，此用户名可以使用！"; Button1.Enabled = true; } if (result == false) { lblMessage.Text = "该用户名已存在，请更换用户名！"; Button1.Enabled = false; } }

VB程序设计综合复习题 1、叙述Visual Basic的特点。 2、当窗体上有三个文本框和一个命令按钮，若程序运行时，焦点定位在第三个文本框（Text3）处，应对何控件的什么属性进行何种设置？ 3、若要对窗体上的三个文本框输入数据，个控件焦点的移动可通过Tab键（系统本身具有的），也可通过回车键，则要对文本框的什么事件编程？ 4、当某文本框输入数据后（按了回车键），进行判断认为数据输入错，怎样删除原来数据？怎样使焦点回到文本框重新输入？ 5、怎样把关于Command命令按钮的Enabled属性的帮助示例代码复制到你的代码窗口？已知帮助中的代码如下： Private Sub Form_Load() Text1.Text = ”” ‘消除文本框的内容 Command1.Caption = “Save” ‘在按钮上放置标题 End Sub Private Sub Text1_Change() If Text1.Text = “” Then ‘查看文本框是否为空 Command1.Enabled = False ‘使按钮无效 Else Command1.Enabled = 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中记录集有几种类型？有

实现功能：模拟微软计算器界面，实现四则混合运算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) { /* * 文本框的“获取焦点”事件发生时执行的方法。每次获得焦点时，就会执行此方法，使之马上失去焦点。 * * 当某控件的Enable属性变为False的时候，它的焦点将转移到TabIndex属性值比它大1的控件上。 * 这时，如果有多个控件的TabIndex属性值同时比它大1，鼠标点击按钮或敲击键盘时候会发出“咚”的一声。 * 故在本程序中，将label_m控件的TabIndex设为1，其它的全部设为0，因此所有的控件在不可用时焦点都会转移到label_m上， * 因为label_m没有Click和KeyUp事件，所以不会出错。 * 这样就实现了全局无焦点的功能。 * */ text_display.Enabled = false; //先使文本框不可用，这时焦点转移到TabIndex比文本框大的下一个控件上 text_display.Enabled = 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上。 }

rivate Sub cmdAdd_Click() Dim str1 As String Dim cnn As New ADODB.Connection '数据库连接 If cmdAdd.Caption = "新增" Then '按钮为“新增”状态 cmdAdd.Caption = "保存" '修改按钮标题为“保存”，提示用户保存数据 cmdCancel.Visible = True '显示“取消”按钮 lstbus.Enabled = False '禁止用户操作列表框 LockControl (False) '允许用户操作窗口中部分控件 txtbus.Text = "" '清除“线路名”文本框 txtBeginEnd.Text = "" '清除“运行区间”文本框 cmbTickType.Text = "无人售票" '设置售票类型的默认值 cmbPrice.Text = "上车一元" '设置票价的默认值 optIC2.Value = True '设置不支持IC卡 txtRuntime.Text = "" '清除“运行时间”文本框 txtCompany.Text = "" '清除“公交公司”文本框 txtMemo.Text = "" '清除“备注”文本框 Else If Not CheckInput Then Exit Sub '调用CheckInput函数检查输入数据 cmdAdd.Caption = "新增" '修改按钮标题为“新增” cmdCancel.Visible = False '隐藏“取消按钮" lstbus.Enabled = True '允许用户操作列表框 LockControl (True) '锁定窗口中部分控件 '定义新增数据的SQL语句 str1 = "INSERT INTO [BUS]([bus],[beginend],[ticktype],[price]" str1 = str1 + ",[ic],[runtime],[company],[memo]) VALUES(" 'INSERT INTO语句 str1 = str1 + "'" + txtbus.Text + "','" '线路名 str1 = str1 + txtBeginEnd.Text + "','" '运行区间 str1 = str1 + cmbTickType.Text + "','" '售票类型 str1 = str1 + cmbPrice.Text + "'," '票价 If optIC1.Value Then '是否支持IC卡 str1 = str1 + "true,'" '支持 Else str1 = str1 + "false,'" '不支持 End If str1 = str1 + txtRuntime.Text + "','" '运行时间 str1 = str1 + txtCompany.Text + "','" '公交公司 str1 = str1 + txtMemo.Text + "')" '备注 cnn.ConnectionString = Conn '设置数据库连接字符串 cnn.Open '打开数据库连接 cnn.Execute (str1) '执行INSERT INTO语句插入数据 cnn.Close '关闭数据库连接 Form_Load '调用窗体装载事件代码，重新将线路信息显示在列表框中 End If End Sub Private Sub cmdCancel_Click() '“取消”按钮放弃输入的值 lstbus.Enabled = True '允许用户操作列表框 cmdCancel.Visible = False '隐藏“取消”按钮，使其不可见 cmdAdd.Caption = "新增" '修改“保存”按钮标题为“新增” LockControl (True) '锁定窗口中部分控件 lstbus_Click '调用列表框的单击事件代码 End Sub Private Sub cmdExit_Click() '退出当前窗体 Dim ret As Integer If cmdAdd.Caption = "保存" Then '判断是否有输入的信息未保存 ret = MsgBox("新增数据还未保存，是否退出？", vbQuestion + vbYesNo) '获取用户的选择 If ret = vbNo Then '选择“否” Exit Sub '退出当前过程，则不退出当前窗体 End If End If Unload Me '退出当前窗体 End Sub Private Sub Form_Load() '窗体初始化代码 Dim cnn As New ADODB.Connection '定义数据库连接变量 Dim rst As New ADODB.Recordset '定义记录集变量 LockControl (True) '锁定窗口中部分控件 cnn.ConnectionString = Conn '设置数据库连接字符串 cnn.Open '打开数据库连接 Set rst.ActiveConnection = cnn '设置记录集的数据库连接 rst.Open "SELECT [bus] FROM [bus]" '打开记录集，得到线路名数据 lstbus.Clear '清除列表框中原有内容 Do While Not rst.EOF '循环处理记录集中的数据 lstbus.AddItem rst(0).Value '将线路名添加到列表框中 rst.MoveNext '处理下一记录 Loop If lstbus.ListCount > 0 Then '列表框中有数据 lstbus.ListIndex = 0 '选中第1个数据 End If rst.Close '关闭记录集 cnn.Close '关闭数据库连接 End Sub Private Sub Label2_Click() End Sub Private Sub Label8_Click() End Sub Private Sub lstbus_Click() '单击列表框时，更新右侧的显示数据 Dim cnn As New ADODB.Connection '定义数据库连接 Dim rst As New ADODB.Recordset '定义记录集 Dim str1 As String, str2 As String '临时字符串变量 str1 = lstbus.List(lstbus.ListIndex) '获取列表框中的选中项(可介绍一下列表框) cnn.ConnectionString = Conn '设置数据库连接字符串 cnn.Open '打开数据库连接 Set rst.ActiveConnection = cnn '设置记录集的数据库连接 str2 = "SELECT * FROM [BUS] WHERE BUS='" & Trim(str1) & "'" '定义查询字符串 rst.Open str2 '打开记录集 If Not rst.EOF Then '若记录集不为空，显示内容 'gID = rst("id") '记录关键字 txtbus.Text = rst("bus") '线路名 txtBeginEnd.Text = rst("beginend") '运行区间 cmbTickType.Text = rst("ticktype") '售票类型 cmbPrice.Text = rst("price") '票价 If rst("ic") = True Then '支持IC卡 optIC1.Value = True Else '不支持IC卡

Delphi

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章