窗体界面控件源码解析

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

源码下载地址：http://www.sky-walker.com.cn/yefan/SourceCode/YFAutoWin.rar

这是在工具条上出现控件图标：包括多个，最主要的是YFWin，其它几个主要是配合该窗体界面风格做的几个常用控件。

使用很简单，在一个无边框的窗体上，直接加入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