龙翔飞飞12
龙翔飞飞12
关注数: 19
粉丝数: 183
发帖数: 5,493
关注贴吧数: 6
玩了一个下午,就被封号了,看样子还是永封 四点的时候进游戏的,吃个饭晚上回来,就登不上了。没有任何违规操作
度娘机器人发垃圾贴的规律 标题,有时候能和vb有关,有时候根本不着边际。 内容,模板有很多:{ 哪位大大知道呀,小弟在此感激不尽 啊啊啊 谢谢恩 不解释 !!!!答的上的乃神人! 一楼喂百度。 跪求解答T_T 谢谢吧里各位大爷,爱你们~ 新来贵吧,求解 红旗镇楼 }等 ID:很奇怪的字母汉字数字组合 其它规律:一般两个垃圾贴一起发 我的建议:吧务见到此类贴子,即使是与编程有点交集的帖子,也删除了吧,因为楼主是机器人。
【逍遥游】讲个鬼故事 79级的我刚才我正在龙泉挖矿呢,突然有个94SL宣我就开打了,我一脸懵逼我到底哪里惹他了,真是吓死宝宝了。吓得我就回击了,于是他就死了。太可怕了这鬼故事。
【逍遥游】一个穷逼的卡级小XY的挖图贴 新人第一次发帖,好鸡冻哦。 楼主高二狗一枚,一个重要的比赛刚结束,于是就浪一浪啦。 我在南部电信-逍遥游,万年死区,天龙这游戏从小玩大,号换了很多,没85以上的号。现在玩的是卡79XY,这号本来卡59的,但是我不充钱,也没大号养着,没资金来源,为了打副本,于是就升79了(于是现在一身50装备)。身上没几个石头,主要打血宝石,所以属性攻击比较难看。评分也很低。唯一能看的装备,估计就护腕了,自己做的。别说为啥打猫眼。。穷。。 摆摊号的全部家当。想做把好武器。。结果出了个莫名其妙的外功玄属性环。。挖图是我资金的最重要的来源(除此之外也有大号带我副本刷到的东西卖钱,但经常是没人带的状态)。现在我是开3个号打图,攒了100+张图,要准备开挖啦嘿嘿嘿。
这算一个漏洞吗? 新日本诞生里,只有库库鲁吃了翻译洋芋,但是库库鲁的村民们说的话,多啦他们都听懂了。这算是一个不严谨的地方吗
【依然开源的P控件集】时隔一年,简洁风再度吹来!~~~~~~~~~~~~ 这是版本7!这是版本7!这是版本7!(重要的话说三遍) 版本6呢? 没了! 为什么? 因为版本7相较于2015年5月24日发布的版本5,有了质的飞跃! 什么叫“质的飞跃”? 就是新增了那么多(用手比划)控件,改动了那么多(还是用手比划)代码,连界面都换了! 那么,更新日志呢? 嘛,更新的内容太多了,本宝宝不想都细细打出来,就让各位自行发掘吧! 一点点的更新日志:加了好多新控件,改了很多原来的控件,支持升级主程序啦,支持一键添加P控件集到自己的工程里啦!! 下载地址:http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fp.longdows.cn%2Fadmin%2Findex.php%3Fshare%2Ffile%26user%3Dchp%26sid%3DkNjgMRDc&urlrefer=55dc63eb0668c1469cf24dc5557d22b4
我在这个吧的第一贴
【P控件集】【声明】 吧里野蛮喷子太多 某些人的所有回复我不会再看了 也不会再回了 请某些人放尊重点 不要没事找事 我坚持我是正确的 某些人有本事,尽管去告我,奉陪到底 但请不要瞎BB 更不要以人多欺压我人少 谢谢合作 某型某动的人,现在起,收回你们的P控件集的使用权,禁止使用P控件集一切版本,否则即为侵权,谢谢合作。 已有的程序包含P控件集的,请立即删除程序,或替换P控件集,谢谢合作。 某型某动和某soft的人除外,P控件集仍向大家开放,包括以后版本7及更高版本。 【P控件集从未侵权】 【P控件集也不怕侵权的胡言乱语】 【请信任我的朋友,继续信任我和P控件集】 【不信的,随你便】
【小小的预告】P控件集 版本7 引·领·超·越 国际惯例 先放图 图片是超清的 如果你发现边缘看不清楚的话 那是你扌♂鲁多了 也别问我“♂”是什么意思当然这并不是最终界面,毕竟还有控件尚未完工。 更新日♂志: 1、增加几个控件,改了几个控件(废话啦 其中个别控件是完全重写哦 2、支持在线更新了! 3、支持在线更新了! 4、支持在线更新了! 5、支持一键往工程里添加P控件集中的任意控件辣! 6、支持一键往工程里添加P控件集中的任意控件辣! 7、支持一键往工程里添加P控件集中的任意控件辣! 8、添加软件界面动画,各种控件的详细解释和使用方法 9、主界面换字体啦!!等线Light美爆狗眼!! 10、添加广告 11、 简单Q&A: Q:P控件集版本6哪去了? A:自从上次去angzang的pi♂眼交易以后就再没回来了 Q:这个版本什么时候发布累? A:猴年马月再Fa♂布 真的 别打我 今年真的有猴年马月 不信百度(大LOGO镇楼 将来的下载地址:p.longdows.cn ——来自LDS奇境的鹏鹏
代码管家 重新发布 原贴地址: http://tieba.baidu.com/p/3065306542?share=9105&fr=share 最近贴吧里有人整合资源?我表示有点伤心呐。他是真的在整合资源吗?还是在侵犯我的权利?
蜡笔小新新番886 2.12播放 预告片 观看&&下载地址:http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fs%2F1o7xlEVg&urlrefer=a2c0a799871d5cc76a26d0f6e9554e4a
还有2小时,第三季就开播了
想做小木马的各位哈,让我先告诉你怎么调戏360危险卫士 咳咳,360危险卫士进程有很多保护的钩子,一般的API根本关不掉。。。。。不过嘞,我想到了一个办法,让它自己上♂了自己 1、后台下载360安装包 2、运行安装包,开始安装,此时安装文件会把360的所有进程都上♂掉(关掉)23333 3、挂起或者关闭安装进程 安装进程脆弱得连任务管理器都能关掉肾虚有时是在过度劳累之后,腰腿…………(噗什么鬼 4、360不复存在 5、然后你懂得 嘿♂嘿♂嘿(调戏)
【资源】【预告】暗芝居官方第三季预告篇×2 预告片一: 闇芝居 15秒CM<イチ>.mp4 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fs%2F1gegqp2b&urlrefer=17472e76f9fac0554b796ea083ea6049 预告片二: 闇芝居 15秒CM<ニ>.mp4 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fs%2F1Oj8Ii&urlrefer=ea5a7d45adb6100cb2d3c89fbf433ce8
【吧务】2016,祝福所有VB吧友,新年快乐! 新的一年,新的气象。辞别2015,迎来2016。在此,吧务团队祝广大的吧友们,元旦快乐,新年快乐,身体健康,万事如意,学业有成。
请问下浙江tg分数线 请问下浙江tg分数线是多少
蒟蒻的小贴贴 高一小蒟蒻,弱弱地问一句,咱大义中没有编程社吗?
接vb毕设 接vb毕设 企鹅794780390
10-03【申请合并】vb吧和vb6.0吧 这两个吧讨论的内容都是一样的,希望能合并。
用VB杀掉极域电子教室V4 2010 专业版 1、打开VB,新建工程 2、键入代码: Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Const WM_QUIT = &H12 Private Sub Form_Load() Dim h As Long h = FindWindow(vbNullString, "请求帮助") PostMessage h, WM_QUIT, 0, 0 End Sub 3、任务栏右下角,右键极域的图标,点“请求帮助”,会弹出一个窗口(当然另外的窗体也行,代码里标题名改一下就OK) 4、运行程序 5、极域电子教室K.O! 这应该是最简单的关掉极域的方法了。
新人报到 新人报到!
【开源】【P控件集】【版本5】《简洁风吹不完!~~~~~~~~~~~~~~》 新版本详细介绍,请见http://tieba.baidu.com/p/3707173054?pid=67136367906&cid=0#67136367906,但请勿顶旧贴。 使用有问题、有意见或建议,请在本贴二楼楼中楼回复。 插一条新的更新:现在你可以自由使用PWinsock的Remote**和Local**属性了,建议来自@易经伐髓丹
【教程直播】【小P手把手教你制作控件】《按钮篇》 篇首语:之前我发P控件集的时候就有小伙伴和我说,让我做教程,那时候没时间。可现在有了。所以就有了这个教程。教程很基础,也比较详实,所以高手不要喷我。 START(END前不(huan)要(ying)插楼)
【予告:Pコントロール集 バージョン5】と【コードが 一部放送】 よろしくお愿いします! 【预告:P控件集 版本5】及【部分代码放送】 那么这次更新了什么内容呢? 1、平面直角坐标系君强势回归! ①画任意y关于x的函数,诸如,y=x+1,y=5/(x+1),y=x^2+2x+1,y=x^10………… ②画含有VB表达式的y关于x的函数,诸如,y=tan(x),y=cos(x),y=sin(x)………… (这是谁的心电图!?)2、列表框君接受了治疗,可以透明自身啦! 3、数学计算君学习了求VB表达式的值。(噗,不就是多了一个VB控件么) 4、天气君神一般再现!5、分页标签君效果更赞啦!增加了鼠标移动效果,增加了竖向距离和小矩形高度的设置。终于可以在设计时,就把文本添加进去,在运行时在关联控件了!麻麻再也不用担心我不知道控件该放哪儿了!还有还有,小矩形好像还稍微长出去了一点哦! 6、窗体君的“□”更加相像于真实Win8,并且有最大化和窗体化的区别。 7、按钮君支持透明啦!你想要多少透明度呢? (此图为先前所截)8、声明及作者的话“时间过得很快,从2014年9月6日开始制作,2014年09月07日发布预告,2014年10月02日发布版本1以来,小P已经经历了版本2、3、4的历练,以及这次的版本5,小P已经半岁了。小P的伙伴从原来的0到5到8到10到14到16直到现在,并且小P仍在不断努力。这一切都来自于各位吧友们的支持。小P一向秉持原创、简洁、方便的理念,坚持代码原创和保障被引用者的权益。小P一直以来以给吧友借鉴为目的,因此不曾给自己加以版权声明,可是近来却发现有吧友将小P在未经原作者同意下,擅自将小P拐卖到别的VB论坛,并未做任何关于转载出处和原作者的声明,令小P很受伤,同样也很伤心,更有愤懑,不得已,小P今后只能加上版权声明,请各位需要转载、引用、使用或者需要用以商业用途时,请向小P请求授权,否则一律当作侵权,将受到法律范围内最大限度的起诉。在此也奉劝那些行为不端正的人,以前的事既往不咎,今后的事绝不善罢甘休!” “特别鸣谢:《顾名思义》的鼠标滚轮代码” @《顾名思义》 “Copyright(c) 2015.All Rights Reserved. 龙翔飞飞12/成浩鹏 版权所有 未经允许,请勿用以商业用途。 未经授权,请勿转载、引用、使用。” 9、代码增加更多注释。 10、属性名称全部重拟!使之更接近自然语言。诸如Has_Icon、Is_Enabled之类的属性名,将更易理解。 11、更多小细节优化 以上所列仅是凤毛麟角,敬请期待…………
【无聊】【有趣】你妈叫你买鸡蛋你造吗? 有点无聊,那么我也像@我是逗比6969 那样,弄一些有(wu)趣(liao)的东西吧!待会就有鸡蛋吃了!
【开源】【P控件集】【第四弹】《简洁风又吹来啦!~~~~~~~~~~~》 1、增加了仿Win8窗体(PWin8Form) 2、平面直角坐标系(PPRCS)增加新功能,画任意函数。但是不知道为什么一把这个控件拉进工程里或者生成exe就闪退了,所以我这回没把它放进工程里去,但是代码在压缩包里有,有要的可以看看 3、天气网站也***了,所以天气控件不能用啦 4、横竖滚动条,将平滑移动,并且可以用滚轮滚动啦!多亏了@《顾名思义》 的滚动代码 5、UI管家(PUIMgr),窗体各种平滑 6、按钮(PButton),添加很多属性,比如按下时变色,按下时文本移位,文本的偏移坐标 7、从本版本起,源码中会陆续开始添加注释,以便新人参考 8、按钮横竖滚动条开关,都可以自定义边框了 9、修复各种BUG……………… 10、各种界面的、速度的优化……………… 不多说了,示例程序+OCX+源代码下载地址:http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fs%2F1pJt7yC7&urlrefer=3c1ae9a27010ececac4826505971e134 提取密码: sbma
◆【灌水贴】◆水楼
P控件集 版本4 の 仿Win8窗体
◆【开源帖】◆20150222◆P控件集 http://tieba.baidu.com/p/3505620343?pid=62513694729&cid=0#62513694729
【...】只能说,VB是个大巨人,时间是打不倒它的! 一张图说明一切:
原创实用源码片断 之前发过几个程序源码,但是要从中截取某段代码不方便,所以我就开此贴,经常更新,把一些我自认为还不错的代码片断从各种已发或未发的源码中整合好,发上来,给大家参考,也请各位大神 多多喷我,因为我的代码不免会漏洞百出的,在大神的“”下改正错误。
【开源】【P控件集】【第三弹】《简洁风还没吹完!~~~~~~~~~~~》 这是第三弹了,希望以后还有第四弹!没错,看着简洁多了,正是因为PTab的功劳! 第三弹更新了哪些东西呢? 1、开关:打开和关闭有不同的颜色变化 2、横滚动条、竖滚动条:增加滑块大小属性 3、增加伪电子屏幕:像电子屏一样显示字,但是控件拉太大的话会卡出翔 4、增加分页标签:从未有过的清爽感觉 5、增加天气:瞬间获得该电脑外网IP所在地的天气,高大上 6、重大漏洞修补:PWinsock在第二弹时忘记弄关闭连接的函数,现在弄上了 7、列表框:增加更多公有函数 8、代码优化、小BUG修复………… 详细内容:(就详细说几个,其它的都能看明白) 1、分页标签:小清新 ①Refresh 刷新 ②BeRelated(ByRef Container As Object, Text As String) 使分页标签和某控件产生关联以控制该控件显示与否 Container:任意有Visible属性(比如winsock就没有该属性)的控件 Text:是在分页标签上显示的文本 ③BeUnRelated(Index As Integer) 使分页标签和某控件取消关联 Index:某控件的在分页标签中从0开始的序号 ④Clear 清除所有已关联的控件 2、天气:高大上 ①GetWeather(Optional Content As Integer = -1) As String 获得天气信息 [Content]:可选 -1:全部 0:地区、市、县、区 1:天气类型 2:最高温度 3:最低温度 4:天气标志1的名称,路径为"c:\PWeather" & 名称 5:天气标志2的名称,路径为"c:\PWeather" & 名称 6:更新时间 ②GetPicture(ByRef pic1 As Picture, ByRef pic2 As Picture) 获得天气标志 Pic1:图片类型的变量 Pic2:图片类型的变量 如要显示出来,参考: Dim Pic1 As Picture Dim Pic2 As Picture'定义变量 PWeather1.GetPicture Pic1, Pic2'获取图片 Set Picture1.Picture = Pic1 Set Picture2.Picture = Pic2'把图片加载到PictureBox上 Label1.Caption = PWeather1.GetWeather'标签显示天气 3、列表框:操作的方便(此控件的序号默认从0开始,特殊声明除外) ①AddItem(Item As Variant, Optional Index As Long = -1) 增加一项 Item:项内容 [Index]:可选,添加到第几项,默认-1:添加到最后 ②Clear 清空 ③RemoveItem(Index As Long) 移除一项 Index:要移除的项的序号 ④List(Index As Long) As Variant 获得某一项的内容 Index:要获得内容的项的序号 ⑤ListCount() As Long 获得项总数(从1开始) ⑥ListIndex() As Long 获得当前选择的项 ⑦SetIndex(Index As Long) 设置当前选择的项 Index:要设置的项的序号 ⑧Text() As Variant 获得当前选择的内容 ⑨ChangeText(Index As Long, Item As Variant) 更改一项的内容 Index:要更改内容的项的序号 Item:项内容 ⑩ExchangeText(Index1 As Long, Index2 As Long) 交换两项的内容 Index1:要交换内容的项的序号1 Index2:要交换内容的项的序号2 11、MoveItem(Index As Long, Goal As Long) 移动一项到某一序号 Index:要移动的项的序号 Goal:目标序号 12、Refresh() 刷新 13、BackTransparent() 使列表框背景透明 仅可在列表框在有Image属性(如Frame没有该属性)的容器中使用 14、BackReduction() 使列表框背景还原 先打这些,有的话到时候会补充 来放松放松,看个视频: 视频来自:http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fv.youku.com%2Fv_show%2Fid_XODYzNTU3Nzc2.html&urlrefer=7c5a4e5ae33b89750409a9b3bf4d96bc 好了,源码+程序+OCX三合一压缩包下载地址:http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fs%2F1pJFQi19&urlrefer=7fd7717dba5e779f32475e961f2922e6
这是什么情况?! 来自首的搞笑艺人上集出现的这个 什么情况
【P控件集】《开源》{第二弹}(一大波简洁风来袭!) 旧贴地址:http://tieba.baidu.com/p/3327697860?pid=58264573481&cid=0#58264573481 新版截图:.新版内容:增加列表框,增加winsock二次开发,优化其它控件…… 期待……………………
【资源贴】【哆啦A梦新番】【378】【无字标清】抢先一步看 哆啦A梦新番第378集(当前最新),要抢先一步看的速进链接: http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fs%2F1o63FdyE&urlrefer=6cdb7802f18922a6cb8e4672f4c68290 提取密码: o352
还有10分钟哆啦A梦新番378就要播了 想想都鸡冻 RT。。我会不时截图的哦
《P控件集》【开源】【低技术含量】【大神勿喷】【给小白参考】 【低技术含量】【大神勿喷】 --------------------------------------------------------------------------------------------------------------- 先说一句:离发预告的时间已经过去好久了,我怎么会告诉你们我每天夜深人静才回家呢? --------------------------------------------------------------------------------------------------------------- 放一张截图,大家就应该全部都明白了。目前有8个控件:按钮、多选框、开关、进度条、横滚动条、竖滚动条、图片框、平面直角坐标系,能用的时间太少了,以后会陆陆续续添加更多的开源的控件,如列表框、选择框、文本框等。代码没有注释,但是格式绝对清晰,看起来应该是不会很难以理解的,因为这是给吧里想做控件的 小白的参考。 先攒点人气,等我把介绍写好了再发。
水楼
【无字幕标清】《哆啦A梦新番》376 静香变河童了 观看地址:http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.yydm.com%2Fdongman%2Fdlamxf%2F376.shtml&urlrefer=933faac92fe0d9e1f2be27d33b0f996b 懂日语的多啦迷加油翻译,康柏跌!
【献丑+开源】【文字加解密】【1S*C92*9I0*E9J*E9J&1D&1E】 #ETP&#D9Q&#DOD&#I8K&#DOD&#CVX&#BWL&#CI4&#A2V&#FNB&#EAM&#A2V&#CAD&#I8O&#DGO&#A2T&#F9H&#AAL&#I8N&#IN1	PQ&#CON&#AIH&#F8U&#F8U&#ENW&#I8K&#AHE&#D9JXX&#EN1&#AJ3&#D98&#EH0&#BWLQ8&#COB&#I8K	PK	PK&3I&3I&3I&#I8V&#E23&#E9N&#AHE&#D9J&#CVNYEYC&#FGO	BV	JY_L&#FNI&#AV8&#EFC_L&34&2P&37&2R&2P&30&#I8K&#DHJ&#BWL_L	W6&#CVNYE&#F9J&#COI&#I8K&#F9J&#COI&#F9J	W6Q2YEQ8XX&#EGFWPY3&1P&#I8OWP	Q4&17&#A3I&#BPD&17&#BHCQJ&#I8N&16&1D&1C&1C&1C&1C&3I&3I&3I&#I8V&#I8V&#I8VBI&#F9H&#I8K&1E&1C&#DOB&#CPI&#AISQ2YE_L&34&2P&37&2R&2P&30&#CAD&#I8K&#ENS_L	W6&#CVNQ2&#CPI_L&#CAD&#IN1&#IN1&#IN1&#IN1&#IN1&#IN1&#C4B&#C4B&#DHJQ8&1L&#BBQWP	Q4&#BWL	CC&#I8K&#FMD&#FGI&#BHCQJ&#BWLWQ&#IN1&#IN1&#IN1&1U&39&38&#I8V	PQ&#DHJ&#AIH&#AOI&#FO2Y3&#ETP&2E&1U&#ENW&#I8K&#A9ZX8BI&1E&#A38&#I8K&#E15TQ&#F13&#COB&#I8K&#BX6&#CGH	XN	IO&#I8KTRPY&#I8V&#FN3BI&#E16&#AVN&#D8I	W6&#F1Z&#CI6&#I8V&#DTU&#DTU&#I8V 各位大神速度来破解啦!!! 这个软件是用来加密文本的,方法超级菜菜,代码超级简单,各位大神千万不要喷我,我是来帮助和我一样的小菜菜的 不是说【开源】么?嘿嘿,密文版源码下载地址:http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fs%2F1i3DXrSD&urlrefer=14805b76660440da7217d0a47b35976c 楼楼是好孩纸,要去学习了,我5点就回来发真正的代码哦,亲!这段时间慢慢破解咯,希望有人能破解出来!!!
【综合理科插件】【源码】考试前一天发一个简单的东西
【空白音乐盒】【适时开源】{传说中空白的音乐盒} 我看到吧里有人发类似的音乐盒,就手痒痒,开始自己弄了一个,内位吧友的源码我没下载过,如有雷同,纯属巧合。由于学习忙,所以就。。。不过呢,马上我就要考试咯,目前还得上学3天,考试一天半,然后呢,然后呢不想也知道。我就解放了!发此贴的目的不仅仅是与吧友讨论VB,还有呢,嘿嘿,先谢谢大家对我期末考试的祝福,因为我的期末考试关乎到我的暑假,还有高中的提前招生。上一张编辑时的图片是不是空荡荡的呢?再来一张运行的时候的界面和功能显然木有弄齐全,不过呢等我考试完了,我就有大把大把的时间来完成我的空白音乐盒了。 这个软件应该会超级小,目前只有32KB,运行时不放歌占5M内存,放歌占9MB,什么概念?下星期的这个时候我已经解放了,本软件最迟一定会在下周周日24:00之前完成,到时源码也会一同发布。PS:音乐盒用的WMP内核。 先发一段主要的代码: Private Type MyConctol '自定义的控件 Caption As String Enabled As Boolean FontBold As Boolean FontName As String FontSize As Integer Height As Integer Left As Integer Picture As String Style As String Top As Integer Visible As Boolean Width As Integer End Type Private Function SetNewConctol(Style As String, Optional cap As String = "", Optional pic As String = "", Optional Left As Integer = 0, Optional Top As Integer = 0, Optional Width As Integer = 0, Optional Height = 0, Optional fn As String = "微软雅黑", Optional fz As Integer = 9, Optional fb As Boolean = False, Optional visi As Boolean = True, Optional en As Boolean = True) As MyConctol '创建新的控件 SetNewConctol.Style = Style SetNewConctol.Caption = cap SetNewConctol.Picture = pic SetNewConctol.Left = Left SetNewConctol.Top = Top SetNewConctol.Width = Width SetNewConctol.Height = Height SetNewConctol.FontName = fn SetNewConctol.FontSize = fz SetNewConctol.FontBold = fb SetNewConctol.Visible = visi SetNewConctol.Enabled = en End Function Private Sub DrawConctol(mc As MyConctol) '画出控件 If mc.Visible = False Then Exit Sub Select Case mc.Style Case "label" If mc.FontName <> "" Then Me.FontName = mc.FontName: Label1.FontName = mc.FontName If mc.FontSize <> vbNormal Then Me.FontSize = mc.FontSize: Label1.FontSize = mc.FontSize Me.FontBold = mc.FontBold: Label1.FontBold = mc.FontBold Me.CurrentX = mc.Left Me.CurrentY = mc.Top Label1 = mc.Caption mc.Height = Label1.Height mc.Width = Label1.Width Label1.FontName = "微软雅黑" Label1.FontSize = 9 Label1.FontBold = False Me.Print mc.Caption Me.FontName = "微软雅黑" Me.FontSize = 9 Me.FontBold = False Case "picturebox" Me.PaintPicture LoadPicture(App.Path & "\" & mc.Picture), mc.Left, mc.Top, mc.Width, mc.Height Case "rectangle" Me.Line (mc.Left, mc.Top)-(mc.Left + mc.Width, mc.Top + mc.Height), , BF Case "circle" '~ End Select End Sub 现在就先看看吧,以后会给完整代码的哦!
【VB吧 求助专用贴】 好吧,我不知道以前有没有类似的贴出现。 ===================================================================== 欢迎各位 大神、各位 小白、各位 想问问题、各位 想帮助别人的小伙伴们都来这个贴集合吧! 最近好像有很多小伙伴在谈论 求助帖满天飞的问题,是不是本吧木有专门的求助贴呢( 可能只是我自己没见过)?那么我就自己开一个吧,欢迎大家的到来!
【开源】平面直角坐标系 みんなさん、私のアバターを変更します。 米娜桑,我改头像咯!这回发个小东东,超级没用,实质超无聊,算法挺有用。“废话终了” ======================================================================= 平面直角坐标系应该用不着我解释了吧,因学历太低太低了,目前我只会一次函数和反比例函数,所以这软件也就这么个功能,能画反比例、一次函数,求交点坐标,求三角形面积。。 附图一张:
报纸怎么没了。。 就是想问问,报纸去哪儿了?
【求助】vb调用tv3d出错 错误:ActiveX部件不能加载 我百度了好久解决方法,他们说的我都做了,可还是没用啊。。代码: Option Explicit Dim Tv As New TVEngine '调用tv3d所必需的 Dim Scene As New TVScene '调用tv3d所必需的 Dim Mesh As TVMesh '定义一个网格物体 Private Sub Form_Load() Me.Show '显示当前窗口,每次都加上错不了 Tv.Init3DWindowed Me.hWnd '用窗口模式启动tv3d Set Mesh = Scene.CreateMeshBuilder '网格物体初始化,必加 Mesh.CreateTeapot '建立一个茶壶 Mesh.SetPosition 0, 0, 3 '设定物体的位置坐标 Do '主循环 Tv.Clear '清屏 Mesh.RotateY 0.001 '沿y轴以0.001每帧的速度转动 Mesh.Render '渲染茶壶 Tv.RenderToScreen '把所得最终结果渲染到屏幕 DoEvents '这句是把线程空出来,使其他的的程序能运行,必加 Loop End Sub PS:lz想学做3D游戏,这是一个教程里的例子
【开源小垃圾】双人对战五子棋 可以在不同地方一起玩的五子棋 没什么特殊的地方,只是呢文件超小,有自动更新,基于winsock通讯。图中为我和同学在玩。
发自制音乐盒一枚,要知道功能戳进来 先是下载地址:http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fs%2F1i30xazr&urlrefer=d3f6ffbba3a790db85bd3e6bc7e9fe9a 然后是有的功能:基本的音乐播放器的功能,百度下载歌曲、歌词、图片。貌似没了。不过看了软件你就知道有哪些功能了。 1张图图:
【全新工作室招人咯】淡描软件工作室创立!诚邀有志之士加入! 先说一句:如果本吧已不允许发此类贴,就劳驾大小吧帮忙删咯。好久没来,不懂规矩了。 ====================================================================== 本工作室名为淡描,意为“一切轻描淡写,注重内在,从不虚张声势”,即刻便是它创立的时刻。由于刚成立,急需大量的人员,本工作室诚邀江湖上的有志之士加入我们的工作室,共同创造我们的那份辉煌!你不必会任何电脑技术,只要你有为本工作室努力的心,本工作室始终欢迎你的到来,为我们出谋划策。 希望缔造的工作室环境:人人皆平等,人人皆可参与,人人可以获得经济效益(当然是如果有的话),不歧视、冷淡对待任何人,和和气气,能够激烈讨论各种软件的问题(非口水战) 加入条件:无任何条件,只要能出谋划策甚至只需帮忙测试软件,当然会PS/UI/任何编程语言就更好咯 年龄要求:无要求 说明:本工作室不以盈利为目的,若有所盈利,将按工作室总人数平均分配。 PS:本工作室的名称、logo、意义等方面皆未定型,欢迎各位提出自己的意见/见解,今后逐一按大家的要求更改。 那么,想参与进来的就留个言吧,留下你擅长的技术,如果没的话就写“我要当军师”(霸气,话说诸葛亮当过军师)。
【原创帖】FallenLeaves音乐盒 好久没来原创软件吧了,这次又来发个小软件。 1楼喂贪吃的度娘
菜鸟问一个简单的问题 我家装了电信的光纤猫和TP-LINK无线路由器,可是用winsock时我用局域网IP能自己连自己,可是我一用外网IP就连不上了,求大神教我该怎么连。。度娘了一下,但是没找到解决方法,求大神指教。。
小白真心求教该怎么布置UI界面 先说明一下,我是个小白,大神们千万别看我的等级,我只不过是天天登陆拿经验而已,我什么都不会的。。 求教:为什么我的UI总是弄不好,对自己弄的一点信心都木有,我问别人怎么样,10000个里只有1个会说还行。求大神们指点迷津。这是我在尝试做的音乐播放器,看着总觉得不怎么舒服,总觉得好难看,望大神们叫我如何制作好看的界面。
原创预告 文字加密手 放学回家奉上 现在还在上学路上
冲矢昴是好人还是坏人? RT
【原创帖】SunnyWayMusicPlayerV1.0.0.0发布 1楼喂度娘
今天在学校举行什么比赛啊?昨天广播老湿上课没听 RT 就是那个说是那些班级的同学要把书全部带回家的那个
柯南很好看 但是柯南VS黑暗组织最精彩 什么时候兰和工藤能结婚 RT
17年了 整整17年了 柯南怎么还是小不点 兰怎么还是高校生 RT 这不科学啊
我们不想被挨骂!! RT。今天又被骂惨了。。
【灌水】原创软件吧直通车 在原创软件吧,您可以随心所欲地发布自己的神作:tieba.baidu.com/f?kw=%D4%AD%B4%B4%C8%ED%BC%FE&fr=index&ie=utf-8 。
1
下一页