【叶帆开源区】窗体界面控件源码

叶帆 2004-12-14 11:04:21
好久没有开源了,今天抽时间整理了部分代码,此外还有很多比较好的代码,有时间一一整理出来
希望大家多多支持,提出自己的意见或发布自己的源码!!!

-------
这是我早期自己编写的一段代码,注释不是很详细,只是对必要部分做了简短说明。现在把所有的源码发布出来,对希望对这方面编程感兴趣的朋友提供可参考的资料。

详细说明:http://blog.csdn.net/yefanqiu/archive/2004/12/14/215647.aspx

-------
使用很简单,在一个无边框的窗体上,直接加入YFwin控件,它会自动根据窗体的大小自动调整自己的大小。

功能:1、窗体可以置最前/一般

2、缩小后图标可以到托盘

有兴趣的朋友可以对界面重新进行设计。

比较有亮点的代码

Private Sub UserControl_Resize()
UserControl.Extender.Align = 1
UserControl.Height = UserControl.Extender.Parent.Height '获取父窗体的大小
UserControl.Width = UserControl.Extender.Parent.Width
.......
End Sub

示例代码:---------------

'*************************************************************
'**模 块 名:frmTest
'**说 明:YFsoft 叶帆Blog:http://blog.csdn.net/yefanqiu/
'**创 建 人:叶帆
'**日 期:2004-12-14 10:13:20
'**修 改 人:
'**日 期:
'**描 述:测试程序(这是早期的代码,希望能起到抛砖引玉的作用)
'**版 本:V1.0.0
'***************************************************************
Private Sub YFCheckButton2_Click()
MsgBox "被单击"
End Sub

Private Sub YFOptionButton1_Click(Index As Integer)
YFOptionButton1(0).Value = False
YFOptionButton1(1).Value = False
YFOptionButton1(2).Value = False

YFOptionButton1(Index).Value = True
End Sub

Private Sub YFTab1_Click(no As Integer)
Label1.Caption = YFTab1.Text
End Sub

Private Sub YFWin1_CloseWindow()
MsgBox "窗体关闭"
End Sub


【源码下载】--------------------------------
http://blog.csdn.net/yefanqiu/
【叶帆源码】->[014]窗体界面控件
...全文
989 点赞 收藏 40
写回复
40 条回复
cumtbwxj 2005年08月25日
学习ing
回复 点赞
EricaNet 2005年07月28日
我来学习!
回复 点赞
huzling 2005年07月27日
开源是发展方向!
回复 点赞
greatwriter 2005年07月23日
超级支持。不过还不支持状态栏和菜单栏。
希望下个版本可以支持
回复 点赞
tiansun 2005年06月16日
我也来支持一下下
回复 点赞
cugbqqinying 2005年06月16日
狂支持开源 支持YF
回复 点赞
wxrwan 2005年06月16日
支持!!!
回复 点赞
43720938 2005年06月16日
支持,学习
回复 点赞
bob008 2005年06月15日
还不如自己画呢。。。
回复 点赞
yuii 2005年02月12日
支持
回复 点赞
lucky08 2005年02月12日
支持+学习
回复 点赞
kksunky 2005年02月09日
up too
回复 点赞
ec_figo 2005年02月08日
顶一下~!
回复 点赞
mycoldboy 2005年02月08日
看+接分
回复 点赞
cso 2005年02月06日
看看+支持+顶
回复 点赞
hanps 2005年02月05日
支持叶帆……
回复 点赞
artoksxb 2005年01月22日
不错!支持
回复 点赞
aohan 2005年01月17日
支持叶帆……
回复 点赞
kmzs 2005年01月17日
牛人又来了。。。支持!!!
回复 点赞
dongge2000 2005年01月17日
再来看看,支持先!
回复 点赞
发动态
发帖子
控件
创建于2007-09-28

1223

社区成员

4.1w+

社区内容

VB 控件
社区公告
暂无公告