开发工具:
文件大小: 2kb
下载次数: 0
上传时间: 2019-07-10
详细说明: VB 实现纯文本的选择等操作,操作对象是TXT格式那种纯字符文本格式,完整的代码如下: Private Sub Command1_Click() Text1.Text = "大学毕业生就业形势严峻是当前社会的一大难题,创建社会主义和谐社会是众望所归。" 给文本框装入固定内容 MsgBox "一次装入后,此按钮将不能再使用!" 装入后弹出窗体说明 Command1.Enabled = False 只能装入一次,装入后按钮不可再用 Text1.SetFocus End Sub Private Sub Command2_Click() Dim s As I nteger 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打开可直接编译运行,运行效果如图所示。
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台,提供交流渠道,下载内容来自于网络,除下载问题外,其它问题请自行百度。
- 本站已设置防盗链,请勿用迅雷、QQ旋风等多线程下载软件下载资源,下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载,请稍后再次尝试;或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
- 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.
相关搜索: