vb6.0
xinbin1122
这个作者很懒,什么都没留下…
展开
-
在picturebox上画一条线,然后在线上写字,把文字对应的线删掉
‘画一条线 Me.Picture1.DrawStyle = 0 Me.Picture1.Line (0, 0)-(10000, 10000) Me.Picture1.DrawStyle = 3 Me.Picture1.Line (0, 0)-(10000, 20000) Me.Picture1.DrawStyle = 2 Me.Picture1.Line (0,原创 2005-12-12 17:45:00 · 2994 阅读 · 0 评论 -
vb6.0带 参数(索引)的属性的写法
建一个新的类模块‘定义私有数组变量Private intAges(3) As IntegerPublic Property Get Age(Index As Integer) As Integer Age = intAges(Index)End PropertyPublic Property Let Age(Index As Integer, ByVal vNewValue As Integ原创 2005-12-12 14:25:00 · 2669 阅读 · 0 评论 -
How to use VB6.0's Event.
Creat a new class named Class1, its codes like this:Public Event MyEvent()Public Sub RaiseTheEvent() some other codes here RaiseEvent MyEvent End SubCreate a new form, draw a command on it原创 2005-12-21 15:23:00 · 976 阅读 · 0 评论 -
VB画线的算法,画虚线,可订制的不同宽度的。可读性有点差
Public Function DrawLine(ByRef picGraph As PictureBox, ByVal sngWidth As Single, _ ByVal lngColor As Long, ByVal sngLineFromX As Single, _ ByVal sngLine原创 2005-12-22 17:11:00 · 5098 阅读 · 1 评论 -
vb6.0 CLng,CInt等的bug及其解决办法
vb6.0有如下bug:clng(6.5)=6clng(5.5)=6解决方法:使用format方法dim dblValue as doubledblValue=6.5clng(format(dblValue,"#")CInt可以用同样的方法解决。原创 2005-12-16 13:19:00 · 4507 阅读 · 0 评论