VB编程问与答
2018-06-17 17:16:29来源：未知 阅读 ()
1．如何让文本框只接受数字？答：使用如下代码，在文本框的按键事件中加入：
PrivateSubTextl_KeyPress（KeyAsciiAsInteger）
IfkeyAscii>=33Then
IfKeyAscii<=vbkey9AndKeyAscii>=vbKey0Then
Else'把KeyAscii设为0就是取消输入。
KeyAscii=0
MsgBox”不要输入数字！”
EndIf
EndIf
EndSub
注意：KeyAscii键值与KeyCode相同，我们可以查看KeyCode值，不过有些KeyCode键值必须在KeyDown和KeyUp中才有效，在KeyPress的KeyAscii中没用。利用KeyAscii=0的方式在KeyPress中有用，但在KeyDown中让KeyCode=0就不行了。
2．VB中的进制转换是怎样的？
答：用函数Oct()将十进制位数转换为八进制，用Hex（）将十进制位数转换为十六进制，不过值得注意的是转换后数字型变为字符型。如果是一个变量我们可以用如下代码完成十进制向其他进制转换的目的。
dimAnumaslong
Anum＝&010'＆0是八进制的表示符号Anum自行转换为8。
Anum＝＆HA'＆H是十六进制的表示符号Anum自行转换为10。
如果我们有一个字符变量Astring为八进制的或十六进制的，用Anum=”＆0”＋Astring和Anum＝“＆H”＋Astring能将它转换为十进制。
VB中我没有找到二进制的转换函数，用如下代码可以实现十进制到二进制的转换。
OptionExplicit
PtivateFunctiOnTenturnTwo(ByValvarNumAsLong）
DimreturnStringAsString，ModNumAsInteger
DOWhilevarNum>0
ModNum=varNumMod2
varNum=varNum\2
returnString＝Trim（Str（ModNum）） returnString
Loop
TenturnTwo=returnString
EndFunction
PrivateFunctionTwoturnTen（ByValvarStringAsString）
DimSlenAsLong，IAsLong，
returnNumAsLong
Slen=Len(varString)
ForI=oToSlen-1
returmNum＝returnNum＋Val（Mid(varString，I＋1，1））*（2^（Slen-I-1))
Next
TWoturnTen=returnNum
EndFunction
3．在VB5.0下，如何用程序改变中文与英文的输入方式？
答：VB5.0在可以输入文字的地方（如TextBox，ListBox，ComBox...等）有一个输入法切换属性IMEMode。我们可以先用ImeStatus函数来检测当前的输入状态，并用IMEMode来控制其输入状态。下面是IMEMode的属性值。
Text1.IMEMode＝0（预定值）
Text1.IMEMode＝l（切换为中文输入）
Text1.IMEMde＝2（切换为英文输入、
Text1.IMEMde＝3（关闭中文输入的功能，也就是只能做英文输入。）->
标签：
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有
上一篇：怎样存取注册表信息
- VB如何将DBgrid印出来 2018-06-17
- 在Windows98中使用VB5.0编程疑难一解 2018-06-17
- VB在CAI编程中的应用 2018-06-17
- VB中播放三维动画编程一例 2018-06-17
- 在GotFocus时快速选择文本 2018-06-17
IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash
