66问答网
所有问题
当前搜索:
VB如何领文本框显示文字
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中
在
文本框
中
显示文字怎么
样才可以换行啊
答:
把
文本框
的MultiLine属性设为True就可以换行了。如果你想用代码在文本框中
显示
多行
文字
,可以把字符串和vbCrLf连起来。比如Text1.Text = "abc" & vbCrLf & "123",这样abc和123就会显示成2行了。
在
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中如何
在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中
在选择一个单选框并按确定按钮才会在
文本框
中
显示
相应内容
答:
Option1.Caption = "单选框"Text1.Text = ""Option1.Value = FalseEnd Sub 本回答由提问者推荐 举报| 答案纠错 | 评论 4 2 林贤佐 采纳率:47% 擅长:
VB
法律 其他回答 建单选框option1、
文本框
text1、按钮command1实现:选单选框后再按按钮才
显示文本
,否则不显示private sub command1_click()if ...
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如何
记忆
文本框
中的内容,下次运行时可以自动
显示
答:
"Text2", "Text", Text2.Text SaveSetting App.Title, "Text3", "Text", Text3.Text SaveSetting App.Title, "Text4", "Text", Text4.Text End Sub 这样就行了程序关闭后自动在注册表HKEY_CURRENT_USER\Software\
VB
and VBA Program Settings\工程名字\下面存放!加载时自动加载的呵呵 ...
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是一种...
棣栭〉
<涓婁竴椤
3
4
5
6
8
7
9
10
11
12
涓嬩竴椤
灏鹃〉
其他人还搜