66问答网
所有问题
当前搜索:
VB如何领文本框显示文字
...控件选择相应内容,然后在
文本框
里
显示
相应的数据
答:
两组数据你要有关联的东西,简单的用二维数组(建议用集合Collection),如果用数据库,后面操作会比较简单。当然,如果数据不是很多,直接在代码里写就行了,比如 '添加数据到Combo,也可以直接在设计界面编辑列表(List属性)Combo1.Clear Combo1.AddItem "操场"Combo1.AddItem "教学楼"...'点击事件...
在
vb中如何
读取
文本框
中的文本
答:
你要随机读入的?private sub command1_click()dim a ,i as integer,temp as string open "C:MYFILE.TXT" for input as #1 input#1,temp close #1 a=split(temp," ") '数据空格间隔 所以数组时这样的··randomize '随机
出现
一个数据 i=int(rnd*ubound(a))text1="" '每次text只...
VB 如何
取得一个
文本框
的值?
答:
Dim s As String s = Text1.Text //获取
文本框
的植 s= Label1.Caption //获取标签的字符 s= Combo1.Text //获取下拉匡的值 s = Option1.Caption //获取单选按钮的标签字符 s = OpText6.Text = Check1.Caption//获取单选按钮的值(布尔值,选中为True 未选中为False)s = Check...
vb中如何
在text控件中
显示
word文档内容
答:
False)Do While Not tTextStream.AtEndOfStream cFilename = tTextStream.ReadLine Text1.SelText = cFilename Loop End If End Sub 这个方法打开
文本
文件没有问题,打开Word
显示
不出原字,因为WORD并不是纯文本的 我这个代码可以实现打开文本文件的。引用 script run time 部件common dialog control ...
VB 如何
获取外部程序
文本框
内容
答:
'获取控件的内容 Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_GETTEXT = &HD Private Const WM_GETTEXTLENGTH = &HEPublic Function ...
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
VB如何
实现
文本框
内的
文字
一个一个的
出现
答:
Private Sub Command3_Click()Dim S As String, i As Long, t S = "abcdefghijklmnopqrst"With Text1 For i = 1 To Len(S).Text = .Text & Mid(S, i, 1)t = Timer Do While Timer - t <= 1 DoEvents Loop Next End With End Sub ...
vb中如何
通过点击按钮,全选
文本框
中所有
文字
?
答:
Option ExplicitPrivate Sub Command1_Click() '选择
文本框
中所有文本 With Text1 .SelStart = 0 .SelLength = Len(Text1.Text) '让文本框获取焦点 .SetFocus End WithEnd SubPrivate Sub Form_Load() '在TextBox中
显示
一些文本 Text1.Text = "Visual Basic是一种...
VB
已知外部程序上的一个
文本框
句柄,
如何
获得这个文本框内的内容?或...
答:
SendMessage(Handle, WM_GETTEXT, buffer_size, buffer)实现:Dim strBuffer As String SendMessage WindowHandle, &HD, 255, ByVal strBuffer
vb中
在
文本框
Text1中输入任意内容,实现在按下回车键后,将这些内容用消...
答:
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then MsgBox Text1.Text End If End Sub
棣栭〉
<涓婁竴椤
3
4
5
6
8
7
9
10
11
12
涓嬩竴椤
灏鹃〉
其他人还搜