首页
后端开发
VB
VB6.0商标启动窗体实现

VB6.0商标启动窗体实现

0 次浏览 0 条评论
rar
rar

只显示商标的启动窗体程序，挺适合做软件启动页或者品牌展示。VB6.0 里，配合 PictureBox 控件，加上点小技巧，就能实现一个干净利落的界面，不被按钮和文字干扰。通过设置 BorderStyle 为 0 - None，再把 ShowInTaskbar 设为 False，窗体就能做到边框全无、任务栏也不占位置。

重点就是在 Form_Load 事件里控制控件的可见性，用一段遍历代码，把除了商标之外的控件都隐藏掉。代码量不多，但效果还挺赞：

Private Sub Form_Load()
  Dim ctl As Control
  For Each ctl In Me.Controls
    If Not TypeOf ctl Is PictureBox Then ctl.Visible = False
  Next ctl
  Me.BorderStyle = 0
  Me.ShowInTaskbar = False
End Sub

另外记得放一个退出按钮，要不然用户都找不到关闭方式，尤其是窗体又没边框的时候。图像加载也别大意，最好是 BMP 或 JPEG 格式，兼容性更稳。

如果你也在搞 欢迎页、品牌弹窗 之类的东西，这段代码就挺有参考价值的。有空还可以看看设置窗体透明这篇，搭配起来效果更炫。

rar 文件大小：4.58KB