66问答网
所有问题
当前搜索:
vb中text
vb中
在
text
中输出的数据,怎么限制其输出位数?求救
答:
设置
Text
1.MaxLength属性:
text
1.maxlenght=10,限制为10。下例是只能输入数字和大小写字母,长度为7位到10位,当位数不足7位时,command1.eanbled=false:Private Sub Form_Load()Command1.Enabled = False End Sub Private Sub Text1_Change()If Asc(Right(Text1,1))< 0 Then MsgBox "请不...
VB中
判断
text
不能为空
答:
如果在多个文本中应用为空验证 应该加一个开关 以免产生多个同时验证 Dim tState As Boolean '开关 Private Sub
Text
1_GotFocus()'获取焦点时 tState = True End Sub Private Sub Text2_GotFocus()'获取焦点时 tState = True End Sub Private Sub Text1_LostFocus()'失去焦点时 If Text1.Text =...
vb
代码怎么输出在
text
里面
答:
= strSj & i & " " If j = 10 Then j = 0 'Print vbCrLf strSj = strSj & vbCrLf End If j = j + 1 End If Next i
Text
1 = strSjEnd Sub
VB中
怎样限定
text
输入框中输入的字数
答:
Sub s()
Text
1.MaxLength = 8'设置Text输入最长为8个字符End Sub
vb
判断
text
的内容
答:
这个简单 ,先用split把
text
1的内容按换行符 拆成数字 然后循环遍历数组 判断数组元素 首字母 (利用字符串截取函数left)是否为A Private Sub Command1_Click() Dim a Dim i As Integer a = Split(
Text
1.Text, vbCrLf) For i = 0 To UBound(a) If Left(a(i), 1) = "...
VB中
如何建立多个
TEXT
答:
窗体上先加一个,INDEX属性改为0 Private Sub Add
Text
Box(ByVal N As Integer, ByVal Cols As Integer)For i = 1 To N '一共100个 Load Text1(i) '增加控件 Text1(i).Visible = True 'If i Mod Cols = 0 Then '4列,超过就换行 Text1(i).Top = Text1(i - 1).Top + 600 '...
VB中
怎么把另一个窗体
text
中的信息定为一个变量?
答:
1、a=form6.
text
1 2、c=a+b 3、多试验,多看帮助。窗体不要太多。答案补充:Private Sub timer1_timer()h = h + 1 If h = 2 and c = 1 Then Unload Me Form2.Show End If End Sub 1、这里的h在每次运行到该过程都是0而不会继承上次的值。因为你没有声明他为窗体级变量。而默认...
怎样在
VB 中Text
显示保留两位小数
答:
问题1:Private Sub Command1_Click()Dim x As Single s1 = Val(
Text
1.Text)s2 = Val(Text2.Text)Text3.Text = s1 + s2 Text4.Text = Format(s2 / (s1 + s2) , "0.00")End Sub 问题2:Private Sub Command1_Click()Dim x As Single s1 = Val(Text1.Text)s2 = Val(Text2....
VB中
如何让
text
显示*
答:
设计时直接选择其 PasswordChar 属性,填写 * 即可 当然也可以用代码实现:Private Sub Form_Load()
Text
1.PasswordChar = "*"End Sub --- PasswordChar 属性 返回或设置一个值,该值指示所键入的字符或占位符在 TextBox 控件中是否要显示出来;返回或设置用作占位符。语法 object.PasswordChar [=...
vb
怎样将
text
的值赋给变量
答:
'读取
Text
1的Text Dim text
text
= Text1.text 这是
vb
最基础的了 --- 这样吧!你是在一开始的时候定义a。而文字变化后未更新a的值 正确的代码如下 '一个Text 一个Command Public a '定义全局变量a Private Sub Command1_Click()MsgBox a '按下按钮后显示a End Sub Private Sub Text1_Chang...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜