【制作中】PControls 纯粹用几个函数实现类似于控件的效果
vb吧
全部回复
仅看楼主
level 12
辛时雨 楼主
V1.0
目前有的控件：PProgressBar
使用方法：先用CreateProgressBar创建
CreateProgressBar "Pcpb1", 1000, 1000, 5000, 1000, 0, 100, RGB(175, 175, 175)
在Timer中：RenderP
RenderP "Pcpb1", Me
可以用SetProgressBar修改，方法和创建一样
还可以用GetPObj函数来获得属性 ：GetPObj("Pcpb1").属性名称
注意：GetPObj 不可以用来修改控件属性，修改请使用SetProgressBar！
2013年07月03日 04点07分 1
level 12
辛时雨 楼主
顶
2013年07月03日 06点07分 2
辛时雨
这里开始做为更新帖！
2013年07月05日 13点07分
辛时雨
回复 辛时雨 :更新：V3.0:Lable增加了字体 下载地址: [有效] http://pan.baidu.com/share/link?shareid=2980966082&uk=2013292261
2013年07月06日 05点07分
辛时雨
回复 辛时雨 :【看帖后回复是一种美德】不管好用不好用，只需要你给一个评价
2013年07月06日 05点07分
辛时雨
回复 辛时雨 :注意不要在此楼回复!否则删除
2013年07月06日 05点07分
level 12
辛时雨 楼主
示例代码：
'创建两个Timer Timer1.Interval = 50,Timer2.Interval = 100
Private Sub Form_Load()
CreateProgressBar "Pcpb1", 1000, 1000, 5000, 1000, 0, 100, RGB(175, 175, 175)
End Sub
Private Sub Timer1_Timer()
Cls
RenderP "Pcpb1", Me
End Sub
Private Sub Timer2_Timer()
SetProgressBar "Pcpb1", 1000, 1000, 5000, 1000, GetPObj("Pcpb1").Value + 1, 100, RGB(175, 175, 175)
If GetPObj("Pcpb1").Value = 100 Then SetProgressBar "Pcpb1", 1000, 1000, 5000, 1000, 0, 100, RGB(175, 175, 175)
End Sub
2013年07月03日 06点07分 3
level 12
辛时雨 楼主
2013年07月03日 06点07分 4
level 12
Chino🎀
无图无源码无人顶。
2013年07月03日 07点07分 5
辛时雨
手机党看不到附件的，有源码
2013年07月03日 10点07分
level 12
辛时雨 楼主
对了忘放图了：
2013年07月03日 12点07分 7
level 12
WWEERR
UserControl+动态添加即可
2013年07月03日 15点07分 8
辛时雨
你是没理解我的意思吧。。我没打算动态添加，只是制作一个纯粹的代码“控件”，不想用低效率的控件而已
2013年07月04日 09点07分
level 12
辛时雨 楼主
V2.0
最新控件：Label---暂时还没有font选择，以后会有的
方法和内啥差不多：PControls.CreatLabel
PControls.SetLabel
PControls.RenderL
2013年07月04日 13点07分 9
辛时雨
[有效] 写完作业发地址，昨天晚上网速特慢
2013年07月05日 04点07分
辛时雨
对了还有一个函数:GetLobj
2013年07月05日 04点07分
吧务
level 13
《顾名思义》
自绘控件？就是一个开关按钮？
2013年07月05日 06点07分 10
吧务
level 13
《顾名思义》
是类似这个东西。
2013年07月05日 06点07分 11
辛时雨
这是神魔
2013年07月05日 07点07分
辛时雨
我是指AlphaSetupEsy是什么
2013年07月05日 07点07分
《顾名思义》
回复 辛时雨 :AlphaSetup是一个绘图函数。填充hDC部分或全部通道。相当于API刷子比API，GDI刷子强一点，是32位纯色矩形刷子。
2013年07月05日 09点07分
《顾名思义》
回复 辛时雨 :不就是一个开关吗？
2013年07月05日 09点07分
吧务
level 13
李静乙
我以前用这个画控件解决了兼容问题。。
2013年07月05日 06点07分 12
level 11
a82560
[升起]我也弄了个。。。
2013年07月05日 08点07分 13
辛时雨
我的进度条没有min选项。。。（感觉太奇怪了）并且是模块，而且绘制是自己画的,用RenderP(ProgressBar)RenderL(Label)等
2013年07月05日 08点07分
a82560
回复 辛时雨 :[惊哭]自己画的要设置很多东西，我觉得弄在某个控件就比较好设置了，min选项要有的，如果有些问题要用min选项就简单很多，如果只固定一个值的话用的时候就要换算了
2013年07月05日 08点07分
mgq_1990
优秀
2013年11月18日 14点11分
辛时雨
@mgq_1990 你挖坟了
2013年11月23日 00点11分
level 12
辛时雨 楼主
2013年07月06日 05点07分 14
level 12
winzjjj
挖出
2014年11月16日 08点11分 15
辛时雨
竟敢挖坟 ~(来自爱贴吧Lumia820客户端)(其实句（maimeng）号也是小尾巴)
2014年11月16日 09点11分
winzjjj
回复 辛时雨 ：[滑稽]
2014年11月16日 09点11分
辛时雨
回复 winzjjj : 对了你看过星际穿越了吗，今天刚刚看的 ~(来自爱贴吧Lumia820客户端)(其实句（maimeng）号也是小尾巴)
2014年11月16日 10点11分
winzjjj
回复 辛时雨 ：什么啊
2014年11月16日 10点11分
level 8
qweneyu
求纯代码写一个文本框……
[勉强]
就像普通文本框那样，可以设置多行单行，有光标，有滚动条……
2015年10月03日 12点10分 17
辛时雨
这么老的东西。。。。。其实写的出来的
2015年10月03日 13点10分
辛时雨
写得出来但是代码量有点大。。。单行的好说，自动换行又能判断鼠标光标位置较难，自动换行我在Chattie里面准备实现
2015年10月03日 13点10分
Lyh🌐oki
@辛时雨 可惜vb6不能像vb.net一样重写一个控件[滑稽]
2015年10月03日 13点10分
1