当前位置: 源码素材网 » ASP源码 » 博客日记 » 详情页

VB 实现文纯本的选择等操作

VB 实现纯文本的选择等操作,操作对象是TXT格式那种纯字符文本格式,完整的代码如下:
  Private Sub Command1_Click()
  Text1.Text = "大学毕业生就业形势严峻是当前社会的一大难题,创建社会主义和谐社会是众望所归。" '给文本框装入固定内容
  MsgBox "一次装入后,此按钮将不能再使用!" '装入后弹出窗体说明
  Command1.Enabled = False '只能装入一次,装入后按钮不可再用
  Text1.SetFocus
  End Sub
  Private Sub Command2_Click()
  Dim s As Integer
  s = InputBox("请输入要定位的光标位置(大于0)", "位置输入")
   '由用户来决定光标定位的位置
  Text1.SelStart = Val(s)
   '用SelStart属性实现定位
  Text1.SetFocus
  End Sub
  Private Sub Command3_Click()
  Dim x, i As Integer
  x = InputBox("请输入开始位置", "开始位置", "1")
  i = InputBox("请输入长度", "长度", "1") '由用户决定选定的位置和长度
  Text1.SelStart = Val(x) '决定起始位置
  Text1.SelLength = Val(i) '决定选定长度
  Text1.SetFocus
  End Sub
  Private Sub Command4_Click()
  Dim st As String
  st = InputBox("请输入要替换的文本", "文本输入") '由用户输入替换内容
  Text1.SelText = st '用Seltext属性实现替换
  Text1.SetFocus
  End Sub
  你也可下载这个源码,用VB打开可直接编译运行,运行效果如图所示。

  • 相关标签:文本选择
  • 调试环境:VB6.0
  • 文件大小:2.39K
  • 资源评级:
  • 更新时间:2019-02-20
  • 相关链接:暂无演示

源码测试截图:

VB 实现文纯本的选择等操作运行截图

相似源码:文本选择 ASP源码下载:VB 实现文纯本的选择等操作 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“VB 实现文纯本的选择等操作”源代码侵犯了您的权益,请尽快告诉我们。