欢迎来到路由器窝!

判断读取RichTextBox是不是到最后

浏览次数:

作者: 路由器窝

信息来源:

更新日期: 2016-12-08 10:52

文章简介

Dim currentline As Integer = 0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bu

  • 正文开始
  • 相关文章
  Dim currentline As Integer = 0 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (RichTextBox1.Lines.Length = 0) Then MsgBox("文本框为空 ")
        Exit Sub
        If (RichTextBox1.Lines.Length <= currentline) Then MsgBox("已到内容尾端 ") : currentline = 0 : Exit Sub
        If Not RichTextBox1.Lines(currentline) = " " Then Clipboard.SetText(RichTextBox1.Lines(currentline))
        currentline += 1
    End Sub

转载请注明:vs2010» 判断读取RichTextBox是不是到最后

标签:
  • VB.NET固定选项卡TabControl的标题宽度
    176阅读
    在TabControl的属性窗口,在SizeMode里选择Fixed;然后在ItemSize里边填入你要固定的大小即可。
  • VB.net复制RichTextBox1内容源码
    115阅读
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click My.Computer.Clipboard.Clear() If Me.RichTextBox1.Tex...
  • VB.NET调整tabcontrol的tabpage标签的宽度
    206阅读
    调整tabcontrol的tabpage标签的宽度
  • vb.net下载文件源码
    146阅读
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim documentURL Dim dlFileName documentURL = http://...
  • 获取网站代码
    155阅读
    Sub 获取一般性网页代码(ByVal URLstr As String) Try Dim w As New System.Net.WebClient() 要Imports System.Net w.Proxy = Nothing 设置为无代理模式,否则首次运行会慢4秒左右。 w.CachePolicy = New C...
  • 软件安装包制作(Advanced Installer)11.6.0 最新破解版
    199阅读
    破解方法: 1、先运行【advinst.msi】安装原版程序,安装完成后先不要运行程序; 2、复制压缩包中的Patch.exe程序到安装目录,默认安装目录为C:\Program Files\Caphyon\Advanced Installer 11.0\bin\x86或者x64\ 3、运行Patch.exe,点击PAT...
  • vb.net2010读取网页内容
    94阅读
    Dim Doc As New System.Net.WebClient Dim TempText As String TempText = System.Text.Encoding.Default.GetChars(Doc.DownloadData(http://www.zngps.com/)) RichTextBox...
  • VB.NET添加皮肤带实例查看工具
    152阅读
    第一步 添加皮肤控件dll: 项目-》添加引用-》浏览 选择IrisSkin4.dll第二步 导入皮肤 可以直接在项目的Debug目录下新建一个skin文件夹,然后复制皮肤.ssk文件到该文件夹第三步 在窗体的Load方法下面,添加如下代码,这里以VB.NET为例: Dim mySkin As Sunisof
  • 计算一个字符串出现的次数
    170阅读
    RichTextBox1.Text = href=4564564href=654654654dsdfhref= MsgBox(RichTextBox1.Text.Split(href=).Length - 1)
上一页:vb.net下载文件源码
下一页:逐行读取richtextBox1内容并赋值
最近更新作品
VB.net基础:如何获得并显示网上图片
更新时间:2020-07-02

160人已经看过了!

获取网站代码
更新时间:2019-09-21

155人已经看过了!

vb.net 正则表达式 取 html代码中的A标签的 href 链接
更新时间:2019-09-21

289人已经看过了!

VB.NET用正则表达提取数字
更新时间:2019-09-21

250人已经看过了!

判断指定路径下是否存在指定文件
更新时间:2018-12-08

125人已经看过了!

vb.net控件隐藏
更新时间:2017-11-20

175人已经看过了!

vb.net2010邮件发送带附件,带设置测试可用
更新时间:2017-08-24

142人已经看过了!

vb.net2010发送邮件
更新时间:2017-08-24

154人已经看过了!

VB.NET固定选项卡TabControl的标题宽度
更新时间:2017-06-13

176人已经看过了!