lscx521的个人资料 - RAT

lscx521 lscx521

关注数: 6 粉丝数: 61 发帖数: 659 关注贴吧数: 11

给徒弟出了个打印图案的题，结果自己也不会了....求答案这种图案怎么输出，给定一个奇数，打印出回字图案，一圈黑，一圈白....无限，在线等.........

关于学习vb的各种吐槽

【绝不坑爹】神奇的图片，回复什么就显示什么回帖写上你喜欢的明星名字，再刷新到这里看看，就会显示出你想要的图片... 每次刷新都会变哦~~~~~~是不是很神奇！

应广大网友要求，AutoCode for VB6.0【源码】放出 AutoCode学习版已经放出来很长时间了，由于平时很忙，也没再管它，115的共享链接也不知道什么时候失效了，近期有很多网友想要源码学习一下，唉，其实代码没什么特别之处，技术资料基本上都是收集于网络，我也只是个vb爱好者，技术一般，今天特发此贴，共享AutoCode的源码，大家尽管拿去参考，只是希望大家在发布二次修改版本时，注明一下原创作者就OK了，同时感谢大家的关注，也希望高手们改造出更实用的AutoCode插件，到时候记得给我一份哦。源码下载地址： http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fshare%2Flink%3Fshareid%3D9513%26uk%3D637925683&urlrefer=7c22fe6b0ac71b646133e4d7cfbeba66 VB爱好者QQ交流群：19871152

衡水有会php的程序员吗，有点小活衡水有会php的程序员吗，有点小活，Q449806776

仿office2007界面【免dll、ocx】因需要写个小工具，想弄个2007皮肤界面，又不想用dll、ocx等等，在网上找了半天没找到现成的用户自定义控件，熬夜自己做了一个，坚持绿色轻量级程序！ show一下效果图：

网页嵌入百度影音，可以播放本地视频文件吗，怎么实现？如题，急求方法

VB6.0自学群欢迎VB爱好者加入 VB爱好者群欢迎广大自学VB、爱好VB的朋友加入，大家共同学习，一起进步！群：19871152（500人超级群）

发个简洁【获取外网IP】的例子今天写软件时想到的，可能不是最好的办法，但是算法可以参考下； '------------------------------------------------------ Dim ls As String, ip As String ls = GetBody("http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.ip138.com%2Fip2city.asp&urlrefer=e7ae2a79fd6f07a8ef56390b872122e8") ls = Replace(ls, "您的IP地址是：[", "[]") ls = Replace(ls, "] </center>", "[]") ip = Split(ls, "[]")(1) msgbox ip '------------------------------------------------------ GetBody过程代码大家应该都知道吧

Listview行图标排序问题【紧急求助】如图，列表排序问题，普通的排序我做出来了，比如排序ip地址、计算机名；但是，怎么排序在线的计算机呢，就是把PC-001和PC-003排列到一起去；应该是根据ListItems(n).icon的值来排列吧，求各位大侠给力相助，先谢谢了。

【自定义过程】根据字符长度自动加省略号，可识别汉字+字母数字这几天在写一个辅助工具，遇到个需要处理字符串长度省略的问题，自己写了一个，并不是很难，给大家分享一下 Private Function GetzfLen(zf As String) As String Dim i As Integer, a As Integer, b As Integer For i = 1 To Len(zf) If Asc(Mid(zf, i, 1)) >= 0 And Asc(Mid(zf, i, 1)) <= 255 Then a = a + 1 Else b = b + 1 End If If i < Len(zf) Then If b + Int(a / 2) >= 19 Then GetzfLen = Left(zf, i) & "..." Exit Function End If End If Next i If b + Int(a / 2) <= 20 Then GetzfLen = zf: Exit Function End Function

【多线程】的问题，有研究的进来下在网上找了段多线程的代码，有一个是类模块的，有一个是生成了ocx的结果我在调用的时候发现，按作者的示例，是多线程，但是实际应用却有问题， Private Sub Thread1_Run(ByVal lpParam As Long) Dim a As String Text1=GetBody("url") End Sub Function GetBody(ByVal url$, Optional ByVal Coding$ = "utf-8") ... End Function 通过上面代码发现，多线程是实现了，但是却没有返回要获取的内容，应该返回网页源码的过程代码没问题，单线程调用是可以返回内容的各位还有更好的办法吗？

看我怎么用【QQ邮箱--记事本】收藏常用代码前段时间一直百度一些模块功能代码，记得清在哪个网站还好，否则要找大半天才能找到自己想要的那段，后来发现QQ邮箱的记事本应该可以利用一下，于是开始捣鼓起来，功夫不负有心人，呵呵，弄出来一套高亮VBCode的工具（代码高亮工具的核心代码是从网络找来的，呵呵）；下面发两张截图：第一张，代码高亮工具效果图：第二张：保存到QQ邮箱记事本效果图嗯，用QQ邮箱记事本收藏代码确实比较方便，一、QQ到哪，你收藏的代码随时都可以查阅；二、支持标题和内容的模糊查找；另外，最开始我用的时候，那个代码框架上的“复制”是可以用的，因为里面含有js代码，最近不能用了，可能腾讯发现后给屏蔽了；呵呵，怎么样，这样一弄很实用吧，想要代码高亮工具的请留下邮箱，我会发源码给你们，另外，顺便求个粉行不，俺是从01年开始学Qbasic的，当时穷，没电脑，学Qbasic是在一个电子词典——文曲星上研究的，不知道有听说过的没，03年转的VB6.0，一下子面向对象界面化了，当时很是狂喜~~~

急求代码：怎样在外部程序的ListView中添加一条数据怎样在外部程序的ListView中添加一条数据，知道的老鸟们帮一下吧，小弟急用获取句柄模块略掉，我自己已完成

急求代码：怎样在外部程序的ListView中添加一条数据怎样在外部程序的ListView中添加一条数据，知道的老鸟们帮一下吧，小弟急用

1 下一页