如何在TEXT中显示一组数据 a="你要输入的数字"text1.text=text1.text & a+++++++++++例子:for i=0 to 9text1.text=text1.text & inext结果:0123456789 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果你想做一个计数器的话你用10个command控件分别把它们的caption设为0到9然后在各个command的click事件中加入代码Text1.Text = Command2.Caption & Text1.Text就可以了 由于匆忙上面代码写的不太合适应该写成:Text1.Text = Text1.Text & Commandi.Caption Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenKeyAscii = 0ElseIf (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0End IfEnd Sub 這個問題很簡單,但也有時需提防。因為目前windows的程序設計都為焦點觸發類,當焦點移至text1控件時,自然樓上的朋友代碼再擴充一下即是可行,但如果你之焦點移至其它控件上時,則此時相應你也是想實現同樣的I/0功能,如此就需在該控件之_keypress事件中加入同樣的代碼方可實現,不信你試試。 agree with forest_sea(海) 谁有ntsvc.ocx?用于编写nt服务 高手帮忙!!打开一个Word文档,提示找不到工程或库!! 打印字体不会变化?? 请问计算器中的“退格键”怎样写代码? 【★狐狸★】来VB学习考察,顺便问问,我最快在N天内可以有一棵星?欢迎竟猜,猜中赠送可用分500 大家幫幫忙,這個語句錯在哪,查詢結老為空. 急:.( 关于怎样在VB中打开(调用)POWER BUILDER7的数据库,等等中... VB下标越界问题? 菜鸟求救.怎么统计数据库表中的字段的个数. 《客户的需求变更书》及《程序开发申请书》 关于VB的两个问题 我这次只有这点了,下次有了我一定我给些!
Text1.Text = Command2.Caption & Text1.Text
就可以了
Text1.Text = Text1.Text & Commandi.Caption
If KeyAscii = 13 Then
KeyAscii = 0
ElseIf (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub