窗体界面控件源码解析

2004年12月14日 10:48:00

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

源码下载地址：http://www.bjjr.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

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=215647