Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]控件代码的集中调试！


  共有2994人关注过本帖树形打印复制链接

主题：[分享]控件代码的集中调试！
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00 		[分享]控件代码的集中调试！  发帖心情 Post By：2016/1/21 1:27:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20160121205542.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20160121210006.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20160121210602.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:代码辅助调试.rar


注意红色箭头所指的内容要一致。

对“代码控——小小阿波罗”的再次整理和优化，高手勿喷！

[此贴子已经被作者于2016/1/21 21:07:16编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2016/1/21 7:42:00 [只看该作者]

顶在顶楼。

 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2016/1/21 8:21:00 [只看该作者]

下载学习
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/1/21 8:47:00 [只看该作者]

Foxtable的即时编译运行代码功能还是很好用的

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/21 9:21:00 [只看该作者]

mark

 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2016/1/21 23:02:00 [只看该作者]

今天又增加了一个函数，用来处理“统一分隔符”的，却报错了，奇怪地是报错后，却能得出正确的结果，请老师指点。

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160121225751.png
图片点击可在新窗口打开查看

Sub btn_UniformSeparator
'统一分隔符
Dim str As String = Args(0) '获取要处理的文本
str = str.Replace(vbcrlf," ") '用空格替换回车与换行符
Dim nstr As String
For Each s As String In str.Split(" ") '用空格分割字符串,以数组形式返回结果.
    If s.Trim() > "" Then '不为空字符串,则叠加连接
        nstr &= " " & s 'nstr = nstr & " " & s等效
    End If
Next
MessageBox.Show(nstr,"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End Sub

注：函数的参数是通过Filesys.ReadAllText()获取的。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:代码编辑器.zip



[此贴子已经被作者于2016/1/21 23:05:48编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/1/22 8:56:00 [只看该作者]

加载函数事件这里调换一下位置，先Trim再判断
......
For Each FnCode_ As String In FnCode_A
        Dim fnCd As String = FnCode_.Trim() '删除前后的空格
        If fnCd.Length > 0 Then
            Dim p As Integer = fnCd.IndexOf("Sub ") '获得代码块首次出现"Sub "字符的位置
......

而且应该在每个IndexOf之后加个判断
......
 Dim p As Integer = fnCd.IndexOf("Sub ") '获得代码块首次出现"Sub "字符的位置
            If p > -1 Then
......
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（Hyphen）加载函数事件这里调换一下位置，先Tr...  发帖心情 Post By：2016/1/22 10:46:00 [只看该作者]

位置一调换，一切OK了，可不知所以然，请老师赐教！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询