readme.pag

来自「非常漂亮的VB控件」· PAG 代码 · 共 219 行

VERSION 5.00
Begin VB.PropertyPage 控件信息 
   Caption         =   "控件说明"
   ClientHeight    =   5805
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5895
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   387
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   393
   Begin VB.Frame Frame4 
      Caption         =   "注册说明"
      Height          =   1335
      Left            =   120
      TabIndex        =   9
      Top             =   4320
      Width           =   5655
      Begin VB.CommandButton CmdReg 
         BackColor       =   &H00C0C0FF&
         Caption         =   "完成注册"
         Height          =   255
         Left            =   4440
         Style           =   1  'Graphical
         TabIndex        =   17
         Top             =   960
         Width           =   1095
      End
      Begin VB.TextBox TSn 
         BackColor       =   &H00000080&
         ForeColor       =   &H00FFFFFF&
         Height          =   270
         Left            =   840
         TabIndex        =   16
         Top             =   960
         Width           =   3495
      End
      Begin VB.CommandButton Command1 
         BackColor       =   &H00FFC0C0&
         Caption         =   "复制ID(&C)"
         Height          =   255
         Left            =   4440
         Style           =   1  'Graphical
         TabIndex        =   13
         Top             =   600
         Width           =   1095
      End
      Begin VB.TextBox Tid 
         BackColor       =   &H00800000&
         ForeColor       =   &H00FFFFFF&
         Height          =   270
         Left            =   840
         Locked          =   -1  'True
         TabIndex        =   12
         Top             =   650
         Width           =   3495
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "注册号:"
         Height          =   180
         Left            =   120
         TabIndex        =   15
         Top             =   980
         Width           =   630
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "机器ID:"
         Height          =   180
         Left            =   120
         TabIndex        =   11
         Top             =   680
         Width           =   630
      End
      Begin VB.Label Label2 
         Caption         =   "注册费存入以后,请同我们联系，并告诉我们你的<机器ID>,然后在下面的相应位置输入我们给你的注册号。"
         Height          =   375
         Left            =   120
         TabIndex        =   10
         Top             =   240
         Width           =   5415
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "怎样购买"
      Height          =   735
      Left            =   120
      TabIndex        =   7
      Top             =   2280
      Width           =   5655
      Begin VB.Label Label6 
         BackStyle       =   0  'Transparent
         Caption         =   "    免费使用，如果有商业应用请联系枕善居或者作者"
         Height          =   420
         Left            =   120
         TabIndex        =   8
         Top             =   240
         Width           =   5415
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "联系方式"
      ForeColor       =   &H00FF0000&
      Height          =   975
      Left            =   120
      TabIndex        =   2
      Top             =   1200
      Width           =   5670
      Begin VB.Label Label5 
         BackStyle       =   0  'Transparent
         Caption         =   "http://www.nocstudio.com"
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   240
         TabIndex        =   14
         Top             =   720
         Width           =   5415
      End
      Begin VB.Label Label11 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "E-Mail:[e-mail]"
         ForeColor       =   &H00FF0000&
         Height          =   180
         Index           =   0
         Left            =   3000
         TabIndex        =   6
         Top             =   720
         Width           =   2070
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "QQ:(如不在线请留言)"
         ForeColor       =   &H00FF0000&
         Height          =   180
         Index           =   0
         Left            =   240
         TabIndex        =   5
         Top             =   480
         Width           =   1710
      End
      Begin VB.Label Label9 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "联系人:李华顺"
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   3000
         TabIndex        =   4
         Top             =   480
         Width           =   1170
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "咨询电话: "
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   240
         TabIndex        =   3
         Top             =   240
         Width           =   900
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "为什么要使用界面控件?"
      ForeColor       =   &H00C00000&
      Height          =   1035
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   5670
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   $"Readme.pgx":0000
         ForeColor       =   &H00C00000&
         Height          =   735
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   5460
      End
   End
End
Attribute VB_Name = "控件信息"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub txt说明_Change()
    Changed = True
End Sub

Private Sub CmdReg_Click()
If TSn.Text <> "" Then
    CreateNewKey HKEY_LOCAL_MACHINE, "SOFTWARE\华盛软件工作室\NiceForm"
    SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\华盛软件工作室\NiceForm", "SN", TSn.Text, REG_SZ
End If
MsgBox "     已经将当前的注册号存入注册表,如注册号是正确      " & vbLf & _
       "的,哪么你编译程序时就不会再有提示窗口.编译后的        " & vbLf & _
       "程序在另的电脑上面也不会有提示窗口.", vbInformation, "注册提示"
End Sub

Private Sub Command1_Click()
Clipboard.SetText Tid.Text
MsgBox "已经将你的机器ID: " & Tid.Text & " 复制到了剪切板中.", vbInformation, "提示"
End Sub

Private Sub PropertyPage_SelectionChanged()
Tid.Text = Int(GetSerialNumber("C:\") * 1.25) * 4
End Sub