【叶帆开源区】窗体界面控件源码

叶帆
博客专家认证
业界专家认证
2004-12-14 11:04:21
好久没有开源了,今天抽时间整理了部分代码,此外还有很多比较好的代码,有时间一一整理出来
希望大家多多支持,提出自己的意见或发布自己的源码!!!

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

详细说明:http://blog.csdn.net/yefanqiu/archive/2004/12/14/215647.aspx

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


【源码下载】--------------------------------
http://blog.csdn.net/yefanqiu/
【叶帆源码】->[014]窗体界面控件
...全文
1044 40 打赏 收藏 举报
写回复
40 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
cumtbwxj 2005-08-25
学习ing
  • 打赏
  • 举报
回复
EricaNet 2005-07-28
我来学习!
  • 打赏
  • 举报
回复
huzling 2005-07-27
开源是发展方向!
  • 打赏
  • 举报
回复
greatwriter 2005-07-23
超级支持。不过还不支持状态栏和菜单栏。
希望下个版本可以支持
  • 打赏
  • 举报
回复
tiansun 2005-06-16
我也来支持一下下
  • 打赏
  • 举报
回复
cugbqqinying 2005-06-16
狂支持开源 支持YF
  • 打赏
  • 举报
回复
wxrwan 2005-06-16
支持!!!
  • 打赏
  • 举报
回复
43720938 2005-06-16
支持,学习
  • 打赏
  • 举报
回复
bob008 2005-06-15
还不如自己画呢。。。
  • 打赏
  • 举报
回复
yuii 2005-02-12
支持
  • 打赏
  • 举报
回复
lucky08 2005-02-12
支持+学习
  • 打赏
  • 举报
回复
kksunky 2005-02-09
up too
  • 打赏
  • 举报
回复
ec_figo 2005-02-08
顶一下~!
  • 打赏
  • 举报
回复
mycoldboy 2005-02-08
看+接分
  • 打赏
  • 举报
回复
cso 2005-02-06
看看+支持+顶
  • 打赏
  • 举报
回复
hanps 2005-02-05
支持叶帆……
  • 打赏
  • 举报
回复
artoksxb 2005-01-22
不错!支持
  • 打赏
  • 举报
回复
aohan 2005-01-17
支持叶帆……
  • 打赏
  • 举报
回复
kmzs 2005-01-17
牛人又来了。。。支持!!!
  • 打赏
  • 举报
回复
dongge2000 2005-01-17
再来看看,支持先!
  • 打赏
  • 举报
回复
加载更多回复(20)
相关推荐
发帖
控件

1434

社区成员

VB 控件
社区管理员
  • 控件
加入社区
帖子事件
创建了帖子
2004-12-14 11:04
社区公告
暂无公告