Roger's Work Blog

摘要： 将Access数据库导入到SQLServer 2005 Express安装好SQL Server 2005 Express后，再安装SQL Server Management StudioExpress CTP就可以 1、安装Access 2003，选中Access下的“数据库复制”组件。2、打开Access 2003数据库，依次单击“工具”－... 阅读全文

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

摘要： 如何在 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... 阅读全文

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

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

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

摘要： Option ExplicitPrivate Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd Type Private Declare Function BitBlt Lib "gdi32" _ (ByVal hDCDest As Long, ByVal XDest As Long, _ ByVal YDes... 阅读全文

摘要： 下面的例子实现了该功能。源代码/Files/roger1984/创建透明窗体.rar>>步骤1----建立新工程。>>步骤2----编写如下代码： Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd _As Long, lpRECT As RECT) As LongPrivate Declare F... 阅读全文