vb字符串选定复制代码

登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,823
问题已被解决
QQ一键登录
IT技术
vb 获取选中文字字数
问题一，如题，选中文本框中一段文字，显示共有多少字符；问题二，设一个标签，计算文本框中光标所在位置之前的字符数

匿名用户19 次浏览2009.11.10 提问
我来回答
最佳答案
本回答由达人推荐

幼稚丶诠释了涐扪旳青春〃
2018.06.08 回答
Private Sub Command1_Click()
Print Text1.SelLength '打印出选中的字符个数
Print Text1.SelStart '打印出光标所在位置之前的字符数
End Sub
12
评论
其他回答(1条回答)

丶流年╮在等谁玓相濡以沫
2009.11.10 回答
private sub command2_click()
dim i, a, b, c as integer
dim k as string
for i = 1 to len(s)
k = mid$(s, i, 1) ‘此处提醒为无效的过程调用或参数
if k > =“a” or k < =“z” then
a = a + 1
elseif k >= “a” or k <= “z” then
b = b + 1
elseif k = " " then
c = c + 1
end if
next i
23
评论
相关问题
2014-03-05vb 获取选中文字字数
2010-06-06vb里 RichTextBox怎么设置选中文字的背景颜色
2014-05-10javascript获取选中文字并保持选中文字的样式
2014-04-11vb 简易选中文字代码
2018-06-24VB如何获取网页中文字？
相关百科
VB
valence-bond theory是一种获得分子薛定谔方程近似解的处理方法。又称电子配对法。历史上最早发展起来的化学键理论。主要描述分子中的共价键和共价结合，其核心思想是电子配对形成定域化学键。查看详细百科
你想知道的这里都有

已解决问题:263,068,823

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1

登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,862
问题已被解决
QQ一键登录
编程
vb 简易选中文字代码
编程，用程序选择文本框中的文字，程序界面如图。要求：
程序运行时，文本框Text1中立即自动显示“好好学习，天天向上。”并且使“结束”(Command2)按钮不可用。
单击“选择”（Command1)按钮，要求分别用InputBox输入选择文字的起点和要选中的文字数目，然后选中这些文字，并把焦点定位到文本框中，并使“退出”按钮可用。
单击“退出”按钮结束程序运行

谢谢了，就是选中文字那部分不会

匿名用户23 次浏览2014.04.11 提问
我来回答
最佳答案
本回答由达人推荐

黑糖玛琪朵
2014.04.11 回答
private sub form_load()
text1.text=“好好学习，天天向上。”
command1.caption=“选择”
command2.caption=“退出”
command2.enabled=false
end sub

private sub command1_click()
dim m as integer,n as integer
m=inputbox(“请输入选择文字的起点：”)
n=inputbox(“请输入要选中的文字数目：”)
text1.selstart=m
text1.sellength=n
text1.setfocus
command2.enabled=true
end sub
1
评论
相关搜索
vb单击窗体显示文字的代码
vb代码字体设置
窗体上显示文本代码
vb窗体直接显示文字
在窗体上显示文字
vb字体大小代码
click事件代码怎么写
vb编程在窗体上显示字
vb文本框字体代码
vb字体加粗代码
vb单击窗体代码怎么写
vb字体加粗再取消
相关问题
2009-03-21vb 简易选中文字代码
2010-06-06vb里 RichTextBox怎么设置选中文字的背景颜色
2022-01-10photoshop中如何选中文字
2020-04-17word 中如何选中文字整体向右移动
2014-03-05vb 获取选中文字字数
你想知道的这里都有

已解决问题:263,068,862

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1

登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,862
问题已被解决
QQ一键登录
IT技术
用vb编程,怎样将两个文本框中的不同的数字找出来,显示在另外一个文本框中?

匿名用户10 次浏览2012.06.23 提问
我来回答
最佳答案
本回答由达人推荐

都市情缘
2012.06.23 回答
以下代码调试通过，注意数字间用空格隔开

Private Sub Command1_Click()
Dim numArr1
Dim numArr2
Dim i As Integer
numArr1 = Split(Text1.Text, " “) ‘如果用逗号隔开就应该是Split(Text1.Text,”,")
numArr2 = Split(Text2.Text, " ")
For i = 0 To UBound(numArr1)
If InStr(Text2.Text, numArr1(i)) = 0 Then Text3.Text = Text3.Text & numArr1(i) & " "
Next
For i = 0 To UBound(numArr2)
If InStr(Text1.Text, numArr2(i)) = 0 Then Text3.Text = Text3.Text & numArr2(i) & " "
Next
End Sub
抢首赞
评论
其他回答(1条回答)

下 个世纪？
2012.06.23 回答
代码应放在form_click()里面 private sub form_click() print “当前选中字符为:” & text.sellength end sub 如果没有效果原因可能有这几个. 1.控件名不对. 2.把这个属性改一下… form1.autoredraw = true 3.可能是点击的次数太多.所以先运行一下 cls '清屏 之后再运行 print “当前选中字符为:” & text.sellength
抢首赞
评论
相关问题
2010-07-23VB编程文本框
2010-05-15VB文本框问题？
2021-12-27在word中,文本框可以插入（） A.表格 B.文字和图片 C.文字和表格 D.文字，图片和表格
2014-05-17VB 文本框自动缩进
2016-11-20vb 怎么清除文本框数据
相关百科
VB
valence-bond theory是一种获得分子薛定谔方程近似解的处理方法。又称电子配对法。历史上最早发展起来的化学键理论。主要描述分子中的共价键和共价结合，其核心思想是电子配对形成定域化学键。查看详细百科
你想知道的这里都有

已解决问题:263,068,862

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1
登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,865
问题已被解决
QQ一键登录
IT技术
（vb）使鼠标一移到vb文本框中，就自动全部选定文本框中的文字
自动选中

匿名用户2 次浏览2013.06.11 提问
我来回答
最佳答案
本回答由达人推荐

匿名用户
2016.11.10 回答
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SelStart = 0 '选中文本内容
Text1.SelLength = Len(Text1.Text)
End Sub这个答案没有错啊，为什么不关闭问题呢
4
评论
其他回答(2条回答)

匿名用户
2013.06.30 回答
Private Sub txt_name_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
txt_name.SelStart = 0 '选中文本内容
txt_name.SelLength = Len(txt_name.Text)
End Sub
抢首赞
评论

女人味
2013.06.11 回答
Private Sub txt_name_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
txt_name.SelStart = 0 '选中文本内容
txt_name.SelLength = Len(txt_name.Text)
End Sub

再看看别人怎么说的。
3
评论
相关问题
2010-07-23VB编程文本框
2010-05-15VB文本框问题？
2022-01-05excel中插入文本框怎么把框去掉
2020-04-03在Word中如何移动文本框
2014-05-17VB 文本框自动缩进
相关百科

文本框
文本框是一个计算机系统工具，在Word中指一种可移动、可调大小的文字或图形容器，在PowerPoint中是已经存在的工具，可以直接在文本框内编辑文字。查看详细百科
你想知道的这里都有

已解决问题:263,068,865

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1
登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,865
问题已被解决
QQ一键登录
IT技术
vb中，如何把文本框里面的内容一点击左键就全部选择文本里面的内容？
界面上有很多文本框，我想做到所有的文本框，只要点击某一个文本框，然后这个文本框里面的内容全部被选择。如果一个一个文本框设置，那么实在是太麻烦了，如何一下子全部设置呢？

匿名用户29 次浏览2017.04.30 提问
我来回答
最佳答案
本回答由达人推荐

硝烟弥漫
2017.05.01 回答
把文本框弄成数组形式的就好办了
Private Sub Text1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index).Text)
End If

End Sub
4
评论
其他回答(1条回答)

ご塟鈊ご埋鑀
2017.04.30 回答
private sub command1_click()
text2.text = “”
on error resume next
open text4.text for input as #1
do while not eof(1)
line input #1, a
text2.text = text2.text & vbcrlf & a
loop
close #1
end sub
5
评论
相关问题
2019-02-14Python对文本里面的内容排序
2016-10-24excel表格插入文本框怎样去掉边框而不去掉文本里的内容
2017-06-05VB如何保存文本框里面的内容？
2011-06-18PHP 如何清空TXT文本里面的内容？
2014-03-01word文本框出错：当插入新的文本框时，其中已经有内容，并且和前面的文本框内容相同？
相关百科

左键
左键，男，彝族，1975年10月生，中央党校大学学历，中共党员，1998年8月参加工作。 现任保山市民族宗教事务局局长。查看详细百科
置顶
你想知道的这里都有

已解决问题:263,068,865

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1
登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,867
问题已被解决
QQ一键登录
IT技术
vb中如何实现text中选定文本操作

匿名用户49 次浏览2011.12.23 提问
我来回答
最佳答案
本回答由达人推荐

习惯ㄋ沉默い
2020.03.11 回答
它的三个相关属性介绍给你：
SelLength、SelStart、SelText 属性
例如：
Private Sub Command1_Click()
　　　Text1.SetFocus　　　　’ 这个不能没有，让Text1获得焦点
　　　Text1.SelStart = 0
　　　Text1.SelLength = 3
End Sub
这样，选中了前3个字符
10
评论
其他回答(2条回答)

匿名用户
2017.07.30 回答
1）设置Text控件的SelStart属性，指定所要选择文本起始位置；

2）设置Text控件的SelLength属性，设置选择文本字符的数量；
3）通过ext控件的SelText属性，获取所选定的文本
举例如下
Private Sub Command1_Click()
Text1.SelStart = 0 '起始位置为0，这是文本框最开始的位置
Text1.SelLength = 4 '选定4个字符
Debug.Print Text1.SelText
End Sub

2
评论

匿名用户
2011.12.24 回答
Private Sub Command1_Click()
Dim Where1 '获取需要查找的字符串变量
Text2.SetFocus '文本框获得焦点，以显示所找到的内容
Search = Text1.Text '这里的text1里面放你要查找的字符串
Where1 = InStr(Text2.Text, Search) '在文本中查找字符串
If Where1 Then
'若找到则设置选定的起始位置并使找到的字符串高亮
Text2.SelStart = Where1 - 1
Text2.SelLength = Len(Search)
'否则给出提示
Else: MsgBox “未找到所要查找的字符”, vbInformation, “提示”
End If
End Sub
2
评论
相关搜索
vbtext显示多行文本
vb中可以显示多行文本
vb设置文本允许多行
textbox多行显示
怎么在vb出现很多汉字
vb设置文本被锁定
vb设置文本框不可见
vb标签内容右对齐
vb文本框允许多行显示
vb打开文件修改指定行
vb怎么实现只读取一行
vb文本框能否显示行数
相关问题
2019-12-04VB text显示鼠标选定文本
2009-05-21VB如何实现对文本框中选定的文本进行操作
2010-05-16vb中选定文本反显的问题
2012-12-03文本框中选定的内容，由下列（ ）属性反映。 A. Text B. Caption C. Seltext D. SelLenght
2017-09-03VB6.0 TEXT控件 对选定文本进行对齐操作
相关百科
VB
valence-bond theory是一种获得分子薛定谔方程近似解的处理方法。又称电子配对法。历史上最早发展起来的化学键理论。主要描述分子中的共价键和共价结合，其核心思想是电子配对形成定域化学键。查看详细百科
置顶
你想知道的这里都有

已解决问题:263,068,867

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1

登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,867
问题已被解决
QQ一键登录
IT技术
VB怎么设置选择文本框指定位置字符的命令按钮
单击命令按钮1。在TEXT1中自动从第八个字符开始选定第九个字符，接着单击命令按钮2使选定字符串显示在label1中.

匿名用户90 次浏览2017.04.21 提问
我来回答
最佳答案
本回答由达人推荐

文艺小青年
2017.04.21 回答
是从第八个字符开始选定到第九个字符？还是从第八个字符开始选定九个字符？还是从第八个字符的后面开始选定第九个字符？
假定是前者吧：
Private Sub Command1_Click()
Text1.SetFocus
Text1.SelStart = 7
Text1.SelLength = 2
End Sub

Private Sub Command2_Click()
Label1.Caption = Text1.SelText
End Sub
3
评论
其他回答(1条回答)

梦梦梦
2017.04.21 回答
private sub command1_click()
dim i as integer

i = len(text1.text)
text1.text = mid(text1.text, 1, i - 1)

end sub
11
评论
相关问题
2010-06-03vb自动删除文本框中非数字字符（帮忙修改代码）
2010-12-12VB 文本框 没输入字符 按钮屏蔽 怎么弄
2017-06-04vb 文本框字符个数默认
2010-05-27vb中向指定文本框发送字符串的问题？
2012-05-12VB赋值 给指定程序的文本框
相关百科
VB
valence-bond theory是一种获得分子薛定谔方程近似解的处理方法。又称电子配对法。历史上最早发展起来的化学键理论。主要描述分子中的共价键和共价结合，其核心思想是电子配对形成定域化学键。查看详细百科
你想知道的这里都有

已解决问题:263,068,867

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1

登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,869
问题已被解决
QQ一键登录
IT技术
请教，vb中每次单击触发不同的时间，命令按钮每次单击是文本框显示不同类型文字，谢谢
Private Sub CmdDatChange_Click()

If ClickCount Mod 4 = 1 Then
TxtDate.Text = Format(Now, “yyyy年mm月dd日”)
End If
If ClickCount Mod 4 = 2 Then
TxtDate.Text = Format(Now, “Short Date”)
End If
If ClickCount Mod 4 = 3 Then
TxtDate.Text = Format(Now, “yyyy-mm-dd”)
End If
If ClickCount Mod 4 = 0 Then
TxtDate.Text = Format(Now, “Long Date”)
End If
end sub
Private Sub CmdDatChange_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
ClickCount = ClickCount + 1
End If
End Sub

匿名用户7 次浏览2011.07.09 提问
我来回答
最佳答案
本回答由达人推荐

匿名
2018.07.10 回答
Private Sub CmdDatChange_Click()
If Button = 1 Then
ClickCount = ClickCount + 1
End If
'这样就行了 ClickCount定义为全局变量
If ClickCount Mod 4 = 1 Then
TxtDate.Text = Format(Now, “yyyy年mm月dd日”)
End If
If ClickCount Mod 4 = 2 Then
TxtDate.Text = Format(Now, “Short Date”)
End If
If ClickCount Mod 4 = 3 Then
TxtDate.Text = Format(Now, “yyyy-mm-dd”)
End If
If ClickCount Mod 4 = 0 Then
TxtDate.Text = Format(Now, “Long Date”)
End If
end sub
抢首赞
评论
其他回答(4条回答)

匿名用户
2011.07.20 回答
使用控件调控EXCEL和使用COM调控EXCEL有什么不同 哪儿有路由啊 交换啊 什么的我只介绍VB的基本控件!!! 标签控件:编程中最常用的控件文本框:能显示和
抢首赞
评论

匿名用户
2011.07.09 回答
是不同的事件吧！那里面你就设置不同的条件了，如果文本框里面是哪个值，下次再单击时候就先判断里面值是什麼，然後在显示什麼值了
抢首赞
评论

匿名用户
2011.07.09 回答
不太明白你的问题？
抢首赞
评论

　ＦＯＸＳ❤
2011.07.09 回答
假设按钮是“command1”，文本框是“text1”，在按钮单击事件下输入以下代码：

private sub command1_click（） ——指明过程，单击按钮触发。
text1.visible=false ——指明触发程序，文本框不可见
end sub ——结束过程。
15
评论
相关百科

谢谢
《谢谢》（고맙습니다）是由李载东执导，李庆熙担任编剧，孔晓振、张赫、徐信爱、申成禄、申久等主演的剧情电视剧，于2007年3月21日在韩国MBC电视台首播。 该剧主要以韩国蓝岛为背景，讲述了封闭了内心的出色医生闵…查看详细百科
你想知道的这里都有

已解决问题:263,068,869

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1

IT技术
vb中 怎样使用MouseUp选定文本框内文本

匿名用户8 次浏览2017.09.21 提问
我来回答
最佳答案
本回答由达人推荐

匿名
2017.09.23 回答
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
SendKeys “{Home}+{End}”
End Sub
2
评论
其他回答(1条回答)

上善@若水
2017.09.21 回答
期待看到有用的回答！
抢首赞
评论

VBrichtextbox中如何选取文字用代码

狼来/mg了4 次浏览2008.11.06 提问
我来回答
最佳答案
本回答由达人推荐

宇叔
2008.11.06 回答
textbox.selStart=起始位置
textbox.selLength=选取长度
抢首赞
评论
登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,879
问题已被解决
QQ一键登录
IT技术
如何在VB中的textbox框中实现一开始选中文本 在线等
如何在VB中的textbox框中实现一开始选中文本,方便用户在输入数据时不用先选择,后在输入数据??? 在线等
刚才我忘记说了,我用的是vb2005 所以一些函数不对,可以帮我更改一下吗??

匿名用户5 次浏览2006.08.04 提问
我来回答
最佳答案
本回答由达人推荐

匿名用户
2018.06.11 回答
假设这个文本框的名称是txtIE,在窗体中双击这个文本框控件，在代码窗口中，默认是：
Private Sub txtIE_Change()
End Sub
将事件修改为MouseDown（当鼠标按下时，你也可以用别的事件），然后加入两行代码，如下：
Private Sub txtIE_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'主要是下面这两行，选择位置为0,即起点，然后选择长度为整个文本框的文件长度
txtIE.SelStart = 0
txtIE.SelLength = Len(txtIE.Text)
End Sub
8
评论
相关问题
2017-03-11如何在VB中的textbox框中实现一开始选中文本
2017-05-11vb中textbox选中文本是哪个
2013-06-08VB中的文本框选中的文字复制到另外一个文本框中
2017-09-07vb批量创建文本框(TextBox)
2009-08-11VB动态添加控件的问题——TextBox文本框
相关百科

textbox
TextBox组件（文本框组件）是一种常用的，也是比较容易掌握的组件。查看详细百科
你想知道的这里都有

已解决问题:263,068,879

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1
登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,883
问题已被解决
QQ一键登录
IT技术
如何在VB中的textbox框中实现一开始选中文本
如何在VB中的textbox框中实现一开始选中文本,方便用户在输入数据时不用先选择,后在输入数据??? 在线等
问题补充：刚才我忘记说了,我用的是vb2005 所以一些函数不对,可以帮我更改一下吗??
他的提示错误是end sub前应有一个sub,我搞不明白!!!

匿名用户14 次浏览2017.03.10 提问
我来回答
最佳答案
本回答由达人推荐

请叫我雷锋
2017.03.11 回答
VB6中的实现方法：
Private Sub Text1_GotFocus()
'获得焦点时全选
Text1.SelStart = 0
Text1.SelLength = Len(txtQQnum.Text)
End Sub

如果想要在程序运行时即把文本选中，可以把text1的Tabindex属性设置为0
抢首赞
评论
其他回答(1条回答)

苏苏苏
2017.03.10 回答
假设这个文本框的名称是txtie,在窗体中双击这个文本框控件，在代码窗口中，默认是：
private sub txtie_change()
end sub
将事件修改为mousedown（当鼠标按下时，你也可以用别的事件），然后加入两行代码，如下：
private sub txtie_mousedown(button as integer, shift as integer, x as single, y as single)
'主要是下面这两行，选择位置为0,即起点，然后选择长度为整个文本框的文件长度
txtie.selstart = 0
txtie.sellength = len(txtie.text)
end sub
14
评论
相关问题
2018-06-11如何在VB中的textbox框中实现一开始选中文本 在线等
2017-05-11vb中textbox选中文本是哪个
2017-09-07vb批量创建文本框(TextBox)
2013-06-08VB中的文本框选中的文字复制到另外一个文本框中
2009-08-11VB动态添加控件的问题——TextBox文本框
相关百科

textbox
TextBox组件（文本框组件）是一种常用的，也是比较容易掌握的组件。查看详细百科
你想知道的这里都有

已解决问题:263,068,883

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1

登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,883
问题已被解决
QQ一键登录
IT技术
vb中怎样才能使一个文本框里的内容随时间每隔一秒更新替换一次
比如我设计了一个倒计时器，用来显示注射器注射剩余时间，而且能在文本框中显示时分秒，但是注射器的剩余流量显示不出来

匿名用户43 次浏览2017.04.09 提问
我来回答
最佳答案
本回答由达人推荐

匿名
2017.04.11 回答
Private Sub Form_Load()
Text1.Locked = True
Text1.Text = 60
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Val(Text1.Text) - 1 <= 0 Then
Text1.Text = 60
Else
Text1.Text = Val(Text1.Text) - 1
End If
End Sub
3
评论
其他回答(1条回答)

2017.04.09 回答
简单的查找 用 instr()函数，替换用 replace()函数，百度一下其用法。

如果复杂一点，比如从光标所在位置开始查找，找到以后高亮查找的文本等效果，向上、向下查找，就像系统记事本那样，恐怕比较难！

抢首赞
评论
相关问题
2018-06-21QT每隔一秒文本框输出一条信息怎么写
2011-09-26vb单击“开始”按钮时,文本框便每隔一秒钟交替显示文字
2016-07-26在安卓开发程序中，我想一秒更新一次控件。比如每隔一秒，文本框都被刷新一次，咋办？
2020-02-24下列JavaScript 代码可以在文本框txtTime中每隔一秒显示当前系统时间正确的是哪个选项?为什么？
2009-05-23在网页上创建一个名为”time”的文本框,每隔一秒钟系统时间在这里动态显示的js代码
相关百科
VB
valence-bond theory是一种获得分子薛定谔方程近似解的处理方法。又称电子配对法。历史上最早发展起来的化学键理论。主要描述分子中的共价键和共价结合，其核心思想是电子配对形成定域化学键。查看详细百科
你想知道的这里都有

已解决问题:263,068,883

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1
登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,888
问题已被解决
QQ一键登录
IT技术
vb中如果使用tab选择文本框内容
有4个文本框分别是text1，text2，text3，text4当按下tab键时自动选择下一个文本框的内容

匿名用户9 次浏览2013.07.19 提问
我来回答
最佳答案
本回答由达人推荐

匿名
2020.01.20 回答
首先，设置文本框中关于焦点的属性，在属性页中设置，也可以通过代码实现。关于焦点有以下几项： TabStop True/False 使用TAB选择控件时该能否获得焦点。如果想实现你的功能，该项必须为True TabIndex 数字 控件获得焦点的顺序。在你的功能中，设置Text1-4分别为1、2、3、4 其次，为Text1-4分别添加以下代码，以Text1为例，2-4只要修改相应的数字。Private Sub Text1_GotFocus() 'text1获得焦点时产生的事件
Text1.SelStart = 0 ‘从text1的0位置开始选择
Text1.SelLength = Len(Text1.Text) '选择长度是text1的输入长度
End Sub
2
评论
其他回答(2条回答)

匿名用户
2013.08.13 回答
你是要那个文本框获得焦点，还是要获得焦点同时选中那个文本框的内容啊！
抢首赞
评论

匿名用户
2013.07.21 回答
首先要设置每个TEXT的TAB键顺序然后写每个文本框的获得焦点事件即：GotFOCUS用SELTEXT SELSTART等属性控制选择文本即可
抢首赞
评论
相关问题
2014-07-04vb对象属性设置（字体）-文本框内容的字体颜色如何设置？
2019-05-09VB 点击按钮使文本框内容全选并且复制
2011-08-19vb如何调用文本框内容运作到WebBrowser里面
2019-09-13rdlc 修改文本框内容
2013-02-08vb中，一个文本框内容变化了如何引起另一个文本框内容的变化？
相关百科

文本框
文本框是一个计算机系统工具，在Word中指一种可移动、可调大小的文字或图形容器，在PowerPoint中是已经存在的工具，可以直接在文本框内编辑文字。查看详细百科
你想知道的这里都有

已解决问题:263,068,888

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1
登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,893
问题已被解决
QQ一键登录
IT技术
vb 中如何取一个文本框中从第几行到第几行的数据？
需要赋值给数组。

为啥出现Invalid ReDim呢？

匿名用户19 次浏览2016.11.27 提问
我来回答
最佳答案
本回答由达人推荐

习惯有袮
2016.11.28 回答
a=split(text1,vbcrlf)

然后数组a中, a(0)是第1行, a(1)是第2行, 以下类推…

如果你想要第5行到第17行, 可以使用:
a=split(text1,vbcrlf)
redim preserve a(4 to 16)
b=join(a,vbcrlf)
4
评论
其他回答(1条回答)

匿名
2016.11.27 回答
按下alt+1 把text1中的文字复制到text2么？

12
评论
相关问题
2010-07-23VB编程文本框
2010-05-15VB文本框问题？
2022-02-13word文档中怎么删除文本框，而不删除文本框中的文字？
2020-04-02html中如何去掉文本框的边框
2014-05-17VB 文本框自动缩进
相关百科
VB
valence-bond theory是一种获得分子薛定谔方程近似解的处理方法。又称电子配对法。历史上最早发展起来的化学键理论。主要描述分子中的共价键和共价结合，其核心思想是电子配对形成定域化学键。查看详细百科
你想知道的这里都有

已解决问题:263,068,893

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1
登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,898
问题已被解决
QQ一键登录
全部分类
vb点击文本框自动选中文本
这个文本框里有若干个用空格相隔的字符串，想实现的是每次鼠标点击或Tab键切换文本框，最后一个空格后面的字符串默认被选中再补充一个问题，无论选中哪个字符串（双击选中），只要选中，则自动复制到text2.text



匿名用户142 次浏览2014.02.27 提问
我来回答
最佳答案
本回答由达人推荐

烟火。
2018.05.14 回答
Private Sub Text1_GotFocus() '当Text1获得焦点时，最后一个字符串被选中
Text1.SelStart = InStrRev(Text1.Text, " ")
Text1.SelLength = Len(Text1.Text)
Text1_MouseUp 0, 0, 0, 0 '同时把选中内容放入Text2
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Text1_MouseUp 0, 0, 0, 0 '如果选择是通过键盘完成的，也放入Text2中
End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) '这个则是处理用鼠标来选定的情况，不管是双击还是拖动选择均可
If Text1.SelText <> “” Then Text2.Text = Text1.SelText '如果Text1存在被选中的字符就放入Text2中
End Sub
3
评论
相关搜索
vb中text怎么输入文字
vb文本框怎么输入文字
vb文本框内容怎么设置
vb中list怎么输入文本
vb列表框输入文本
vb文本框中展示文字
vb文本框是什么
vb在文本框上显示文字
vb文本框怎么打字
vb多行文本怎么设置
vb文本框的属性名
vb文本框在哪
相关问题
2017-04-03vb中文本框
2013-12-10axure 文本框怎么设置选中文本框后自动全选文字
2017-04-14ppt怎么选中文本框
2014-05-17VB 文本框自动缩进
2010-05-11VB中文本框换行--------急!!!
相关百科
VB
valence-bond theory是一种获得分子薛定谔方程近似解的处理方法。又称电子配对法。历史上最早发展起来的化学键理论。主要描述分子中的共价键和共价结合，其核心思想是电子配对形成定域化学键。查看详细百科
置顶
你想知道的这里都有

已解决问题:263,068,898

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1
VB里关于mid函数的使用
A$="softwareandhardware"B$=Right(a$,8)C$=mid(a$,1,8)如果printB$那应该是hardware如果print C$那应该从哪里开始计算？还有mid函数里的1,8是什么意思？匿名用户50次浏览\mathrm{2012.04.27}提问我来回答最佳答案本回答由达人推荐しovё愛你╭沒有理由\mathrm{2018.11.29}回答software;1,8的意思是在A$中从第1个字符开始向右取8个字符，例如Mid（“ABCDEFG”,2,3）=“BCD”
抢首赞
评论
其他回答(2条回答)

匿名用户
2012.06.19 回答
print c$输出结果是software

mid函数 各个参数的含义：第一个是字符串，第二个是从第几个位置开始，第三个参数是取多少个
mid(a$,1,8)的含义就是：从字符串a$中第1个字符开始取8个
抢首赞
评论

花花世界，一场戏
2012.04.27 回答
首次提问，结果是 software
追问，结果是 e

mid(字符串,m,n)返回字符串的第m位起共n位的子字符串。
13
评论
相关搜索

登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,904
问题已被解决
QQ一键登录
编程
VB问题，关于mid和instr函数的使用问题
这两个函数最头疼了，mid一个是函数，一个是语句。 搞不懂怎么判断

instr也不是很熟悉。

能举例说明下吗，最好详细点，谢谢各位了。

匿名用户4 次浏览2011.09.07 提问5
我来回答
最佳答案
本回答由达人推荐

自由飞翔
2011.09.07 回答
mid是用来截取字符串的某个子串的，比如a=“abcdefg”，那么mid(a, 2, 3)=“bcd”，也就是从第二位开始截取，长度是3的子串。

instr(str1,str2)是用来比较str1中是否含有str2字符串的，如果有，那么将会返回这个字符串所在位置的所引值，没有则返回一个0，比如：instr(“abc”, “a”)=1, instr(“abc”, “b”)=2, instr(“abc”, “bc”)=2, instr(“abc”, “d”)=0

抢首赞
评论
其他回答(1条回答)

芳Fung
2011.09.07 回答
书上是这样说的， mid返回一个variant（string），包含字符串中指定的数量的字符。

str 是将数字转换成字符串

抢首赞
评论
相关搜索
vb instr函数用法
vb中instr函数怎么用
oracle instr函数
instr函数的使用方法
instr函数返回值例题
instr函数实例
vb mid
instr函数用法举例
instr的函数值为
instr函数是什么意思
instr在vb中的用法
instr提取
相关问题
2011-08-06VB问题instr和mid函数问题
2018-10-25VB问题，关于mid和instr函数的使用问题
2021-12-13关于遥控蝴蝶上课使用的问题
2017-03-06、以下关于switch语句和break语句的描述正确的是__D___ 在switch语句中必须使用break语句 break语句只能用
2017-06-25instr函数问题 vb
相关百科

函数
函数（function）在数学中是两不为空集的集合间的一种对应关系：输入值集合中的每项元素皆能对应唯一一项输出值集合中的元素。 其定义通常分为传统定义和近代定义，前者从运动变化的观点出发，而后者从集合、映射的…查看详细百科
你想知道的这里都有

已解决问题:263,068,904

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1
登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,904
问题已被解决
QQ一键登录
编程
VB问题instr和mid函数问题
在立即窗口中，print instr(2,“abcde”,“de”) 结果是4，为什么啊。按理来说代码我标明了从第2个b开始截取应该是3啊。 另外mid函数和mid语句有什么不同。举例说明下。 谢谢了

做亽崾低調 ！苆記6 次浏览2011.08.05 提问10
我来回答
最佳答案
本回答由达人推荐

全球唯一ID
2011.08.06 回答
instr(interge,string1,string2)，string1的每个字符的位置是固定的，不受其他影响，而interge只是用来从string1的第几个字符开始查起，而不是将第几个字符的序号置1，此函数反回的是整形数据，mid(interge1,string,interge2)此函数是返回string中从interge1开始的interge2个字符，返回的是字符串
4
评论

々霭圪巫师◎
2011.08.05 回答
instr(1,“abcde”,“d”)

instr(1,“abcde”,“de”)

instr(2,“abcde”,“d”)

instr(2,“abcde”,“de”)

instr(3,“abcde”,“d”)

instr(3,“abcde”,“de”) 的结果都是 4，因为 “d” 是在 “abcde” 的第四个位置找到的，“de” 也是。

mid 关键字在VB中比较特别，可以是mid函数，也可以是mid语句

2
评论
其他回答(2条回答)

用户2***5
2011.08.06 回答
print instr(2,“abcde”,“de”)

instr(起始查找位置，源字符串，要查找的字符或字符串）

参数1： 2代表从源字符串b处开始查找

参数2： abcde是你的源字符串

参数3： de是要在abcde中查找的字符串，超找的位置从b处开始

返回 ： 4，因为de与字符串abcde的第四个字符以后是相吻合的

抢首赞
评论

Link Doyle
2011.08.05 回答
先介绍下Instr函数和Mid函数(手机可能显示不正常,建议用电脑查看…):
InStr 函数
返回 Variant
(Long)，指定一字符串在另一字符串中最先出现的位置。

语法

InStr([start, ]string1, string2[, compare])

InStr 函数的语法具有下面的参数：

部分 说明 start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。 string1 必要参数。接受搜索的字符串表达式。 string2 必要参数。被搜索的字符串表达式。 Compare 可选参数。指定字符串比较。如果 compare 是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。

设置

compare 参数设置为：

常数 值 描述 vbUseCompareOption -1 使用Option Compare 语句设置执行一个比较。 vbBinaryCompare 0 执行一个二进制比较。 vbTextCompare 1 执行一个按照原文的比较。 vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库中信息的比较。

返回值

如果 InStr返回 string1 为零长度 0 string1 为 Null Null string2 为零长度 Start string2 为 Null Null string2 找不到 0 在 string1 中找到string2 找到的位置 start > string2 0

说明

InStrB 函数作用于包含在字符串中的字节数据。所以
InStrB 返回的是字节位置，而不是字符位置。

InStr 函数示例

本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。

Dim SearchString, SearchChar, MyPos
SearchString =“XXpXXpXXPXXP” ’ 被搜索的字符串。
SearchChar = “P” ’ 要查找字符串 “P”。

’ 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
’ 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1)

’ 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。
’ 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)

’ 缺省的比对方式为二进制比较（最后一个参数可省略）。
MyPos = Instr(SearchString, SearchChar) ’ 返回 9。

MyPos = Instr(1, SearchString, “W”) ’ 返回 0。

Mid 函数

返回 Variant
(String)，其中包含字符串中指定数量的字符。

语法

Mid(string, start[, length])

Mid 函数的语法具有下面的命名参数：

部分 说明 string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。 start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 (“”)。 length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。

说明

欲知 string的字符数，可用
Len 函数。

注意 MidB
函数作用于字符串中包含的字节数据，如同在双字节字符集(DBCS)语言中一样。因此其参数指定的是字节数，而不是字符数。

Mid 函数示例

本示例使用 Mid 语句来得到某个字符串中的几个字符。

Dim MyString, FirstWord, LastWord, MidWords
MyString = “Mid Function Demo” 建立一个字符串。
FirstWord = Mid(MyString, 1, 3) ’ 返回 “Mid”。
LastWord = Mid(MyString, 14, 4) ’ 返回 “Demo”。
MidWords = Mid(MyString, 5) ’ 返回 “Funcion Demo”。

接着是print instr(2,“abcde”,“de”)

由上可知instr(2,“abcde”,“de”) 会从"abcde"的第二个字符串"b"开始寻找,"de"位于"abcde"的第四位,所以instr(2,“abcde”,“de”)返回4,print instr(2,“abcde”,“de”) 输出4.

呃,明白了么?

抢首赞
评论
相关搜索
vbinstr函数
vb中instr函数
vb instr函数用法
instr返回值
vb语言instr
instr函数实例
instr是什么
instr是什么函数
vb中instr0ltype
python中instr用法
instr的函数值为
vb中chr函数
相关问题
2011-09-07VB问题，关于mid和instr函数的使用问题
2018-10-25VB问题，关于mid和instr函数的使用问题
2010-05-20VB mid 和 InStr的用法
2017-06-25instr函数问题 vb
2014-01-23VB mid函数问题
相关百科

mid函数
Mid是Visual Basic和Microsoft Excel中的一个字符串函数，作用是从一个字符串中截取出指定数量的字符。这个函数的3个参数各在VB和Excel中互相等价，但VB中的Length参数可以省略，而Excel中num_chars…查看详细百科
置顶
你想知道的这里都有

已解决问题:263,068,904

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1

登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,904
问题已被解决
QQ一键登录
编程
VB mid函数问题
Private Sub Text400_Change()
If IsNumeric(Text400) = True Then
Text410 = Mid(Text400, 1, 1)
Text420 = Mid(Text400, 2, 1)
Text430 = Mid(Text400, 3, 1)

Private Sub Text410_Change()
If IsNumeric(Text410) = True Then
Text100.Text = Text410.Text
End Sub

问题来了：
怎样做到当text400清空时text100的内容保持不变（也就是说此时不等于text410）？

匿名用户2 次浏览2014.01.23 提问
我来回答
最佳答案
本回答由达人推荐

爱已逝去
2014.01.23 回答
只要在 Text410_Change() 里加一个Else就好了啊！
改成：

Private Sub Text400_Change()
If IsNumeric(Text400) = True Then
Text410 = Mid(Text400, 1, 1)
Text420 = Mid(Text400, 2, 1)
Text430 = Mid(Text400, 3, 1)
Else
Text410= “”
Text420 = “”
Text430 = “”
End If
End Sub

Private Sub Text410_Change()
If IsNumeric(Text410) = True Then
Text100.Text = Text410.Text
Else
Text100.Text = Text100.Text
End If
End Sub
抢首赞
评论
相关搜索
vb len函数
vbmid函数的使用方法
vb right函数
mid 函数的含义
ifmid函数怎么用
vb中mid函数全部用法
vb中的mid函数
mid函数组合使用
vb trim函数
vb函数
vb mid函数的功能
mid函数的参数
相关问题
2010-02-27VB mid函数问题
2022-01-21vb的mid函数问题
2021-12-22C语言问题:有函数调用的流程图怎么画?
2022-02-21阶导数与函数的凹凸性问题为什么二阶导数大于0，函
2018-06-07VB的Mid函数调用问题
相关百科

函数
函数（function）在数学中是两不为空集的集合间的一种对应关系：输入值集合中的每项元素皆能对应唯一一项输出值集合中的元素。 其定义通常分为传统定义和近代定义，前者从运动变化的观点出发，而后者从集合、映射的…查看详细百科
你想知道的这里都有

已解决问题:263,068,904

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1

登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,909
问题已被解决
QQ一键登录
IT技术
vb中mid用法的问题
vb中mid用法的问题假如我有一变量a
a=123jssowkb
其中123后面的变量的字符数是会变的
我想提出123后面所有的字符
用mid怎么写

匿名用户24 次浏览2016.12.30 提问
我来回答
最佳答案
本回答由达人推荐

东篱采菊
2016.12.30 回答
Private Sub Form_Load()
a = “123jssowkb”
MsgBox Mid(a, 4, Len(a) - 3)
End Sub
抢首赞
评论
其他回答(1条回答)

匿名
2016.12.30 回答
mid就是从一个字符串中取子字符串，比如a=“aabbcc”,我们想取出"bb"就可以用mid(“aabbcc”,3,2) mid有3个参数，第一参数是要从哪个字符串中取 第二个参数是指从第几个开始取 第三个参数是指取几个 例如：mid(“aabbcc”,3,2)就是指从"aabbcc"的第3个字符开始，取2个字符，因此返回值为"bb".
66
评论
相关搜索
vb的mid函数
vb中mid函数全部用法
vba中的mid函数
vbmid函数的使用方法
vb中mid的具体应用
vba中left的用法
vbfor循环逆序输出
vba字符串截取
vb len函数
vba l截取
vb中left函数用法
vba mid函数用法
相关问题
2012-10-27vb.net中的mid（）用法
2014-04-25VB6.0中lnt()函数的用法问题
2021-11-03vb中mid函数是如何使用的
2016-05-16vb中Format函数的用法
2011-09-22vb中mid函数问题
相关百科

MID
MID（Mobile Internet Device，中文名：移动互联网设备）是英特尔在2008年IDF大会上提出的一种电脑概念。 英特尔将其定义为一种体积小于笔记本电脑、但大于手机的移动互联网设备，主要为满足…查看详细百科
你想知道的这里都有

已解决问题:263,068,909

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1
登录
网页
微信
知乎
图片
视频
医疗
汉语
问问
更多»
搜索答案我要提问
首页
问题分类
特色
问豆商城
个人中心
263,068,909
问题已被解决
QQ一键登录
IT技术
vb中mid函数是如何使用的

匿名用户1416 次浏览2015.06.07 提问
我来回答
最佳答案
本回答由达人推荐

失落的一角
2021.11.03 回答
1、打开一个Excel的文件，在表格中输入一些字符串，比如学习一首唐诗，如下图所示。



2、接着，鼠标左键单击【开发工具】菜单标签，在VBA控件下拉菜单中，并选择表单的按钮控件，如下图所示。



3、然后，在表格中绘制出表单按钮控件，并修改控件名称，比如使用Mid函数，并鼠标左键单击【查看代码】按钮，如下图所示。



4、接着，在代码窗口中输入VBA语句，输入定义变量的语句，并给变量赋值，如下图所示。



5、然后，在代码窗口中输入单元格的位置，并输入Mid函数，如下图所示。



6、接着，在Mid函数的参数中，输入字符串的取值范围，如下图所示。



7、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的单元格，显示出一句唐诗的字符串数据了，如下图所示。通过这样的操作，就学会用VBA的Mid函数给单元格赋值了。


抢首赞
评论
其他回答(1条回答)

匿名用户
2017.08.09 回答
Mid就是从一个字符串中取子字符串，比如a=“aabbcc”,我们想取出"bb"就可以用Mid(“aabbcc”,3,2)
Mid有3个参数，第一参数是要从哪个字符串中取
第二个参数是指从第几个开始取
第三个参数是指取几个
例如：Mid(“aabbcc”,3,2)就是指从"aabbcc"的第3个字符开始，取2个字符，因此返回值为"bb".
38
评论
相关搜索
vb mid函数的使用方法
mid 函数的含义
vlookup函数的使用方法
if函数的使用方法
vb mid函数是什么意思
mid函数组合使用
vlookup函数与mid函数
mid mod函数如何使用
ifmid函数怎么用
vb中mid函数全部用法
lookupmid详细用法
vb中的吗mid 什么意思
相关问题
2006-08-03vb中的mid函数
2017-09-16VB里关于mid函数的使用
2021-11-27matlab中corrcoef函数如何使用？
2017-12-19datediff函数的使用方法是如何的？
2011-09-07VB问题，关于mid和instr函数的使用问题
置顶
你想知道的这里都有

已解决问题:263,068,909

新手帮助
如何提问
如何回答
权威合作
企业合作
在线咨询
投诉建议
举报不良信息
未成年举报入口
搜狗问问小程序
企业推广 – 输入法 – 浏览器 – 隐私政策 – 免责声明 – 用户协议 – 帮助© 2023 SOGOU.COM 京ICP备11001839号-1