- 博客(11)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 vb 取得单击textBox选中指定内容
'函数名字：getTextboxSelLength'函数作用：单击textBox，根据光标所在位置，选中光标前后处指定内容。'strText：textBox控件'numPosition：光标单击位置'strPrev：指定前面内容'strNext：指定后面内容Public Sub getTextboxSelLength(strText As TextBox, numPosition As
2014-04-22 18:10:32
3254
原创 vb 运行后拖动控件
'VB不用API在EXE运行时自由移动窗口上的控件代码：Dim moving As Boolean, X1 As Integer, Y1 As IntegerPrivate Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '鼠标在按钮上点击下去时执行(此时鼠标一直
2014-04-19 22:10:03
2808
原创 ps 钢笔工具 路径 常用
->.在路径选择工具下快速调整点的曲线？快捷键A，然后ctrl+alt再转动点。使用场景：画完几个点曲线后，发现前面的曲线还需要调节一下，就用此方法快速调节。->.两个闭合路径取得同心点？a:路径选择工具b:选中两个路径。c:上面工具栏处，一排对齐工具，上下左右对齐下即可。注意：路径选择工具才有对齐工具，不小心变成了直接选择工具就没有那一排对齐工具了。-
2014-04-12 17:25:49
1476
原创 vb 右键弹出菜单
请进行如下操作。打开“菜单编辑器”，按常规方法添加菜单。例如：－－－－－－－－－－－菜单 (名称为mnuPop)....菜单1 (名称为mnuPop1)....菜单2 (名称为mnuPop2)－－－－－－－－－－－把“标题”菜单的“可见”复选框去掉。添加如下代码：Private Sub Form_MouseDown(Button As Integer, Shift As I
2014-04-11 12:06:06
4570
原创 vb 时间戳与时间互转
'参数：strTime:要转换的时间；intTimeZone：该时间对应的时区'返回值：strTime相对于1970年1月1日午夜0点经过的秒数'示例：ToUnixTime("2008-5-23 10:51:0", +8)，返回值为1211511060Function ToUnixTime(strTime, intTimeZone) If IsEmpty(strTime) Or No
2014-04-09 21:13:47
7263
1
原创 vb URL编码 unicode中文互转, gb2312中文互转, utf8中文互转
'//vb将unicode转成汉字，Public Function unicodeDecode(strCode As String) As String Dim Char As String, arr strCode = Replace(strCode, "U", "u") arr = Split(strCode, "\u") For i = 0 T
2014-04-08 22:26:46
11949
1
原创 vb 去掉以“//”为注释行的内容
'//去掉源代码中的“//”注释语句Public Function cliearAnnotation(strCode As String) As String Dim arr, a As Integer, strFront As String arr = Split(strCode, vbCrLf) For a = 0 To UBound(arr) If
2014-04-08 14:49:52
1395
原创 vb 去掉html中的回车和tab；转换部分html大写标签为小写
'//去掉各种回车空格符Public Function replaceEnter(bStr As String) bStr = Replace(bStr, " ", "") bStr = Replace(bStr, vbTab, "") bStr = Replace(bStr, vbCrLf, "") bStr = Replace(bStr, Chr(1
2014-04-08 10:51:40
836
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人