frmqr.frm

PDF417/QR条码制作源程序

VERSION 5.00
Begin VB.Form frmQr 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Qr条码设置"
   ClientHeight    =   2055
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4080
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2055
   ScaleWidth      =   4080
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton Cmd_Default 
      Caption         =   "默认值"
      Height          =   375
      Left            =   2880
      TabIndex        =   8
      Top             =   1320
      Width           =   975
   End
   Begin VB.CommandButton Cmd_Cancel 
      Caption         =   "退出"
      Height          =   375
      Left            =   2880
      TabIndex        =   7
      Top             =   600
      Width           =   975
   End
   Begin VB.CommandButton Cmd_Accept 
      Caption         =   "确认"
      Height          =   375
      Left            =   2880
      TabIndex        =   6
      Top             =   240
      Width           =   975
   End
   Begin VB.Frame Frame1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1575
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   2295
      Begin VB.TextBox Edit_Scale 
         Alignment       =   2  'Center
         BeginProperty DataFormat 
            Type            =   1
            Format          =   "0"
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   1
         EndProperty
         Height          =   315
         Left            =   1080
         TabIndex        =   5
         Text            =   "1"
         Top             =   960
         Width           =   615
      End
      Begin VB.ComboBox Cb_ELevel 
         Height          =   330
         ItemData        =   "frmQr.frx":0000
         Left            =   1080
         List            =   "frmQr.frx":0013
         TabIndex        =   2
         Text            =   "7"
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label3 
         Caption         =   "放大系数"
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   960
         Width           =   855
      End
      Begin VB.Label Label2 
         Caption         =   "%"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1920
         TabIndex        =   3
         Top             =   360
         Width           =   135
      End
      Begin VB.Label Label1 
         Caption         =   "纠错级别"
         Height          =   255
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Width           =   855
      End
   End
End
Attribute VB_Name = "frmQr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long

Public m_strProfile As String
'确认
Private Sub Cmd_Accept_Click()
Dim Profile As String
  On Error GoTo msgerror
    
  If (Profile = "") Then
    Profile = App.Path + "\MakeBarCode.ini"
  Else
    Profile = m_strProfile
  End If
  
  '提取pdf码的参数
  Call WritePrivateProfileString("QR", "XScale", Edit_Scale.Text, Profile)
  Call WritePrivateProfileString("QR", "ECCLevel", Cb_ELevel.Text, Profile)
  Unload Me
  
  Exit Sub
msgerror:
  MsgBox Err.Description
    
End Sub

Private Sub Cmd_Cancel_Click()
    Unload Me
End Sub

'默认值
Private Sub Cmd_Default_Click()
    Edit_Scale = 2
    Cb_ELevel = 15
End Sub

'调用
Private Sub Form_Load()
Dim Profile As String
  On Error GoTo msgerror
    
  If (Profile = "") Then
    Profile = App.Path + "\MakeBarCode.ini"
  Else
    Profile = m_strProfile
  End If
  
  '提取pdf码的参数
  Edit_Scale = GetPrivateProfileInt("QR", "XScale", 1, Profile)
  Cb_ELevel = GetPrivateProfileInt("QR", "ECCLevel", 7, Profile)
  
  Exit Sub
msgerror:
  MsgBox Err.Description
End Sub