窗体界面控件源码解析

最新推荐文章于 2022-04-13 16:46:55 发布

iteye_17686

最新推荐文章于 2022-04-13 16:46:55 发布

阅读量116

点赞数

博主分享早期编写的代码，提供源码下载地址。介绍了工具条上的控件图标，主要是YFWin控件，其可在无边框窗体上自动调整大小。还说明了该控件的功能，如窗体置最前、缩小到托盘等，并给出亮点代码和示例代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

源码下载地址：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.youkuaiyun.com/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