00问答网
所有问题
当前搜索:
vb怎么隐藏文本框
vb 怎样
打开文件并把文件内容显示在
文本框
答:
文本框
通常用来显示文本字符,以下是用
VB
编写的打开某 txt 文件,并把文件内容显示在文本框的步骤及代码:1、添加必要的组件(文本框、按钮)2、设置属性:3、编写按钮的响应代码:代码如下:Private Sub Command1_Click() Dim a$ Text1.Text = "" Open "d:\test.txt" For Input...
vb中
,
如何
限制输入的
文本框
的内容只能是数字数或者字母?
答:
Private Sub Text1_Change()'有点懒 If IsNumeric(Text1) = False Then MsgBox "不是数字,请输入数字", 0, "提示"Text1.SetFocus Text1.SelStart = Len(Text1)SendKeys "{BACKSPACE}"End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) Like "[a-zA-Z...
VB
复选框里,当打钩复选框则在
文本框
输出文字,当取消勾选则去掉之前输出...
答:
上面是选择的情况 上面是清除后的情况 Private Sub Check1_Click(Index As Integer) '注意:这是数组控件Dim SS As IntegerSS = Check1(Index).IndexIf Check1(SS).Value = 1 ThenText1.Text = Text1.Text & ", " & Check1(SS).Caption'如果这里不输入控件标题,可以将输入的内容提前存...
VB中如何
在弹出的窗体中显示指定
文本框
中内容
答:
dim s as string s = w.text '把指定的
文本框
赋值给变量s,所以w应该是你自己的文本框的名字 MsgBox(s) '弹窗并显示变量s的文本如上代码比如加入一个按钮的点击事件之中,修改w为你自己的文本框的名字即可。
vb
问题(去除
文本框
中所有的空行)
答:
提供一个思路:将
文本
读入一个字符串中,用Instr函数找出整个字符串所有连续的回车换行符(vbcrlf),然后把这些连续的回车换行符删除只留下一个就行了。
VB如何
把文件内容显示在
文本框
中?
答:
为了在 TextBox 控件中显示多行文本,要将 MultiLine 属性设置为 True。如果多行 TextBox 没有水平滚动条,那么即使 TextBox 调整了大小,文本也会自动换行。为了在 TextBox 上定制滚动条组合,需要设置 ScrollBars 属性。如果
文本框
的 MultiLine 属性设置为 True 而且它的 ScrollBars 没有设置为 None...
用
VB怎么
”判断”一个窗口中的
文本框
有没有获得焦点
答:
VB
陆.0需在窗体的Load实践代码中将需获得焦点的
文本框
的TabIndex属性设置为0。 TabIndex 属性,返回或设置父窗体中大部分对象的 tab 键次序。 说明 缺省情况下,在窗体上画控件时 Visual Basic 会分配一个 tab 键顺序,但 Menu、Timer、Data、Image、Line 和 Shape 控件除外,这些控件不包括在 tab 键...
关于
VB
语言
文本框
设置问题
答:
在
文本框
的单击事件写入 Text1.SelStart = 0 '设置起点 Text1.SelLength = Len(Text1.Text) '设置终点 Len函数在这意思就是取得 text1.text里面文本里面的字符个数 例:Private Sub Text1_Click() 'Text1是文本框 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Sub ...
VB中如何
在
文本框
内输入文字的同时,在标签上显示文本框中的文字
答:
代码如下:1、方法一:text1.passwordchar = "*"sub command1_click()label1.caption =text1.text end sub 2、方法二:sub command1_click()label1.caption = string("*",len(text1.text))end sub
VB中如何
在
文本框
内输入文字的同时,在标签上显示文本框中的文字
答:
代码如下:1、方法一:text1.passwordchar = "*"sub command1_click()label1.caption =text1.text end sub 2、方法二:sub command1_click()label1.caption = string("*",len(text1.text))end sub
棣栭〉
<涓婁竴椤
6
7
8
9
11
12
13
14
10
15
涓嬩竴椤
灏鹃〉
其他人还搜