★类maxthon侧边栏效果的主控面板窗体

newscat6812 · 发表于 2007-8-5 10:56:49

代码超简单的类maxthon侧边栏的主控面板窗体，二级结构，窗体在鼠标触碰下“招之即来，挥之即去”，亦可“钉住”在桌面上。

窗体左面竖的图标按钮条，用选项组控件实现
窗体中间主按钮区，用选项卡控件实现
窗体右边伸缩敏感Bar，按钮控件实现

伸缩的代码不用API实现，只区区这么几行代码：

Private Sub Command999_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Toggle0.Value = 0 Then
If Me.WindowLeft <> -1800 Then
   Me.Move Left:=-1800, Top:=0
Else
   If Me.WindowLeft <> 0 Then
      Me.Move Left:=0, Top:=0
   End If
End If
  End If
End Sub

toggle0 是右上角的“钉住”按钉。

整个主控窗体简单实用。

[ 本帖最后由 newscat6812 于 2007-8-5 11:04 编辑 ]

luke99 · 发表于 2009-12-28 10:00:35

源码还是广告秀

66364936 · 发表于 2009-12-25 13:28:43

很不错，谢谢

57a5 · 发表于 2008-9-24 19:55:17

[:50]

kangking · 发表于 2008-9-24 10:40:55

谢谢！

kevindeng · 发表于 2008-9-24 08:34:23

非常好的思路,代码简练!!!谢谢

hi450868 · 发表于 2008-9-23 23:48:20

谢谢分享！

changweiren · 发表于 2008-9-23 21:46:56

xuexi

bach · 发表于 2008-1-26 22:20:18

学习一下!

poly · 发表于 2008-1-26 18:45:10

不错哦

顶一下~！

qinds1977 · 发表于 2008-1-26 18:01:27

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] ★类maxthon侧边栏效果的主控面板窗体

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)