cbm666的个人资料

【CBM666 淡进淡出的窗体制作关于演示鼠标区间判断】摘录自【CBM666 VB编程示例教材_窗体篇】 '本代码演示窗体淡进与淡出如何定位鼠标位置以及判断鼠标是否在一个指定区间内效果图:'*************************************** AboutMe.Frm 窗体代码 '窗体命名 AboutMe.frm 添加 Timer1 Option Explicit Private Sub Form_Load() On Error Resume Next '将窗体移动到屏幕的中心位置 Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 NowLevel = 0: FadeIO = 1: LVstep = 30 '定义透明度与步长=30 目前透明度为0, 并指明FadeIO=1为淡进特效 TransColor = vbBlue Call TransParent(Me.hwnd, TransColor, 0) '设定窗体目前透明度为 0 Timer1.Interval = 20 '定时器1 激发间隔设为20毫秒 Timer1.Enabled = True '启动定时器 SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3 '设定总在最前 SetCursorPos (Me.Left + Me.Width \ 2) \ 15, (Me.Top + Me.Height \ 2) \ 15 '将鼠标移动到窗体中心位置 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single) If Not IsMouseInRect(Me, X, y) Then '如果鼠标不在窗体内部 FadeIO = 2: LVstep = -30: NowLevel = 255 '定义透明度与步长=-30, 并指明FadeIO=2为淡出特效 Timer1.Enabled = True '启动定时器 End If End Sub Private Sub Form_Unload(Cancel As Integer) On Error Resume Next Set AboutMe = Nothing '释放内存 End '程序结束退出 End Sub Private Sub Timer1_Timer() On Error Resume Next '当透明度大于等于0 并且小于等于255时,将本窗体透明度设定为目前的透明度 If NowLevel >= 0 And NowLevel <= 255 Then Call TransParent(Me.hwnd, TransColor, NowLevel) '当FadeIO = 1(淡进模式)时,如果透明度累加到大于等于255时,将透明度设定为255(不得超过255否则出错) '当FadeIO = 2(淡出模式)时,如果透明度递减到小于等于0时,将透明度设定为0(不得低于0否则出错) NowLevel = IIf(FadeIO = 1, IIf(NowLevel + LVstep >= 255, 255, NowLevel + LVstep), IIf(NowLevel + LVstep <= 0, 0, NowLevel + LVstep)) If NowLevel = 0 Or NowLevel = 255 Then '当透明度等于0或等于255时,进入If...End If Timer1.Enabled = False '禁止定时器 NowLevel = IIf(FadeIO = 1, 255, 0) '当淡进模式时透明度=255 , 当淡出模式时透明度=0 Call TransParent(Me.hwnd, TransColor, NowLevel) '窗体透明度设定为目前透明度 If FadeIO = 1 Then Exit Sub '如果为淡进模式则直接退出本事件不往下运行 Me.Move Screen.Width '将本窗体移动到屏幕外 Call ReleaseTrans(Me.hwnd) '释放透明处理耗用的内存 Unload Me '退出本关于程序 End If End Sub '***************** Module1.bas 模块代码 Public Declare Function GdiTransparentBlt Lib "gdi32" (ByVal hdc1 As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal W1 As Long, ByVal H1 As Long, ByVal Hdc2 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal W2 As Long, ByVal H2 As Long, ByVal Color As Long) As Long Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

【CBM666 VB编程教学群】本QQ群升级至1000人上限要加群者从速 44219538

【CBM666 的API_Bitblt图片分割动画演示】摘录自【CBM666 VB编程示例教材API篇_Bitblt】本示例重点:使用API 分割图片制作透明动画效果图:

【CBM666的打印文字如何居中】 '摘录自【CBM666 VB编程示例_打印篇】 '代码重点学习字符串居中 '当我们在制作图表或打印文件时经常需要将文字居中,尤其是打印文件标题 '居中我们用的是TextWidth与TextHeight，字体Font属性字体或字号粗细不同 TextWidth与TextHeight值当然将随之改变 '本代码故意以霓虹灯闪烁的字体来演示主要是说明打印时文字串中的任意一个字符都可以随便改变字体字号与颜色. Option Explicit '在本窗体内代码强制必须声明并定义变量形态 Private WithEvents Timer1 As Timer '自定义定时器,名称为 Timer1 Dim TmpStr$, i&, j& '本窗体内使用到的变量定义与声明 Private Sub Form_Load() '窗体载入初始化环境 TmpStr = "能否设置部分文字的颜色呢？" '将欲显示的文字赋值给变量 TmpStr Me.Caption = "窗体与图片框字体宽度高度" '设定窗体标题 Me.AutoRedraw = True '设定窗体自动重画刷新 Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 '窗体移动到屏幕中间 Me.FontSize = 16 '窗体字体字号设为16 Set Timer1 = Controls.Add("vb.timer", "Timer1") '自定义添加Timer1定时器 Timer1.Interval = 100 '定时器激发间隔时间100毫秒 Randomize '随机数种子初始化 End Sub Private Sub Form_Unload(Cancel As Integer) '窗体卸载 Controls.Remove ("Timer1") '结束程序退出时必须将自定义的控件销毁 Set Form1 = Nothing '结束退出时清空本程序占用内存 End '结束程序 End Sub Private Sub Timer1_Timer() '定时器事件 '我们使用窗体内部的宽度与高度 ScaleWidth ScaleHeight Me.CurrentX = (Me.ScaleWidth - Me.TextWidth(TmpStr)) / 2 '窗体内部宽度减掉变量TmpStr内容占用的宽度后再除以2 让打印的文字横向居中 Me.CurrentY = (Me.ScaleHeight - Me.TextHeight(TmpStr)) / 2 '窗体内部高度减掉变量TmpStr内容占用的高度后再除以2 让打印的文字垂直居中 '****************************************** For i = 1 To Len(TmpStr) '循环变量TmpStr字符串每一个字节 Me.ForeColor = QBColor(Int(Rnd * 16)) '随机获取窗体的前景颜色(0-15)共16色, QBcolor函数只支援前16色 '使用Mid函数逐一抓取 i 对应的字节并打印出来 (i在循环中会不断的自动 +1), 注意:最后面使用分号; 目的是打印一个字节后不让它换行 Me.Print Mid(TmpStr, i, 1); Next i 'For 循环对应的结束循环 End Sub 效果图:

【呵呵晒晒烟花吧主与CBM666吧主合作的奔跑小汽车】 2006年还是2007年吧?? 哈哈当年两个吧主都还是菜鸟时期的菜鸟...... 烟花吧主的创新思路 CBM666吧主完善的代码打开工程 Form1 代码直接复制黏贴上去即可本代码主要是学习Line与Circle画图 Dim i%, j%, x1%, y1%, BlockW%, BlockH%, CarX%, CarY%, Pcolor$ Dim N%, L%, C$ Const Captions As String = "烟花飘飘的小汽车" Private Sub Form_Load() Me.AutoRedraw = True Me.DrawWidth = 2 Me.Width = 5120 Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 Me.Cls CarY = Me.Height \ 2: BlockW = 500: BlockH = 200 x1 = 0: y1 = CarY - 230 Set Timer1 = Controls.Add("vb.timer", "timer1") Timer1.Interval = 50 End Sub Private Sub Timer1_Timer() Me.Cls For i = 1 To 12 Pcolor = IIf(i Mod 2 = 0, vbBlue, vbRed) Line (CarX - j, CarY)-(CarX - j + BlockW, CarY + BlockH), Pcolor, BF CarX = CarX + 500 If CarX >= 6000 Then CarX = 0 Next i j = j + 100 If j > 900 Then j = 0 Line (x1, y1)-(x1 + 500, y1 + 100), , B Me.Circle (x1 + 100, y1 + 150), 50 Me.Circle (x1 + 380, y1 + 150), 50 x1 = x1 + 50 If x1 >= 5000 Then x1 = -500 L = Int(Me.Width / 220) C = String(L, " ") & Captions & String(L, " ") N = N + 1 If N > Len(C) - L Then N = 1 Me.Caption = Mid(C, N, L) End Sub

【CBM666 提醒您网购陷阱】花钱事小窝囊气难消购买联通3G无线全国漫游网卡受骗经过如下敬请大家留意 1.2012年12月21日网上订购联通3G无线上网卡网址:http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.85gw.cn%2F&urlrefer=96b3f088bfb54f9f263fa8370af840c6 2.2012年12月24日收货后,验货没有问题,付了款1098元,只使用10分钟即断网线再也无法上线. 3.电话询问他们告知 2013年1月1日才能正式开通使用,要我耐心等候. 4.苦等到2013年1月1日仍然无法使用,1月1日开始到1月5日天天打电话, 答复是数据刷新中 ,早上说下午可以修好,下午说晚上可以修好,晚上说明天可以修好,每天如此. 后来电话打了数十通(移动公司有记录可查),不是通了没人接,就是放音乐无人接听或关机中,偶尔接通了便要我申请退货,还没来得及询问如何办理退货,三言两语立刻挂断电话,网址上的客服,发了无数次的信息,最后终于得知他们的邮箱,要我发邮件申请退货. 5.2013年1月5日发了邮件申请退货,1月8日回复要我将我的帐号姓名地址等全部信息告诉他们, 我将所有资料回复了. 6.1月8日回复后我天天咨询他们的客服回答都是耐心等 7.1月11日客服告诉我难道你没看到我们网站声明的收到货后 7天内才能退货吗？我回答:汉字与数字我看得懂,问题在你们身上不在我身上 8.我故意要我的两个外地朋友假装订购他们同款的产品,他们依然准备发货给我那两个朋友,并告知货到付款. 9.又过了一星期还是没见到任何回复,我最后于1月15日发了邮件,再不处理我只能寻求法律途径解决 10.至今没任何回复, 因此我怀疑这个完全是个骗局,敬请立案调查, 谢谢关注, 该网站至今仍在继续营业,希望能尽速察查,防止其他大众继续上当受骗.

【CBM666 动画示例(1)】摘录自 CBM666 编程示例教材(动画篇) '添加一个Timer1 Image1(0) Image1(1) 三个控件 'Image1(0) Image1(1) 各别装载下面一张图片代码: Private Sub Form_Load() Timer1.Interval = 100: Timer1.Enabled = True '定时器激发间隔100毫秒并开始运行 Image1(1).ZOrder 0 '两张Image1图片让Image1(1)这张图片放在前面 End Sub Private Sub Timer1_Timer() Image1(1).Visible = Not Image1(1).Visible '上面的这张图片不断的显示与消失如此则有动画的感觉效果 End Sub

【VB梦天空恭祝所有朋友新年快乐吉祥如意】恭祝所有朋友新年快乐吉祥如意本吧欢迎各网站友链

【亚洲VB吧 2011/1/1 正式开放试用】欢迎大家相互交流 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fcbm666.net&urlrefer=54bb7467c762740c230e74be31dc3341 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fvb6.asia&urlrefer=95e658abcdefc8c4eb02d18b95cd0b83 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fvbbar.com&urlrefer=dfff7e3cd1cd5334cab1163961776d7e http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fvb60.net&urlrefer=99314fbc2d2a7fe2de7585bfca00c858 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fvb2010.net&urlrefer=6e3e0a9f042d20d08edc34add04e244c (解析中) 以上随你高兴点那个链接都行

【CBM666的公开表态】严重支持警示收费删贴等诈骗行为[公告] 收费删帖者***, 如有蓄意污蔑他人者, 也不会有善终!!!

【CBM666 欢迎举报】多年来本人曾向那位收过钱 ????? 有CSDN号的人欢迎前往举报本人 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Ftopic.csdn.net%2Fu%2F20101120%2F14%2F5fef47a7-b1ab-42fc-bc0e-7c767ad79665.html%3F8790&urlrefer=19ca673d7cc9cf64e3d6c31836b0bfae

【CBM666 给百度贴吧管理员的声明】【CBM666 致百度贴吧管理员】 http://tieba.baidu.com/f?kz=903948627 这个帖子我相信你们是看了，不闻不问，这就是你们对广大 VB吧成员的态度？本人仅重视原则问题, 而不是吧主这个位置的问题, 现在我也相信是你们贴吧管理员一手遮天的独断行为, 堂堂一个国际知名的百度不会那么蛮横与愚蠢. 本人已收集所有相关材料, 2010/10/25 00:00 之前再不给明确的说法本人将采取网络报纸甚至于电视等媒体让广大群众 "公断是非" 特此通知

【CBM666 致百度贴吧管理员】

【CBM666 sunshinebean进来你在搞啥飞机?】即日起严禁任何自动删帖程序

【CBM666 征求四名小吧主】鉴于最近广告帖之泛滥本人即使出差在外仍然每天抽空上线，早晚上线即使在三更半夜上线维护吧务。遗憾的是目前数位小吧主可能忙于业务未能尽小吧主之责（封删历史记录可查）,因此本人忍痛删除了四位小吧主. 请有闲暇时间有责任感的同志报名参与吧务管理.

【CBM666 请教面积计算问题】请问有那位数学高手在线 ? 请教有关面积计算的问题圆形图片等分为8块, 其中绿色部份的面积可以计算出来, 红色与黑色各别的面积该如何计算? 谢谢相助. (园心半径步长与各点的座标都为已知或经由计算都可得知)

【CBM666 有偿求算法】如图: 在红色区域内拟排 N 个阀 (PictureBox数组) 如果是方形或矩形可用RECT定义区间, 但非方型的区间限制则较麻烦了.... 排列的任何一个阀只能在红色区间内不得越线超出 , 我现在只能用颜色来判断是否超出, 但此等算法太过幼稚, 特此征求最佳的算法. 感谢各位同志大力相助!!

【CBM666 有偿征求 VB与AutoCad 通讯接口】有能力提供者请速加我的QQ 138449666 谢谢

【CBM666 急寻 WD-160G 的硬盘】全新或二手的我需要盘上面的电路板,换了盘上面的电路板后,我可以取出里面的数据必需相同型号, 没同型号的怕兼容性不行读不出原盘数据谢谢

【CBM666 QQ群 44219538 开放】本群为超级群上限 500 人, 额满为止

【CBM666 请大家帮忙找下谷歌VIP用户】有谁知道“谷歌VIP用户”最近的动向？家里人半个多月没联系到他了，之前手机是关机，这几天就变成了暂停服务.很急！！！！！有谁这几天有和他联系过的，麻烦跟我说一声，或叫他跟家里人联系！！！！我是他哥根瘤菌phil

【CBM666 图片脱胎换骨】文件拆解示例代码图片下载后保存到 c:\bird.gif, 再用下面代码将图片内的小代码拆解出来 Option Explicit Dim AppDisk$, HBFile$, TxtFile$, i&, jj&, StrXX As Byte Private Sub Form_Load() AppDisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") HBFile = "c:\bird.gif" 'AppDisk & "Bird.gif" TxtFile = "c:\test.txt" 'AppDisk & "test.txt" End Sub Private Sub Command1_Click() Call GetTxtFile '将Flash拆分出来 If Dir(TxtFile) <> "" Then MsgBox "文件已保存在本地路径!" End Sub Sub GetTxtFile() '将Flash拆分出来 jj = 6430 + 1 '鸟的文件大小是 6430 Open HBFile For Binary As #1 Open TxtFile For Binary As #2 For i = jj To FileLen(HBFile) DoEvents Get #1, i, StrXX Put #2, i - (jj - 1), StrXX Next i Close #2 Close #1 End Sub

【CBM666 敬祝各位同志新年快乐吉祥如意】新的一年好的开始百尺竿头更进一步.

【CBM666 鼓历新手将你的代码贴上来】新手多发帖，有以下几个好处: 1.勇气能让你相信自己, 肯定自己. 2.吧内见不得人好的变态烂仔一大堆, 不必理会这些鸟人, 会帮助你的人也还很多. 3.从帮助你,纠正你错误中, 你学到的东西将会比你自己闭门造车的印像更深刻. 4.一行菜鸟级的代码, 偶而也会是一个高手级不知道而且可以学习的你信吗？我信!!! 5.高手级的记住一句话【教学相长】,帮助了别人,同时也将能更加强你本身的功力.

【CBM666 请教动态显示属性窗】这张图片大家都不陌生, 在设计时期没有它是寸步难行. 现在, 如果是在程序运行中, 指定了任何一个控件, 即能将它的属性窗(如图) 显示出来, 只要能看就行, 不用设置, 当然窗里面的滚动条还是要能上下滚动. 请问各位同志有没有思路 ? 谢谢帮助. 用途: CBM666 编程教材

【CBM666 提醒某些人】来到本吧努力学你该学的, 想学偷盗破坏者本吧一律不欢迎, 请你转移它处 , 并奉劝你莫以身试法.

【CBM666 的 QQ 几乎没回应??】首先我先声明, 并非我不近人情, 不回应有以下的理由: 1.我的QQ随时都有几百个人, 没办法删了一大堆又来一大堆, 一个人能有多少时间呢 ? 我三个太阳的QQ等级也不够用啊. 2.每个人都有各自的工作要做, 谁又那么有空呢 ? 3.正巧有空, 然而同时几个人进来, 一个人又有多少个头? 几双手 ? 4.我非高手, 但至少懂得比一般人多得多, 有心学习的可以加我, 我将尽我最大的能力与时间来帮你, 这段时间我在编写教材, 时间较有弹性, 但先声明, 写作业的别来找我, 只限问题的解答, 或片段的代码提供, 还有从现在开始 "有偿收费", 因为我不可能将时间白白的耗在这上面. 我的 QQ 138449666

【CBM666 请教有关视频教程的制作】视频教程一般是用屏幕录像制作, 但制作出来文档挺大, 最主要的就是熟标移动往往太快, 还来不及反应,它已不知跑到那了, 还要再回放看. 也有用 Flash做的, 但是我觉得还不是很理想. 我现在正在做, 敬请各位同志提供思路, 谢谢.

【CBM666 请在江苏昆山的同志进来】如你在昆山, 请加我QQ 138449666 菜鸟多媒体

【CBM666 的双向滚动条浏览特大型图片】下载地址: http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fcbm666.com%2Fscroll.rar&urlrefer=804e199da92e9b52161c230f3322491c 电子彩页制作系统, 语音播放 Word.doc 文件广告稿. 下载地址: http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fcbm666.com%2Fcatdemo.rar&urlrefer=4a368e7033d53343ecc3d8439add81fc

【CBM666 请教浏览文件夹】要做下半截图的话我一向就用 TreeView 但现在不想再多个控件. 请教一下, 是否在BIF_ 那里有什么常量宣告 ? 谢谢. With tBrowseInfo .hWndOwner = Me.hWnd .lpszTitle = lstrcat(szTitle, "") .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN End With

【CBM666 请教图片保存】工作上现在遇到难题了, 在此请教各位同志有方案吗? 此问题能否解决,在程序设计上的思路将有很大的差别,烦请各位同志抽点空动下脑,帮我解决此问题, 谢谢. ******************************************************* 屏幕截屏保存为.bmp, Picture1大小如在屏幕内这不是问题 ***************************************************** 但是如果我的Picture1高度在20000以上远超过1024*768的屏幕高度能否保存整个Picture1(包含在Picture1里面的小 Picture Image Label). '********************************************* 说明: 1024*768模式下设计窗体上面有一张Picture1,高度20000大于屏幕高度11520,观看时是用Vscroll来上下滚动Picture1的, Picture1里面包含图片与Label等控件, 我的问题是, 截屏时Picture1在屏幕下面的部份将无法保存. 要求结果将是保存整张Picture1的宽度与高度的图片, 这张图片当然要能看到包含在Picture1里面的控件. 整个窗体如下图1, Picture1如下图 2

【CBM666 请教浏览文件夹与Dir的并联】如下图: 1.Drive太难看而且只能显示盘符,不能显示桌面等,因此我用了一个Image控件. 2.点击image后,右边弹出浏览文件夹的窗口, 利用它的句柄,我将窗口改变了尺寸并移动到右边指定位置. 3.在右边选择文件夹时, 我必需点击击确定, 左边的Dir1与File1才会刷新. 4.我现在希望能做到, 当我点击右边窗口的文件夹,在还没点确定之前, Dir1能接收到消息而同步变换. 这应该是消息机制的问题, 请各位同志相助, 谢谢.

【CBM666 请教有关.FLV播放】使用 WeiBrowser 播放 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2F......%2F%3F.flv&urlrefer=131b2ed4d53ab09bcf383d68b9288226 没问题使用 .flv转为 .swf 或转为 .avi 来播放也没问题使用 Explore 来 Shell 播放也没问题但要如何才能用 Mediaplayer或WindowsMediaplayer或其它来播放呢 ? QQ影音或暴风影音一堆的 .ax .dll 到底该注册那些呢 ? 请有做过的同志提供一些帮助, 谢谢.

【CBM666 征求图片特效算法】在老输(云霞散人)帮助下完成此特效参考效果链接 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fcbm666.com%2Ftest.rar&urlrefer=b3b46acfd9ea14041e9fb0375308c3b3 此特效是上下左右以 Bitblt 扫绘特征求 "斜向" (左上至右下) 算法, 谢谢各位帮助,

【第N个新号】你太过份了吧 ? 其他吧主呢 ? 没人管是吗 ?

【hglai 欢迎你】老朋友了... 有空请多到本吧指教一二, 谢谢.

【CBM666 请大家帮下忙 ADODB】 3704 错误 = 对像关闭时不容许操作下图是我的系统外销到德国所返回的错误信息, 在公司里测试了十几套电脑, 有装office2000的有 Office 2003 也有 XP Office 也有没装任何Office的, 没有一套电脑出错,都正常.(当然这些电脑都没有安装VB) 但是到了德国却用不了, 对方是个电脑大白痴问不出其系统环境,估计可能没装Office或装了某一版本的Office, 总之对方运行后会有3704的错误. 我用的是 ADODB 引用Microsoft Object 2.5 (MSADO15.DLL), 在setup时都已注册了, 我用的office就是一般的Office2000,XP操作系统. 追踪代码, 看他返回的图片, Mshflexgrid表头已出来了, 但内容却没有, 估计就是数据库出了问题,Mshflexgrid读不到数据而出错, 这是在 Form_Load事件里面出的错, 看图片,界面都还没完全显示出来. 请有经验的同志想看看可能那里出的问题 ? 可能的解决方案 ? 任何线索都欢迎提供, 谢谢.

【申请吧主未能通过理由申诉敬请明查】敝人申请百度VB吧吧主一职您的答复对不起，您申请 vb 吧吧主未能通过 '************************************************ 申诉理由: 此次敝人遭不屑之徒陷害, 窃取我的密码, 提出辞职, 陷害於我, 敬请明查. 以下第一帖是申请帖在 2楼, 现任两位吧主同意, 分别在 7 楼与 19 楼第二帖是吧里同志的支持联名帖. '********************************************** 【CBM666 的公开声明】 http://tieba.baidu.com/f?kz=565756019 ★★★强烈建议恢复 CBM666 为VB吧吧主之职，都来支持一下★★★ http://tieba.baidu.com/f?kz=564367466

【CBM666 征求卡车图片】图片以载货的卡车集装箱货车为主. 图片大小就如本张图片最下面的三辆小车一样大小. 用这三张图片制作各个方向, 前视图, 后视图, 侧视图....0--360度转弯的各种角度的图片. 5月我要在上海参加国际衡器大展, 我准备用大型投影机, 以VB编程来播放卡车过磅之动画演示. 场景平面图我会自己制作, 这些小车从进入厂区到地磅到卸货仓到离开厂区要左右转湾, 因此我需要很多角度的静态小图片,我会利用它们组合成动画, 同时会有三辆车在这平面图上转. 请会美工的同志帮我这个大忙, 有偿也没问题, 公司可支付, 另我制作的这个演示动画, VB 源代码可以奉送.

【CBM666 の滚动标题栏】先测试一下.....(代码将公开), 下图是效果图. 内容: 1.一张图片分割六张, 制作成透明动画 2.滚动标题栏

【CBM666 请教桌面快捷键的最佳算法】 aa = ProgDisk & "thjxc\PLU.exe" If Dir(aa) <> "" Then Call OSfCreateShellLink("..\..\desktop", "PLU Management System", aa, "") 中文体系是 "桌面", 英文体系是 "Desktop", 其它国家肯定不同, 是否还有其它方法能直接指定到桌面, 而不用Desktop或桌面这两个文字? 谢谢帮助.

【CBM666 请教得知WinWord安装路径的最佳算法】如果winword已运行, 使用进程检测最快速. 但如未运行....我现在是以注册表搜寻或以DOS批次档寻找 ?:\Program Files\Microsoft Office 找不到的话再搜 ?:\Program Files, 找不到的话再搜 windows安装路径, 或 ?:\Documents and Settings\All Users\「开始」菜单\程序以上都可行, 但是否有100% 能确定它在那 ? 效率问题. 谢谢指点.

【CBM666 找个人,熟单片机编程】如果你在昆山本地, 请与我联系, 谢谢. 熟 BASCOM-AVR 或 51 系列单片机编程者加我QQ 138449666 或 Email: [email protected] 注明"单片机"

【CBM666 找个人,熟单片机编程】熟 51系列单片机编程住在昆山市区工作时间:晚上

【CBM666 热列欢迎 CLARKMJQ】此人乃 Delphi 顶尖高手 VB程度也不在我之下..... 帮他注了册，放一长串的鞭炮等着他露面吧. 不过遗憾的是他与我一样忙, 而且家里还有个小娃, 不过他这个人还挺热心与仗义的, 他还是会尽量抽空来帮大家的.

【CBM666 征求最高效的 MDB 转换】 MDB 转 .XLS MDB 转 .DOC MDB 转 .XML MDB 转 .HTML MDB 转 .TXT 速度慢的让我自己都受不了, 请教最高速的算法, 谢谢.

【CBM666 请 333su 进来】我正在做一个项目, 其中有用到你以前发的帖(下图), 能给我这个相关代码参考看看你是如何做的 ? 我做的速度好慢, 请指点一下思路,谢谢. http://tieba.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=729718536&z=93576802&pn=0&rn=50&lm=0&word=vb#729718536

【CBM666 征求漂亮的按钮小图片】系统需要, 呵呵...我用了几种不同风格的按钮, 老板不太满意...最好是有立体感的压下弹起两种一组的按钮, BMP PNG 最好.那位同志有收藏的话敬请割爱一下, 谢谢帮助.Email: [email protected]

【CBM666征求MsFlexGrid最佳界面】不以任何控件(如XP风格之类的控件), 完全以代码写的界面,能有最漂亮的感觉即可, 铭谢赐教.

【CBM666 邀请想玩蓝牙串口的进来】相关帖子【CBM666 请玩过蓝牙串口的进来】http://tieba.baidu.com/f?kz=497257434蓝牙虚拟串口是一个无线传输的模块, 现在新型的手机上都有这功能了.因工作上的需要, 我也只得开始摸索, 一方面尽我所能, 教教没用过它的人, 再方面请有经验的同志跟帖多予指导我等新手, 先谢啦.蓝牙模块还有许多其它功能, 在这里我们只研讨串口 RS232 部份.1.买进蓝牙模块 25—30元2.安装它附上的SetUp.exe3.安装完后点击它在桌面的图标******************** 开始 *****************主界面如下图

【CBM666 请玩过蓝牙串口的进来】蓝牙串口如果定义在 1-16 的话可正常无线接收.但蓝牙串口号是 1-256 随机给的, 超过 16 的话, Mscomm 无法接受, 搞了一整天了还是搞不定, 敬请有经验者给予指点, 感谢.

【CBM666 邀请江苏上海的同志进来坐坐】忙了近三个月, 终于完成了一套生产流程自动化项目, 现在我已落脚昆山, 职务研发部技术总监. 为了以后在技术上的相互交流, 请在江苏省与上海工作的同志留下联系方式, 或 Email [email protected] [email protected] QQ: 138449666

【CBM666 推荐给VB初学者的三本好书下载】原帖:http://tieba.baidu.com/f?kz=132551901这个帖我已前后发了2000多封了(前1933个帖我删了)握有时间与耐心, 但是开玩笑的一大堆,退信的占30-40%,回信:请不要发垃圾邮件, 这种回信也一大堆.累了, 不是身体累, 而是心累......需要的人自己下载吧.下载地址:http://download.csdn.net/source/378132

【CBM666 的英文打字练习】下载地址:http://download.csdn.net/source/368790

【CBM666 请教XP--SP2补丁】今天安装了 XP V3自动激活版中文简体.安装了好几个不同的 XP 补丁, 每个都是如图的错误提示.请问那位有用过此版本的XP 或请告知你所知道的下载URL,我一个个来试看, 也可发到我的邮箱, 谢谢各位帮忙[email protected]

【CBM666 的RGB取色加渐变】下载地址:http://blog.csdn.net/cbm666/archive/2008/02/27/2125990.aspx

【CBM666 的图片分割透明动画】下载地址:http://blog.csdn.net/cbm666/archive/2008/02/24/2116566.aspx

【CBM666 爬满您桌面的甲虫】本套系统演示的观念是 100 只甲虫, 每一只都能 "同时" 移动, 爬满你的桌面，每只甲虫到了屏幕边缘, 随机的上下左右变换方向(当然都是头部朝前爬), 配有不停止的背景音乐. 本代码将开放给各位新手, 但还是希望你们都能试着先做看看, 当你们能完成这个代码后,对于数组与随机数以及动态添加控件将会有很大的心得. 下载地址: http://d.download.csdn.net/down/361095/cbm666