请电脑大神们帮忙写VB代码,/在起始位置和长度的文本框中输入数字后,单机选取按钮时第一个文本框中的相应内容为选中状态,
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/20 07:22:46
xՕkOPǿ
b /@IHԘ@|KznlX;%%\U.EH`l\LO۽+xà 79Om9g
7zaj9xGoAW71O98;U?2l,Q]۱N>uc'Yf#,P@ PH"V,>XH&rM|"cu[."K`3\;1f6¾*zSMQYdl9 ;RK^@Itt8Q1Ikh%qe; ]aXL4jxފ$~D=Q" ed{x,vj,GZq)GRbJ@)!ݥkvʜo
|u?)vPSK] nqk:7Oy.7PA͊=ʥZ~r*Ϋ78
.WF
Khۂ+w
,ofІۥkOkyKť_Zqnik+;ño3֭)2O6Y}
(5z&s&vyGw{-%gտZp:J
JO8= O
请电脑大神们帮忙写VB代码,/在起始位置和长度的文本框中输入数字后,单机选取按钮时第一个文本框中的相应内容为选中状态,
请电脑大神们帮忙写VB代码,/在起始位置和长度的文本框中输入数字后,单机选取按钮时第一个文本框中的相应内容为选中状态,
请电脑大神们帮忙写VB代码,/在起始位置和长度的文本框中输入数字后,单机选取按钮时第一个文本框中的相应内容为选中状态,
'设控件text1为文本 text2为开始位置 text3为长度
代码如下:
'设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伪代码)谢谢