VB编程问与答

核心提示：1．如何让文本框只接受数字？答：使用如下代码，在文本框的按键事件中加入：PRivateSubTextl_KeyPress（KeyAsciiAsInteger）IfkeyAscii>=33ThenIfKeyAscii<=vbkey9AndKeyAscii>=vbKey0ThenElse'把Key

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（关闭中文输入的功能，也就是只能做英文输入。）->