Roger's Work Blog

摘要： 如何在 Menu 中加入美美的图案？在模组中加入以下程序码：Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongDeclare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As LongDeclare Functi... 阅读全文

摘要： 如何把小图片填满 MDIForm 成为背景图？以下这个范例，　要：1、一个 MDIForm：不必设定任何属性。2、一个 Form1：不一定是 MDIChild，最好 MDIChild 为 False，但是 AutoRedraw 设成 True。3、Form1 上面放一个隐藏的 PictureBox：名称为 Picture1，不必设定 Picture 属性。4、一张图片的完整路径。'将以下模组放入 ... 阅读全文

摘要： 如何移除 Form 右上方之『X』按钮？其实 Form 右上方之三个按钮分别对应到 Form 左上方控制盒 (ControlBox) 中的几个选项 (缩到最小 / 放到最大 / 关闭)，而其中的最大化 (MaxButton) 及最小化 (Minbutton) 都可以直接在 Form 的属性中设定，但是 VB 并没有提供设定『X』按钮的功能！要达到这个功能，必须借助 API：由于『X』按钮对应到 C... 阅读全文

摘要： 如何制作透明的表单 (Form)？请在声明区中放入以下声明Const GWL_EXSTYLE = (-20)Const WS_EX_TRANSPARENT = &H20&Const SWP_FRAMECHANGED = &H20Const SWP_NOMOVE = &H2Const SWP_NOSIZE = &H1Const SWP_SHOWME = SWP... 阅读全文

摘要： VB可以产生四角形以外其他形状的 Form 吗？ 这个问题，您一定无法想像有多容易，您可以产生任何形状的 Form，但必须借助 CreateEllipticRgn 及 SetWindowRgn 二个 API ，例如：Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ... 阅读全文