66问答网
所有问题
当前搜索:
vb显示文本框内容代码
用
vb文本框
如何实现以固定格式
显示
文字?
答:
1L的办法不错 但是如果要在同个
文本框
里实现功能的话~可以把
代码
放在LostFocus事件中 Private Sub Text1_LostFocus()Text1.Text = "GP-CD-E-07" & Format(Text1.Text, "0000")End Sub 当你在输入的时候,
显示内容
和你输入的完全一样 但是当焦点转移到其他位置时"GP-CD-E-07"会自动加上 另外...
vb
,
文本框
1的
内容
怎么像这个要求
显示
在文本框2?
答:
窗体放置两个
文本框
,text1,text2 private sub text1_keydown(keycode as integer,shift as integer)if keycode = 13 then '在文本框1中输入
内容
,按回车后,文本框2内容变为文本框1内容 text2=text1 end if end sub
...控件选择相应
内容
,然后在
文本框
里
显示
相应的数据
答:
'添加数据到Combo,也可以直接在设计界面编辑列表(List属性)Combo1.Clear Combo1.AddItem "操场"Combo1.AddItem "教学楼"...'点击事件Click里
的代码
select case Combo1.Index case 0 '这里需要你自己去对应数据,跟上面一致,这里是“操场”Text1.Text = "1200" '操场的面积 case 1 Text1.Text...
...如何获得这个文本框内
的内容
?或者
文本框的
标题?
答:
SendMessage(Handle, WM_GETTEXT, buffer_size, buffer)实现:Dim strBuffer As String SendMessage WindowHandle, &HD, 255, ByVal strBuffer
求:点击
VB
下拉列表框的项目后。里面的内容直接
显示
在
文本框的代码
答:
Private Sub Combo1_Click()Text1.Text = Combo1.Text End Sub 以上
代码
表示 点击
VB
下拉列表
框的
项目后。 Combo1_Click 点击的
内容显示
到
文本框
里 Text1.Text = Combo1.Text
vb文本框
怎样依次
显示
不同多行文字
内容
?
答:
'一个计数器,记录
显示
了多少文字 Dim count As Integer '字符串数组 Dim strArray(10) As String 'Load方法 Private Sub Form_Load()count = 1 strArray(1) = "第1段文字"strArray(2) = "第2段文字"'...以此类推,把你需要的文字添加到数组里 '显示第1段文字 Text1.Text = strArray...
VB
中怎样把结果
显示
在
文本框
中
答:
private sub commad1_click()dim a,b,c as istring if a>b then text4.text=a else text4.text=b elseif a>c text4.text=a else text4.text=c 。。。(省略)endif endsub 废话不多说了 你问
的
问题嘛。 text4.text=a 可以实现,但前提是定义A变量是字符值。如果是输入的字符串...
vb
中
文本框
可以输出
的内容
如何在列表框里输出?
答:
以下程序实现:在
文本框
输入内容,按回车键(Enter键)后,文本框中
的内容
输出到列表框。1)在窗体上布置一个TextBox控件和一个ListBox控件 2)
代码
Option ExplicitPrivate Sub Form_Load() ' 窗体启动时,清空Text1和List1 Text1.Text = "" List1.ClearEnd SubPrivate Sub Text1_KeyPr...
vb
如何编写
代码
在运行时 往
文本框
中输入信息 小白刚学
答:
往窗体上放置一个
文本
控件(text1),点击run即可。或者:你在放置个按钮、放置个标签。在按钮的单击
代码
中输入:Sub Command1_Click ()label1.Caption = text1.Text End Sub ---再run试试
求
VB代码
或做好的文件:编写程序,实现设置
文本框
内文本 字体、大小...
答:
Text1.ForeColor =
vb
Blue ElseIf Option3(1).Value = True Then Text1.ForeColor = &HC000C0 ElseIf Option3(2).Value = True Then Text1.ForeColor = vbGreen End If End Sub Private Sub Form_Load()Me.Caption = "框架的使用"Command1.Caption = "
显示
"Command2.Caption = "结束"...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜