[VB] Win+R
以前做的一个小软件,用来管理注册表里AppPath里的项,可以从运行对话框里快速启动程序。我一般是取程序名的两个字母,基本上都是左手边的,比如 Foxmail就用fx,FlashGet用fg,Visual C++用vc,这样就可以只用左手来启动程序了。我是感觉是方便点,具体用不用和怎么用 看个人高兴了。说明文件是照着EMU8086的说明文件用英文写的,纯粹为了好玩,英语没学好,有语法错误是难免的,所以不看也罢^_^。PS.早上起来 发现又下雨了。
下载:WinR
update @ 2009.06.18 把 COMCTL32.ocx 一起放进压缩包,避免有些机器上会出现找不到 COMCTL32.ocx 的错 误。

本文基于署名 2.5 中国大陆许可协议发布,欢迎转载,演绎或用于商业目的,但是必须保留本文的署名Xu Jiwei(包含链接)。
No comments yet.
No trackbacks yet.
Windows 下配置 CVS 服务器
about 2 years ago - No comments
在进行团队项目开发的过程当中,源代码版本控制是不可缺少的部分,我目前用过的代码版本控制工具就两个,Visual Source Safe和CVS,呃,准确来说,CVS是昨天才开始用的。 本来,我是一直用着VSS的,比较方便,直接集成在VSS里面,但是目前在写的XBS是ASP的,Visual Studio里没有ASP的项目,不像PHP可以有个vs.php,所以比较麻烦,一直用EditPlus来写XBS。前两天因为一个项目用PHP的,又想到了Eclipse有个PDT的,就去下了个已经配置好的开发PHP的Eclipse IDE,然后想要弄个代码版本控制工具,就想到了CVS这个开源界鼎鼎有名的东西,立马上网去搜,找到了for Windows的版本:cvsnt。 cvsnt是cvs Windows版本的服务端程序,提供基于 TCP/IP 协议的 CVS 服务,可以在http://www.cvsnt.org/下载到。找到了服务器程序后,找了几天篇教程,就开始配置CVS服务器。 准备工作 从http://www.cvsnt.org/下载cvsnt,我下载的版本是2.5.04。 安装cvsnt 直接双击运行cvsnt安装文件,安装过程中可以选择以经典、自定义和完全三种方式安装,在自定义方式中可以选择安装路径。安装完成后,在控制面板里出现一个CVSNT Server的项目,图标是一条鱼~~ 配置cvsnt 安装完成cvsnt后,就可以从控制面板中那条鱼来配置cvsnt了。首先,你要新建一个目录用来存放cvs仓库,我用的是G:\CVSROOT。这里需要先了解两个概念:cvs仓库和模块。我是这样理解的,cvs仓库相当于VS里一个解决方案,它可以包含多个项目,即模块。 打开cvsnt的控制面板后,可以看到7个选项卡,分别是:Server Information,用于查看服务器信息及一些简单的统计信息;Respository configuration,配置CVS仓库,包括添加、删除等;Server Setting,配置服务器运行的一些参数,诸如端口、加密、压缩等选项;Capatiblity Options,有关兼容性的选项,在这里主要配置一个兼容非cvsnt客户端的版本响应为cvs 1.11.2;Plugins,插件配置,安装完成可以不用管的~;Advanced,安装完成后也不用管了;About,在这里可以管理cvsnt服务的状态,停止或启动cvsnt和cvsnt lock服务。 其实简单来说,custom换默认设置安装完成后,要设置的东西只有两个:cvs仓库和服务器设置。 服务器设置:设置Run as为系统管理员帐号Administrator,或者新建一个本地用户,专门用于cvs。使用一个新建的本地帐户的好处是可以使用NTFS的权限控制来保证服务器的安全。 CVS仓库设置:进入Respository configuration选项卡,点击Add,出现添加CVS仓库的对话框,Type选择Standard即可,然后在Location里输入之前新建的用于存放CVS仓库的文件夹,我用的是G:\CVSROOT,在Name里会自动转换成一个可以用的CVS仓库的别名,比如我用的是“/CVSROOT”,其他的都默认,确定后cvsnt会询问你所添加的CVS仓库目录没有初始化,是否进行初始化,点“是”就行了,cvsnt会自动初始化指定的目录,初始化完成之后,可以在里面看到一个CVSROOT的文件夹。 认证设置:配置完CVS仓库后,为了使CVS能使用帐号进行访问而不是使用windows用户,需要修改cvsnt的认证方式,在CVS仓库目录的CVSROOT目录里找到config文件,先把它的只读属性去掉,然后使用文本编辑器打开,将第一行的#SystemAuth=yes改成#SystemAuth=no。 用户设置:在CVSROOT目录里,新建一个passwd文件,用文本编辑器打开,添加两行内容: cvsroot: xujiwei: 可以把“xujiwei”改成你要用的用户名。 修改密码:添加了用户之后,最好把密码修改掉。修改密码需要在cmd中进行,首先打开一个cmd,设置一下cvsroot环境变量: set cvsroot=:pserver:xujiwei@127.0.0.1/cvsroot 注意,这里的xujiwei是之前添加的用户名,/cvsroot是之前添加的CVS仓库的别名,如果你的设置不同,请把它们替换成自己的值,以后不再说明。 接着登录CVS服务器,因为添加用户时没有设置密码,因此可以不输入密码直接回车登录: cvs login 修改密码: cvs passwd 输入新密码和确认密码之后,就成功修改了用户的密码。 结语 我也是第一次使用cvs,因此如果文中有所错误还请指正。 by Xu Jiwei
在VB中用PictureBox实现图片的缩略图浏览
about 3 years ago - No comments
要写一个程序,涉及到缩略图的问题,原先准备用StretchBlt来实现的,后来找了下发现PictureBox的PaintPicture方法 也可以把图像按规定大小进行缩放,试了一下感觉PaintPicture的速度比StretchBlt快一些。 PaintPicture的 函数定义为: Sub PaintPicture(Picture As IPictureDisp, X1 As Single, Y1 As Single, [Width1], [Height1], [X2], [Y2], [Width2], [Height2], [Opcode]) X1 和Y1是目标位置,Width1和Height1是目标大小,默认是PictureBox的大小,X2和Y2是源位置,Width2和Height2是源 大小,Opcode是操作方式,默认应该是vbSrcCopy,如果Width1、Height1和Width2、Height2的大小不一样则进行缩 放。 新建一个工程,设置Form1的ScaleMode为“3 - Pixel”,往窗体上放1个FileListBox控件名称为 File1,1个ImageList控件名称为ImageList1,2个PictureBox控件,一个名称为Picture1,AutoResize 为True,Visible为False,另外一个名称为Picture2,AutoRedraw为True,Visible为False,Width和 Height为128,1个ListView控件名称为ListView1,将图像列表中普通设置为ImageList1。 在窗体里添加如 下代码: ‘ 窗体载入时载入图像列表 Private Sub Form_Load() Dim i As Long For i = 0 To File1.ListCount – 1 ‘ 载入图像 Picture1.Picture = LoadPicture(File1.Path & “\” & File1.List(i)) ‘ 生成缩略图 Picture2.PaintPicture Picture1.Picture, 0, 0 ‘ 添加缩略图到ImageList ImageList1.ListImages.Add , , Picture2.Image ‘ 添加缩略图到ListView More >
用VB写一个你自己的Flash播放器
about 4 years ago - No comments
前天在PConline下了一个孙鑫的《Java从入门到精通》的视频教程,Flash格式,在看的时候感觉很不爽,每一课开始的时候有一大段广 告,而且前面的一部分颇为啰嗦,讲了乱七八糟的东西,不知道是不是因为“入门”的关系,然后就把以前做的一个Flash播放器找出来,直接跳到自己要看的 地方~ 要想用VB做一个自己的Flash播放器还是比较方便的,因为Macromedia已经提供了Shockwave Flash控件, 可以方便来的播放Flash影片。要想使用这个控件,首先要在工程里添加这个控件,选中菜单“工程->部件”,找到 Shockwave Flash,打上勾,确定就可以了。另外,因为要加载Flash影片,所以我们还需要加入对话框控件 Microsoft Common Dialog Control。 做这个Flash播放器之前,先用对象浏览器来看一下 Shockwave Flash控件有哪些我们需要的事件、方法和属性。 因为我们做的Flash播放器比较简单,所以没有可以利用的控件事 件。 方法: Sub Back() 跳 到前一帧,相当于Flash右键菜单中的快退 Function CurrentFrame() As Long 获 取当前播放的为第几帧 Sub Forward() 跳到后一帧,相当于Flash 右键菜单中的快进 Sub GotoFrame(FrameNum As Long) 跳 到指定帧,这是一个相当有用的方法,也是要做这个Flash播放器的理由之一了 Sub Play() 播 放,相当于Flash中的播放 Sub Stop() 停止,需要注意的是这个是停 止,而不是暂停,停止后再开始播放将从第1帧开始 Sub StopPlay() 暂 停,暂停后再播放是继续暂停之前的状态 属性: Property Movie As String 影 片路径,用来加载要播放的Flash影片 Property Playing As Boolean 是 否正在播放 TotalFrames Flash影片的总帧数 好了, 有了这些资料就可以开始写自己的Flash播放了~ 打开窗体编辑器,先在窗体添加5个按钮,名称和Caption分别 为:cmdOpen(“打开”),cmdPlay(“播放”),cmdStop(“停止”),cmdPrev(“前一帧”),cmdNext(“后一 帧”)。为了能快整跳转,再添加一个水平滚动条,名称为hslFrame。当然,最重要的,Shockwave Flash不能少了,也要添加,名称为 swf。再者要打开文件,所以添加一个Microsoft Common Dialog Control,名称为dlg。 完成窗体的设计,开始编写代码。 ‘ 先给打开按钮添加过程 Private Sub cmdOpen_Click() dlg.Filter = ”Flash(*.swf)|*.swf” ’ 设 置文件名过滤器,只显示Flash文件 dlg.ShowOpen If dlg.FileName = ”” Then Exit Sub ’ 如 More >
[VB] 短信统计
about 4 years ago - No comments
无聊时做的一个东东,用来统计短信发送的情况,每个号码发了几条,占的百分比,还有图示。数据文件用从移动网站得到的短信详单,从第一条复制到最后一条保 存成文本文件就可以了~~再想想,似乎真的很无聊的一东西…… 下载:SMSStat
[VB] 一个操作多线程的类
about 4 years ago - No comments
根据点睛工作室的多线程类改写的,不过没有经过严格测试,好像工作不是很稳定,如果使用不当会出错的说。 Option Explicit Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type Private Declare Function CreateThread Lib “kernel32″ (lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long Private Declare Function CreateThreadL Lib “kernel32″ Alias “CreateThread” More >
