66问答网
所有问题
当前搜索:
vb文本框显示文字
VB
编程,在窗体上创建一
文本框
,通过选择,我们可以改变文本框的字体以及字...
答:
Private Sub Option1_Click(Index As Integer)''字体、字色、背景都用控件数组 Text1.FontName = Option1(Index).Caption '字体 End Sub Private Sub Option2_Click(Index As Integer)If Option2(Index).Caption = "红色" Then '背景色 Text1.BackColor =
vb
Red ElseIf Option2(Index).Caption...
vb
中
文本框
可以输出的内容如何在列表框里输出?
答:
以下程序实现:在
文本框
输入内容,按回车键(Enter键)后,文本框中的内容输出到列表框。1)在窗体上布置一个TextBox控件和一个ListBox控件 2)代码 Option ExplicitPrivate Sub Form_Load() ' 窗体启动时,清空Text1和List1 Text1.Text = "" List1.ClearEnd SubPrivate Sub Text1_KeyPr...
vb
6.0。在
文本框
中,怎样在文本框为空的时候
显示
灰色的提示?
答:
Option Explicit Private Sub Form_Load()Text1.ForeColor = &H80000010 Text1.Text = "
显示
灰色提示
文字
"End Sub Private Sub Text1_GotFocus()Text1.Text = ""Text1.ForeColor = &H80000012 End Sub Private Sub Text1_LostFocus()If Len(Text1.Text) = 0 Then Text1.Text = "显示灰色...
vb
语言中的text属性到底是用来干什么的?图中为什么要把text属性设置为空...
答:
属性是指控件的一种特性。图中的控件主要是
文本框
控件,而文本框控件的text属性是指
显示
在文本框中的
文字
内容。在第3步中将所有文本框控件的text属性设置为空,意思是在打开程序时所有文本框中初始状态都没有文字。
vba
文本框
字体大小自动调整
答:
2、在窗体的代码模块中,添加代码。3、首先获取
文本框
中输入的字符数,然后根据字符数的不同,自动调整文本框的字体大小。这里以字符数小于等于10、大于10且小于等于20、大于20为界限,分别将字体大小设置为12、10、8。4、运行表单,并在文本框中输入不同长度的
文字
,可以看到文本框的字体大小会随着输入...
在
vb
2005中如何实现在标签中
显示
输入
文本框文字
的首尾字符,类似下图...
答:
可以用Left和Right函数截取
文本框
字符串的首尾字符,再组合到一起,但这两个函数在VS2012中要写成:Microsoft.VisualBasic.Left 和Microsoft.VisualBasic.Right。没用过
VB
2005,不知道适用与否(假设按钮为Button1,标签为Label1):Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ...
在
vb
中如何编一个代码实现模拟把
文字
一个一个
显示
出来,可以调剂快慢...
答:
“
文字
一个一个
显示
出来”可能有两种理解:一是像打字那样的效果,一个“接”一个地显示;二是显示当前字的时候刚刚显示的消失,就是一个代替一个地显示。Dim i As Integer Dim L As Integer Dim v As Integer Private Sub Command1_Click()i = 0 L = Len(Text1.Text)'方法一:用text输入...
vb
状态栏
显示文字
答:
我明白你的意思,你是想鼠标移动过工具栏按钮时
显示
此按钮的Tag内容,但是你把这个MouseMove事件的Button参数与ButtonClick的Button参数弄混了。MouseMove事件是不能返回按钮参数的,但是ButtonClick事件就可以。所以你如果固执的要使用MouseMove事件的话,那么就只能根据X、Y参数与Button的Left、Width属性进行对比...
VB文本框
怎么输出字符串?
答:
这样改:Text4.Text=min +"<"+ k +"<" +max
VB
关于选中
文本框
的
文字
的小问题
答:
先设置 text2.HideSelection =false 这个需要在属性窗口设置 Private Sub Command1_Click()Startme = Text2.SelLength + Text2.SelStart + 1 '给变量赋值 Where2 = InStr(Startme,Text2.Text,Text1.Text)'令其从上次找到的地方找起 If Where2 Then Text2.SelStart = Where2 - 1 Text2.Sel...
棣栭〉
<涓婁竴椤
5
6
7
8
10
11
12
9
13
14
涓嬩竴椤
灏鹃〉
其他人还搜