龙翔飞飞12 龙翔飞飞12
关注数: 19 粉丝数: 183 发帖数: 5,493 关注贴吧数: 6
【予告: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、更多小细节优化 以上所列仅是凤毛麟角,敬请期待…………
【开源】【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
【献丑+开源】【文字加解密】【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&#9PQ&#CON&#AIH&#F8U&#F8U&#ENW&#I8K&#AHE&#D9J&#8XX&#EN1&#AJ3&#D98&#EH0&#BWL&#8Q8&#COB&#I8K&#9PK&#9PK&3I&3I&3I&#I8V&#E23&#E9N&#AHE&#D9J&#CVN&#8YE&#7YC&#FGO&#9BV&#9JY_L&#FNI&#AV8&#EFC_L&34&2P&37&2R&2P&30&#I8K&#DHJ&#BWL&#95L&#9W6&#CVN&#8YE&#F9J&#COI&#I8K&#F9J&#COI&#F9J&#9W6&#8Q2&#8YE&#8Q8&#8XX&#EGF&#7WP&#8Y3&1P&#I8O&#7WP&#9Q4&17&#A3I&#BPD&17&#BHC&#8QJ&#I8N&16&1D&1C&1C&1C&1C&3I&3I&3I&#I8V&#I8V&#I8V&#8BI&#F9H&#I8K&1E&1C&#DOB&#CPI&#AIS&#8Q2&#8YE_L&34&2P&37&2R&2P&30&#CAD&#I8K&#ENS_L&#9W6&#CVN&#8Q2&#CPI_L&#CAD&#IN1&#IN1&#IN1&#IN1&#IN1&#IN1&#C4B&#C4B&#DHJ&#8Q8&1L&#BBQ&#7WP&#9Q4&#BWL&#9CC&#I8K&#FMD&#FGI&#BHC&#8QJ&#BWL&#7WQ&#IN1&#IN1&#IN1&1U&39&38&#I8V&#9PQ&#DHJ&#AIH&#AOI&#FO2&#7Y3&#ETP&2E&1U&#ENW&#I8K&#A9Z&#8X8&#8BI&1E&#A38&#I8K&#E15TQ&#F13&#COB&#I8K&#BX6&#CGH&#9XN&#9IO&#I8KTR&#8PY&#I8V&#FN3&#8BI&#E16&#AVN&#D8I&#9W6&#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 现在就先看看吧,以后会给完整代码的哦!
【全新工作室招人咯】淡描软件工作室创立!诚邀有志之士加入! 先说一句:如果本吧已不允许发此类贴,就劳驾大小吧帮忙删咯。好久没来,不懂规矩了。 ====================================================================== 本工作室名为淡描,意为“一切轻描淡写,注重内在,从不虚张声势”,即刻便是它创立的时刻。由于刚成立,急需大量的人员,本工作室诚邀江湖上的有志之士加入我们的工作室,共同创造我们的那份辉煌!你不必会任何电脑技术,只要你有为本工作室努力的心,本工作室始终欢迎你的到来,为我们出谋划策。 希望缔造的工作室环境:人人皆平等,人人皆可参与,人人可以获得经济效益(当然是如果有的话),不歧视、冷淡对待任何人,和和气气,能够激烈讨论各种软件的问题(非口水战) 加入条件:无任何条件,只要能出谋划策甚至只需帮忙测试软件,当然会PS/UI/任何编程语言就更好咯 年龄要求:无要求 说明:本工作室不以盈利为目的,若有所盈利,将按工作室总人数平均分配。 PS:本工作室的名称、logo、意义等方面皆未定型,欢迎各位提出自己的意见/见解,今后逐一按大家的要求更改。 那么,想参与进来的就留个言吧,留下你擅长的技术,如果没的话就写“我要当军师”(霸气,话说诸葛亮当过军师)。
1 下一页