很菜的问题，希望不要见笑！

baobeizhu 2003-05-07 07:03:45

就是怎么控制一个文本框使它只能输入一个七位的（不能多也不能少，否则出现提示错误，要求错误）数字，谢谢指点。

...全文

75 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

hhmmss 2003-05-07

打赏
举报

回复

你可以
Private Sub Text1_Change()
If Len(Trim(Text1.Text)) = 7 Then
Text1.Enabled = False
End If

当然最简单的方法是设计是
将text1的MaxLength =7

54017 2003-05-07

打赏
举报

回复

在事件中 if len(text1.text)<>7) then
msg("错误")
end if

qqqdong 2003-05-07

打赏
举报

回复

在lostfocus中判断呀

祝大家新年快乐！刚自学编程，大家不要见笑~~~

各位朋友、老师们：你们好。见笑，我是最近才发现这个站点的。就像行将渴死的人不知道身后就有一个大水潭，我真得眼前一亮，然后边喊着“迟到了”一边大踏步的融入了大家的行列！很惭愧，我不是专业的程序员，甚至不是计算机专业出身，再甚至……不是理工科，再次希望大家不要见笑。从94年一进入大学，我就深深得迷上了它（当然是computer），学校开的第一门课是计算机基础，当其他同学还在上机试那些"

最近自己写了一个简单的记事本程序,自己第一次完整写的程序.程序中有很多Bug,程序代码沉余很大.写了很多重复的代码. 但是基本的记事本功能实现了.准备重新更新代码,希望至少在代码结构上能有所提高.Private Sub about_Click() mb = MsgBox("作者：城市灯火 E-Mail:xgd.csdh@yahoo.com.cn", vbOKOnly, "记事本"

现在STM32初学入门,写些关于入门的帮助,也算答谢帮助过我的人.希望象我这样想学STM32的朋友不用迷茫.(本入门只适合低手,高手不要见笑).
1.硬件平台.
现在可以买到学习有的有英蓓特的MCBSTM32 和万利的EK-STM32F,可能目前出来最好的还是armjishu.com的神舟系列开发板，包括神舟I号（103RBT），神舟II号(103VCT)，神舟III号（103ZET），神舟iv号（107VCT）几款都有，反正这几个板我都买了，学校出钱买的，还挺实惠

寶貝想你,特別的想. 這份愛太真太深的淘空了我,每日的欺盼只是你的之字片語獨自一人寫著你可能無法看到卻是寫給你的隨筆.冰冷的夜,思念慢慢襲來,想要把你擁抱在懷里,沒有人會比我更疼你.想你的夜,奢求你會來到我身邊.手牽手把你一生交給我. 转载于:https://www.cnblogs.com/liudangboxin/archive/2007/01/27/632169.ht...

7,787

社区成员

197,583

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章