请电脑大神们帮忙写VB代码,/在起始位置和长度的文本框中输入数字后,单机选取按钮时第一个文本框中的相应内容为选中状态,

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/11 12:34:34
请电脑大神们帮忙写VB代码,/在起始位置和长度的文本框中输入数字后,单机选取按钮时第一个文本框中的相应内容为选中状态,

请电脑大神们帮忙写VB代码,/在起始位置和长度的文本框中输入数字后,单机选取按钮时第一个文本框中的相应内容为选中状态,
请电脑大神们帮忙写VB代码,/在起始位置和长度的文本框中输入数字后,单机选取按钮时第一个文本框中的相应内容为选中状态,

请电脑大神们帮忙写VB代码,/在起始位置和长度的文本框中输入数字后,单机选取按钮时第一个文本框中的相应内容为选中状态,

'设控件text1为文本 text2为开始位置 text3为长度
代码如下:

Private Sub Command1_Click()
'设text1为文本 text2为开始位置 text3为长度
If Len(Text1) = 0 Then MsgBox "文本为空!": Text1.SetFocus: Exit Sub '文本为空
If IsNumeric(Text2) = False Then MsgBox "起始位置不为数字!": Text2.SetFocus: Exit Sub '起始位置不为数字
If IsNumeric(Text3) = False Then MsgBox "长度不为数字!": Text3.SetFocus: Exit Sub '长度不为数字
If Len(Text1) <= CInt(Text2) Then MsgBox "起始位置超过文本长度!": Text2.SetFocus: Exit Sub '起始位置超过文本长度
If (Len(Text1) - CInt(Text2)) < CInt(Text3) Then Text3 = Format(Len(Text1) - CInt(Text2), "0") '总长度超长时,自动设置为最长长度
'上面的都是防止错误,下面才是主要的
Text1.SelStart = Format(Text2, 0) '文本起始位置
Text1.SelLength = Format(Text3, 0) '设置选取的文本长度
Text1.SetFocus    '设置焦点
End Sub

请电脑大神们帮忙写VB代码,/在起始位置和长度的文本框中输入数字后,单机选取按钮时第一个文本框中的相应内容为选中状态, 我想在用VB作一个科学计算器,怎样实现sin.cos.tan等功能代码怎么写VB 求大神帮忙写一个matlab绘图代码要求是这样的,是一个地下油库,横截面为圆,中心位置上的半径为三米,上下底上的半径为两米,高为十二米,纵截面的两侧是顶点在中心位置的抛物线,用matlab绘制 把圆周率pi的精确度怎么能大到100000位(在vb上怎么写它的代码) VB里求三个数的最大值编程我用了三个文本框text1 text2 text3根据客户输入的值在text4里显示最大值请问代码该怎么写?请不要轻视小问题我求教还不行吗 vb怎么在一个圆内画一个正五边形?写下代码! 在vb中怎么求三角函数值 代码编写 MODBUS规定的内容,起始符 + 设备地址 + 功能代码+ 数据+ 效验码+ 结束字符.设备地址我知道的.功能代码,比如说要读取一个D值,就写H3,请说详细一点 求MATLAB大神帮忙解下二阶微分方程麻烦把代码写上,我写的一直算不出结果, 求vb大神帮忙做一道题.要求;只需要要程序写出来,界面的截图;超长正整数的加法,请设计一个算法完成两个超长正整数的加法. 求大神解释下VB代码意思,要答辩答的好必加分数! 请大神们帮忙修改作文! 请大神们帮忙写一个作文题目是读书的体会500字 各位大神请帮忙.这个题目怎么写? 在VB中,多个条件一个结论,怎么写代码?不要给我说是:IF 条件AND条件AND.Then Msgbox(条件是3个以上 请大神帮忙写一篇英语作文.1、 [说明] 请给经理写一份电子邮件,要求购买电脑(computer)和打印机(printer).2、 [内容] 因为现有电脑和打印机已使用五年以上,经常出现故障,影响工作;此外,3名 长江到底有多长,起始位置在哪 请帮忙写个图书管理系统统计高等教育出版社出版的图书数目算法(用c伪代码)谢谢