社区
VB基础类
帖子详情
如何让对话框中 只能输入二进制数1,0,并且不能超过16位,一小时 揭帖,求助............
huangyoucheng
2004-08-11 06:46:12
期待中
...全文
87
9
打赏
收藏
如何让对话框中 只能输入二进制数1,0,并且不能超过16位,一小时 揭帖,求助............
期待中
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
BlueBeer
2004-08-11
打赏
举报
回复
http://community.csdn.net/Expert/topic/3238/3238636.xml
你看一下上面帖子里我的最后一个回复吧
huangyoucheng
2004-08-11
打赏
举报
回复
老大 你太好了。。但是能不能解释一下找个程序啊。 比如
ToBin = Num Mod 2 & ToBin
Num = Num \ 2
ToDec = ToDec * 2 + CLng(Mid(BinStr, i, 1))
谢谢了
BlueBeer
2004-08-11
打赏
举报
回复
//把 这了16个存入两个字节中?
做为字符串是肯定不能存到2个字节里啦,只能把它当二进制数字处理,把它减去32767,然后存在一个integer里,这样才能是两字节
恢复的时候先转成数字再加上32767呗,好像只能这样了
下面是进制转换的代码
Function ToBin(Num As Long) As String
Do
ToBin = Num Mod 2 & ToBin
Num = Num \ 2
Loop While Num
End Function
Function ToDec(BinStr As String) As Long
Dim i As Long
For i = 1 To Len(BinStr)
ToDec = ToDec * 2 + CLng(Mid(BinStr, i, 1))
Next i
End Function
jordi2014
2004-08-11
打赏
举报
回复
private sub form_load()
text1.maxlength=16
end sub
huangyoucheng
2004-08-11
打赏
举报
回复
我是 初学 不要见怪, 你有qq吗? 怎么联系啊,好多问题,郁闷中。
KiteGirl
2004-08-11
打赏
举报
回复
这还不容易吗?
Private Sub Text1_KeyPress(KeyAscii As Integer)
if keyascii<>vbkey0 or keyascii<>vbkey1 or Len(Text1.Text)>=16 then keyascii=0
End Sub
huangyoucheng
2004-08-11
打赏
举报
回复
那么如何 控制最多输入16个 并且把 这了16个存入两个字节中? 谢谢
jordi2014
2004-08-11
打赏
举报
回复
'写错了,应该是
Private Sub Text1_KeyPress(KeyAscii As Integer)
if keyascii<>vbkey0 or keyascii<>vbkey1 then keyascii=0
End Sub
jordi2014
2004-08-11
打赏
举报
回复
Private Sub Text1_KeyPress(KeyAscii As Integer)
if keyascii<>0 or keyascii<>1 then keyascii=0
End Sub
强制
揭帖
出bug了
这次信誉分被扣是由于被强制
揭帖
所致。CSDN已经在2周前发了公告要求用户自行
揭帖
。强制
揭帖
所扣信誉分不会...由于我们工作的失误,强制
揭帖
中
出现了一个逻辑错误:2004年7月到2005年6月之间的被删除的非0分帖子也会被强
脚本被屏蔽
最近几天,社区这里我被搞死了。短消息阅读后无法标志已阅读。帖子无法
揭帖
,无法删除帖子
............
..为了这一系列的问题,整天被...一个被包含的很深的js文件
中
。有个家伙写了一个很低级的JavaScript 代码。下面是错误
多继承,RTTI和虚函
数
不能
抢一,就发他个千文贴,楼主
揭帖
的时候一看哟这么长,100分怎么也得给个80罢? 早在一个月前,讨论某个多继承相关的bug的时候,我就想写这个主题了。但是那时候对高层概念知之甚少,怕有所偏颇。 前几天恰好...
SQL
中
游标的并发问题。
有段时间,CSDN的
揭帖
总随机出些问题,得分人
数
得分总和小于帖子分
数
。
揭帖
这里,使用了SQL 的游标,核心代码如下: declare mycursorxx scroll cursor for select..... FROM.... where.......
VB版2004年度专家榜(
揭帖
时间为2004年度的得分汇总)
VB版2004年度专家榜(
揭帖
时间为2004年度的得分汇总) 有帖子是2003年的,但是
揭帖
是 2004 年的情况。online63603rainstormmaster48780tztz52032383MSTOP24957daisy867524517cuizm23351supergreenbean
VB基础类
7,759
社区成员
197,606
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章