This is a piece of code I have prepared by myself. The comment is not very detailed, but it is short description of the necessary part. Now publish all the source code, provide information on friends who want to be interested in this area.
Source code download address: http://www.sky-walker.com.cn/yefan/sourcecode/yfautowin.rar
This is a control icon on the toolbar: including multiple, the main thing is YFWIN, and several other common controls that are mainly made in conjunction with the form interface style.
Use very simple, on a boundless form, add the YFWIN control directly, which will automatically adjust your size according to the size of the form.
The interface is as follows:
Function: 1, the form can be placed in front / general
2, narrow the icon to the tray
Interested friends can re-design on the interface.
Compared with highlights
Private Sub UserControl_Resize () UserControl.Extender.Align = 1 UserControl.Height = UserControl.Extender.Parent.Height 'Get parent window size UserControl.Width = UserControl.Extender.Parent.Width ....... End Sub
Sample code: ---------------
'********************************************************** ************ ** Module Name: frmTest '** said: YFSoft Ye Fan blog: http://blog.9cbs.net/yefanqiu/'** Created: Ye Fan '**: 2004-12-14 10:13:20' ** Modified: '** Japan:' ** Description: Test procedure (this is an early code, I hope to play the role of the jade ) '** version: v1.0.0' ********************************************** ************************ Private sub yfcheckbutton2_click () msgbox "Click" End Sub
Private Sub YFOptionButton1_Click (Index As Integer) YFOptionButton1 (0) .Value = False YFOptionButton1 (1) .Value = False YFOptionButton1 (2) .Value = False YFOptionButton1 (Index) .Value = TrueEnd Sub
Private sub yftab1_click (no as integer) label1.caption = yftab1.textend SUB
Private sub yfwin1_closeWindow () MSGBOX "Form Close" end SUB
