★类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 编辑 ]

goto2008 · 发表于 2007-8-5 11:28:57

谢谢分享。。。顶一下。。

goto2008 · 发表于 2007-8-5 11:30:06

很好的思路。。开眼界了。。。。

wu8313 · 发表于 2007-8-6 20:56:07

不错不错。。。。。。。。

灵芝 · 发表于 2007-8-7 15:45:50

好东东
喜欢
收下了...

tmtony · 发表于 2007-8-7 16:05:34

学习一下!

wzh · 发表于 2007-8-9 14:12:29

不错不错,xiexie

t小宝 · 发表于 2007-8-9 14:22:29

谢谢分享,一定要看看

fan0217 · 发表于 2007-8-9 16:59:23

不错，谢谢

aronliu · 发表于 2007-8-9 20:17:38

谢谢分享,正是我所需

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

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

主题相关群

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

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

本帖子中包含更多资源

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