麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

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

VB編程問(wèn)與答

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中我沒(méi)有找到二進(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ā)表
主站蜘蛛池模板： 久久99精品国产 | 欧美日韩亚洲视频 | 中国杭州少妇xxxx做受 | 成人一区二区三区四区 | 国产午夜精品一区二区三区四区 | 久久精品综合视频 | 国产资源在线看 | 日本网站在线播放 | 亚洲精品 在线播放 | 精品国产久 | 国产午夜亚洲精品理论片大丰影院 | 欧美一区黄色 | 2021国产精品视频 | 国产精品探花在线观看 | 特一级毛片 | 欧美国产一区二区三区 | 毛片免费一区二区三区 | 亚洲网站一区 | 欧美精品久久久久久久久久 | 国产精品麻豆一区二区三区 | 成人性生活视频在线播放 | 色偷偷欧美 | 国产精品一区二区三区在线 | 欧美成人一区二区三区 | 激情小说区 | 久久艳片 | 国产精品一区二区三区在线播放 | 国产精品久久久久国产精品三级 | 国产人成免费爽爽爽视频 | 成人毛片100部 | 午夜影院在线免费观看 | 久久亚洲春色中文字幕久久 | 2021狠狠操 | 成年性羞羞视频免费观看 | 国产区二区 | 性视频久久| 国产成人在线视频播放 | 一级免费在线 | 国产一区二区三区四区波多野结衣 | 久久精品日产第一区二区三区 | 毛片免费视频网站 |