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