frmnctest.frm

漂亮的VB版本的界面,界面可以进行扩展并且所需要的代码又非常的少。是一个优秀的原码你可以下载学习之用。

VERSION 5.00
Begin VB.Form frmNCTest 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "这是对DLL进行测试"
   ClientHeight    =   4890
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   9900
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4890
   ScaleWidth      =   9900
   StartUpPosition =   1  '所有者中心
   Begin VB.PictureBox picBorder 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   150
      Left            =   1680
      Picture         =   "frmNCTest.frx":0000
      ScaleHeight     =   150
      ScaleWidth      =   1050
      TabIndex        =   1
      Top             =   3360
      Visible         =   0   'False
      Width           =   1050
   End
   Begin VB.PictureBox picCaption 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   720
      Left            =   120
      Picture         =   "frmNCTest.frx":0506
      ScaleHeight     =   720
      ScaleWidth      =   9600
      TabIndex        =   0
      Top             =   1800
      Visible         =   0   'False
      Width           =   9600
   End
   Begin VB.Menu File 
      Caption         =   "文件(&F)"
      Begin VB.Menu m_Open 
         Caption         =   "打开"
      End
      Begin VB.Menu m_Save 
         Caption         =   "保存"
      End
   End
End
Attribute VB_Name = "frmNCTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private m_cN As cNCaption

Private Sub Skin(f As Form, cN As cNCaption)

    cN.ActiveCaptionColor = &HFFFFFF
    cN.InActiveCaptionColor = &HC0C0C0
    cN.ActiveMenuColor = &H0
    'cN.ActiveMenuColorOver = &H0
    cN.ActiveMenuColorOver = RGB(207, 203, 207)
    'cN.InActiveMenuColor = &H0&
    cN.InActiveMenuColor = RGB(207, 203, 207)
    'cN.MenuBackgroundColor = RGB(207, 203, 207)
    cN.MenuBackgroundColor = RGB(0, 203, 207)
    cN.CaptionFont.Name = "宋体"
    cN.CaptionFont.Size = 9
    cN.MenuFont.Name = "宋体"
    cN.MenuFont.Size = 9
    cN.Attach f, picCaption.Picture, picBorder.Picture, 19, 20, 90, 140, 240, 400
    'f.BackColor = RGB(207, 203, 207)
    f.BackColor = RGB(207, 203, 207)

End Sub

Private Sub Form_Load()
    
    Set m_cN = New cNCaption
    Skin Me, m_cN

End Sub