adacontrol.ctl

windows下测试打印机源码

VERSION 5.00
Begin VB.UserControl ADAControl 
   BackColor       =   &H00C0FFC0&
   ClientHeight    =   1320
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3120
   ScaleHeight     =   1320
   ScaleMode       =   0  'User
   ScaleWidth      =   29.885
End
Attribute VB_Name = "ADAControl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Public top_car_x  As Long
Public top_car_y  As Long
Public left_car_x  As Long
Public left_car_y  As Long
Public right_car_x  As Long
Public right_car_y  As Long

Public adaName As String
Public adaSex As String
Public otherJob As String
Public adaArea As String
Public fzjg As String
Public cardNumber As String
Public effectDate As String

'Top position set begin
Public Function settop_car_x(Optional x As Long = 0) As Boolean
    top_car_x = x
End Function
Public Function gettop_car_x() As Long
    gettop_car_x = top_car_x
End Function
Public Function settop_car_y(Optional y As Long = 0) As Boolean
    top_car_y = y
End Function
Public Function gettop_car_y() As Long
    gettop_car_y = top_car_y
End Function
'Top position set end

'left position set begin
Public Function getleft_car_x() As Long
    getleft_car_x = left_car_x
End Function
Public Function setleft_car_x(Optional x As Long = 0) As Boolean
    left_car_x = x
End Function
Public Function getleft_car_y() As Long
    getleft_car_y = left_car_y
End Function
Public Function setleft_car_y(Optional y As Long = 0) As Boolean
    left_car_y = y
End Function
'left position set end

'right position set begin
Public Function getright_car_x() As Long
    getright_car_x = right_car_x
End Function
Public Function setright_car_x(Optional x As Long = 0) As Boolean
    right_car_x = x
End Function
Public Function getright_car_y() As Long
    getright_car_y = right_car_y
End Function
Public Function setright_car_y(Optional y As Long = 0) As Boolean
    right_car_y = y
End Function
'right positon set end

'Business propertities begin
Public Function getadaName() As String
    getadaName = adaName
End Function
Public Function setadaName(Optional str01 As String = "") As Boolean
    adaName = str01
End Function


Public Function getadaSex() As String
    getadaSex = adaSex
End Function
Public Function setadaSex(Optional str01 As String = "") As Boolean
    adaSex = str01
End Function


Public Function getotherJob() As String
    getotherJob = otherJob
End Function
Public Function setotherJob(Optional str01 As String = "") As Boolean
    otherJob = str01
End Function

Public Function getadaArea() As String
    getadaArea = adaArea
End Function
Public Function setadaArea(Optional str01 As String = "") As Boolean
    adaArea = str01
End Function



Public Function getfzjg() As String
    getfzjg = fzjg
End Function
Public Function setfzjg(Optional str01 As String = "") As Boolean
    fzjg = str01
End Function

Public Function getcardNumber() As String
    getcardNumber = cardNumber
End Function
Public Function setcardNumber(Optional str01 As String = "") As Boolean
    cardNumber = str01
End Function

Public Function geteffectDate() As String
    geteffectDate = effectDate
End Function
Public Function seteffectDate(Optional str01 As String = "") As Boolean
    effectDate = str01
End Function




'Business propertities end


Public Function adaprint() As Boolean
    On Error Resume Next
    Set ada = Me
    Load PrintDemoabos
End Function