11问答网
所有问题
当前搜索:
vb中文本框内容设置为空
vb中
怎么
设置文本框
最少输入6个字符
答:
加一个
文本框
,一个按钮,属性都是默认,加入以下函数 Private Sub Text1_Change()if len(text1.text) >= 6 then Command1.Enabled = True else Command1.Enabled = False。
VB中
list怎么清空?最好把list各个属性都说一下···
答:
该属性不能
设置为
0,在运行时也不能从 0 改变 -也就是说,不能在运行时,将多列 ListBox 变为单列 ListBox 或将单列 ListBox 变为多列 ListBox 。SelCount 属性返回在 ListBox 控件中被选中项
的
数量。语法object.SelCountobject 所在处代表一个对象表达式,其值是“应用于”列表中的一个对象。说明如果没有...
如何
设置vb
组合
框中的内容
答:
Private Sub Form_Load()Combo1.AddItem "张三" '添加一个条目 Combo1.AddItem "李四"Combo1.AddItem "王五"Combo1.ListIndex = 0 '选中首条目 'Combo1.RemoveItem 1 '删除序号为 1 的条目,即“李四”'Combo1.Clear '删除所有条目 End Sub ...
VB
窗口中如果有多个
文本框
,怎样用数组分别为他们赋值?
答:
你这多个文本框最好弄成控件数组,并且与要赋值的数组一一对应,这样就方便得多,比如(假定文本框数组名为Text1,数组为a()):For i = 0 To UBound(a) Text1(i).Text = a(i)Next如果文本框不是控件数组则比较麻烦,你要一个一个进行赋值。如果
文本框的
名字是有规律的,比如Text1、Text2...
vb
窗体刚显示时
文本框
不能输入?
答:
Option ExplicitPrivate Sub Command1_Click() Frame1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Frame1.Enabled = FalseEnd SubPrivate Sub Form_Load() Frame1.Enabled = FalseEnd Sub 应该是要求这样的效果吧?
VB
事件的键盘事件
答:
例如要想实现在
文本框
中只能输人数字,不接受其它字符,可以编写如下代码:Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 ThenKeyAscii = OEnd IfEnd Sub此段代码表示:如果被按下去
的
键的Ascii码值不在48到57之间(即输入不是数字),则将KeyAssii值
设置为
零...
vb中
怎样才能使一个
文本框
里的
内容
随时间每隔一秒更新替换一次_百度...
答:
Private Sub Form_Load()Text1.Locked = True Text1.Text = 60 Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer()If Val(Text1.Text) - 1 <= 0 Then Text1.Text = 60 Else Text1.Text = Val(Text1.Text) - 1 End If End Sub ...
vb中
如何从一个
文本框
中提取需要的字符
答:
str5(0) = 255 '字串
的
前两个Byte存该字串的最大长度 str5(0) = 255 i = SendMessage(Text1.hwnd, EM_GETLINE, ntx, str5(0))If i = 0 Then GetaLine = ""Else str6 = StrConv(str5,
vb
Unicode)GetaLine = Left(str6, InStr(1, str6, Chr(0)) - 1)End If End ...
关于
VB中
print的用法?
答:
1、Print方法 Print方法可用于窗体、图片
框
、立即窗口、打印机等对象。用来显示
文本
字符和表达式
的
值。表达式:Object.Print,Obiect是对象的名称,对象可以是窗体(Form)、立即窗口(Debug)、图片框(PictureBox)、打印机(Printer)等。 Print关键字可以用”?”
里
代替。表达式表是有若干表达式组成,各表达式...
VB中
怎么将
文本框
中的
内容
写入数组中
答:
比如有6个
文本框
且为控件数组,则可以 For i=1 to 6 A(i)=Text(i).text next i 如果你只有一个文本框,想输如一个数字点下 按钮,然后加入数组,加个文本框和命令按钮,然后 Dim a(1 To 5)'这个你需要自己定义大小,否则数据超过5个就下界越标什么
的
Private Sub Command1_Click()Static...
棣栭〉
<涓婁竴椤
7
8
9
10
12
13
14
15
16
11
涓嬩竴椤
灏鹃〉
其他人还搜