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

[叶帆]

好久没有开源了，今天抽时间整理了部分代码，此外还有很多比较好的代码，有时间一一整理出来
希望大家多多支持，提出自己的意见或发布自己的源码！！！

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

详细说明：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]窗体界面控件

[dongge2000]

再来看看，支持先！

[kmzs]

牛人又来了。。。支持！！！

[aohan]

支持叶帆……

[artoksxb]

不错!支持

[hanps]

支持叶帆……

[cso]

看看+支持+顶

[mycoldboy]

看+接分

[ec_figo]

顶一下~!

[kksunky]

up too

[lucky08]

支持+学习

[yuii]

支持

[bob008]

还不如自己画呢。。。

[43720938]

支持,学习

[wxrwan]

支持！！！

[cugbqqinying]

狂支持开源 支持YF

[tiansun]

我也来支持一下下

[greatwriter]

超级支持。不过还不支持状态栏和菜单栏。
希望下个版本可以支持

[huzling]

开源是发展方向！

[EricaNet]

我来学习！

[cumtbwxj]

学习ing