国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 學(xué)院 > 開發(fā)設(shè)計(jì) > 正文

VB編程問與答

2019-11-18 17:44:12
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
1．如何讓文本框只接受數(shù)字？
答：使用如下代碼，在文本框的按鍵事件中加入：
如果我們有一個(gè)字符變量Astring為八進(jìn)制的或十六進(jìn)制的，用Anum=”＆0”＋Astring和Anum＝“＆H”＋Astring能將它轉(zhuǎn)換為十進(jìn)制。
VB中我沒有找到二進(jìn)制的轉(zhuǎn)換函數(shù)，用如下代碼可以實(shí)現(xiàn)十進(jìn)制到二進(jìn)制的轉(zhuǎn)換。
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...等）有一個(gè)輸入法切換屬性IMEMode。我們可以先用ImeStatus函數(shù)來(lái)檢測(cè)當(dāng)前的輸入狀態(tài)，并用IMEMode來(lái)控制其輸入狀態(tài)。下面是IMEMode的屬性值。
Text1.IMEMode＝0（預(yù)定值）
Text1.IMEMode＝l（切換為中文輸入）
Text1.IMEMde＝2（切換為英文輸入、
Text1.IMEMde＝3（關(guān)閉中文輸入的功能，也就是只能做英文輸入。）->

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 湟中县| 康定县| 蕉岭县| 翁牛特旗| 盈江县| 河南省| 南汇区| 平远县| 邛崃市| 小金县| 玉环县| 泸州市| 永靖县| 涿州市| 新昌县| 雷州市| 乌兰县| 古浪县| 客服| 哈巴河县| 威信县| 浪卡子县| 手机| 桂平市| 昌图县| 石嘴山市| 大新县| 清涧县| 老河口市| 鸡西市| 嘉荫县| 池州市| 裕民县| 凤台县| 东安县| 于都县| 门源| 简阳市| 木兰县| 大宁县| 湟中县|