عند تصفحي لأحدى المنتديات شدني موضوع حبيت أن يكون في هذا المنتدى إلا وهو
كيفية عمل برنامج لحساب الاتصالات
وتم شرح هذا الموضوع علي يد [ ELKING] وذلك للأمانة فقط
الادوات المطلوبة هي
2- برنامج الفيجوال بيسك 6
3- اكتيف اسكين 4
* اقسام الدرس
1- كيفية استخدام ادوات الـ TELETOOLS
2- كيفية استخدام اكتيف اسكين
3- كيفية عملية الحساب
4- كيفية عمل اظهار رقم الطالب
5- كيفية عمل قاعدة بيانات البرنامج
بسم الله الرحمن الرحيم
سوف نفتح مشروع جديد ثم نضع به مديوول Module ونسمية etTTConst
ونكتب بداخله الشيفرة التالية
Global Const WAVE_FORMAT_PCM = &H1 Global Const PHONE_ERROR_DEVICE = &HFFFFFFFE Global Const MONITORSILENCE_TAG = &H89ABCDEF Global Const TAPIREPLYTIMEOUT = &HFFFFFFFD Global Const NOT_TAPI_COMPLIANT = &HFFFFFC27 Global Const LICENSE_EXCEEDED = &HFFFFFC26 Global Const LICENSE_EXCEEDED_TS = &HFFFFFC25 Global Const INVALID_SERIAL_NUMBER = &HFFFFFC24 Global Const WAVE_FORMAT_ALAW = &H6 Global Const WAVE_FORMAT_MULAW = &H7 Global Const WAVE_FORMAT_DVI_ADPCM = &H11 Global Const WAVE_FORMAT_IMA_ADPCM = WAVE_FORMAT_DVI_ADPCM Global Const WAVE_FORMAT_DIALOGIC_OKI_ADPCM = &H17 Global Const WAV_ERROR_NONE = 0 Global Const WAV_ERROR_NOFILE = -1 Global Const WAV_ERROR_FILEOPEN = -2 Global Const WAV_ERROR_FILECORRUPT = -3 Global Const WAV_ERROR_FILEREAD = -4 Global Const WAV_ERROR_FILEWRITE = -5 Global Const WAV_ERROR_NOMEMORY = -6 Global Const WAV_ERROR_UNSUPPORTEDFORMAT = -7 Global Const WAV_ERROR_DEVICE = -8 Global Const WAV_ERROR_CANCELED = -9 Global Const WAV_ERROR_FILETOOBIG = -10 Global Const WAV_ERROR_INVALIDVOLUME = -11 Global Const WAV_ERROR_FORMATMISMATCH = -12 Global Const wfCOUNT = 25 Global Const wfUnknown = 0 Global Const wfPCM08000M08 = 1 Global Const wfPCM08000S08 = 2 Global Const wfPCM08000M16 = 3 Global Const wfPCM08000S16 = 4 Global Const wfPCM11025M08 = 5 Global Const wfPCM11025S08 = 6 Global Const wfPCM11025M16 = 7 Global Const wfPCM11025S16 = 8 Global Const wfPCM22050M08 = 9 Global Const wfPCM22050S08 = 10 Global Const wfPCM22050M16 = 11 Global Const wfPCM22050S16 = 12 Global Const wfPCM44100M08 = 13 Global Const wfPCM44100S08 = 14 Global Const wfPCM44100M16 = 15 Global Const wfPCM44100S16 = 16 Global Const wfuLaw06000M08 = 17 Global Const wfuLaw08000M08 = 18 Global Const wfADPCM06000M04 = 19 Global Const wfADPCM08000M04 = 20 Global Const wfIMAADPCM04800M04 = 21 Global Const wfIMAADPCM07200M04 = 22 Global Const wfIMAADPCM08000M04 = 23 Global Const SwfUnknown = "Unknown" Global Const SwfPCM08000M08 = "PCM 8,000 Hz, 8-bit, Mono" Global Const SwfPCM08000S08 = "PCM 8,000 Hz, 8-bit, Stereo" Global Const SwfPCM08000M16 = "PCM 8,000 Hz, 16-bit, Mono" Global Const SwfPCM08000S16 = "PCM 8,000 Hz, 16-bit, Stereo" Global Const SwfPCM11025M08 = "PCM 11,025 Hz, 8-bit, Mono" Global Const SwfPCM11025S08 = "PCM 11,025 Hz, 8-bit, Stereo" Global Const SwfPCM11025M16 = "PCM 11,025 Hz, 16-bit, Mono" Global Const SwfPCM11025S16 = "PCM 11,025 Hz, 16-bit, Stereo" Global Const SwfPCM22050M08 = "PCM 22,050 Hz, 8-bit, Mono" Global Const SwfPCM22050S08 = "PCM 22,050 Hz, 8-bit, Stereo" Global Const SwfPCM22050M16 = "PCM 22,050 Hz, 16-bit, Mono" Global Const SwfPCM22050S16 = "PCM 22,050 Hz, 16-bit, Stereo" Global Const SwfPCM44100M08 = "PCM 44,100 Hz, 8-bit, Mono" Global Const SwfPCM44100S08 = "PCM 44,100 Hz, 8-bit, Stereo" Global Const SwfPCM44100M16 = "PCM 44,100 Hz, 16-bit, Mono" Global Const SwfPCM44100S16 = "PCM 44,100 Hz, 16-bit, Stereo" Global Const SwfuLaw06000M08 = "uLaw 6,000 Hz, 8-bit, Mono" Global Const SwfuLaw08000M08 = "uLaw 8,000 Hz, 8-bit, Mono" Global Const SwfADPCM06000M04 = "ADPCM 6,000 Hz, 4-bit, Mono" Global Const SwfADPCM08000M04 = "ADPCM 8,000 Hz, 4-bit, Mono" Global Const SwfIMAADPCM04800M04 = "IMA_ADPCM 4,800 Hz, 4-bit, Mono" Global Const SwfIMAADPCM07200M04 = "IMA_ADPCM 7,200 Hz, 4-bit, Mono" Global Const SwfIMAADPCM08000M04 = "IMA_ADPCM 8,000 Hz, 4-bit, Mono" Global Const TAPI_VERSION_MIN = &H10003 Global Const TAPI_VERSION_MAX = &H20001 Global Const CALL_INBOUND = 0 Global Const CALL_OUTBOUND = 1 'Messages for Phones and Lines Global Const LINE_ADDRESSSTATE = 0 Global Const LINE_CALLINFO = 1 Global Const LINE_CALLSTATE = 2 Global Const LINE_CLOSE = 3 Global Const LINE_DEVSPECIFIC = 4 Global Const LINE_DEVSPECIFICFEATURE = 5 Global Const LINE_GATHERDIGITS = 6 Global Const LINE_GENERATE = 7 Global Const LINE_LINEDEVSTATE = 8 Global Const LINE_MONITORDIGITS = 9 Global Const LINE_MONITORMEDIA = 10 Global Const LINE_MONITORTONE = 11 Global Const LINE_REPLY = 12 Global Const LINE_REQUEST = 13 Global Const PHONE_BUTTON = 14 Global Const PHONE_CLOSE = 15 Global Const PHONE_DEVSPECIFIC = 16 Global Const PHONE_REPLY = 17 Global Const PHONE_STATE = 18 Global Const LINE_CREATE = 19 Global Const PHONE_CREATE = 20 'Define Simple Telephony Constants Global Const TAPIERR_CONNECTED = &H0 Global Const TAPIERR_DROPPED = &HFFFF Global Const TAPIERR_NOREQUESTRECIPIENT = &HFFFE Global Const TAPIERR_REQUESTQUEUEFULL = &HFFFD Global Const TAPIERR_INVALDESTADDRESS = &HFFFC Global Const TAPIERR_INVALWINDOWHANDLE = &HFFFB Global Const TAPIERR_INVALDEVICECLASS = &HFFFA Global Const TAPIERR_INVALDEVICEID = &HFFF9 Global Const TAPIERR_DEVICECLASSUNAVAIL = &HFFF8 Global Const TAPIERR_DEVICEIDUNAVAIL = &HFFF7 Global Const TAPIERR_DEVICEINUSE = &HFFF6 Global Const TAPIERR_DESTBUSY = &HFFF5 Global Const TAPIERR_DESTNOANSWER = &HFFF4 Global Const TAPIERR_DESTUNAVAIL = &HFFF3 Global Const TAPIERR_UNKNOWNWINHANDLE = &HFFF2 Global Const TAPIERR_UNKNOWNREQUESTID = &HFFF1 Global Const TAPIERR_REQUESTFAILED = &HFFF0 Global Const TAPIERR_REQUESTCANCELLED = &HFFEF Global Const TAPIERR_INVALPOINTER = &HFFEE Global Const TAPIMAXDESTADDRESSSIZE = 80 Global Const TAPIMAXAPPNAMESIZE = 40 Global Const TAPIMAXCALLEDPARTYSIZE = 40 Global Const TAPIMAXCOMMENTSIZE = 80 Global Const TAPIMAXDEVICECLASSSIZE = 40 Global Const TAPIMAXDEVICEIDSIZE = 40 'Data types and values for Phones Global Const PHONEBUTTONFUNCTION_UNKNOWN = &H0 Global Const PHONEBUTTONFUNCTION_CONFERENCE = &H1 Global Const PHONEBUTTONFUNCTION_TRANSFER = &H2 Global Const PHONEBUTTONFUNCTION_DROP = &H3 Global Const PHONEBUTTONFUNCTION_HOLD = &H4 Global Const PHONEBUTTONFUNCTION_RECALL = &H5 Global Const PHONEBUTTONFUNCTION_DISCONNECT = &H6 Global Const PHONEBUTTONFUNCTION_CONNECT = &H7 Global Const PHONEBUTTONFUNCTION_MSGWAITON = &H8 Global Const PHONEBUTTONFUNCTION_MSGWAITOFF = &H9 Global Const PHONEBUTTONFUNCTION_SELECTRING = &HA Global Const PHONEBUTTONFUNCTION_ABBREVDIAL = &HB Global Const PHONEBUTTONFUNCTION_FORWARD = &HC Global Const PHONEBUTTONFUNCTION_PICKUP = &HD Global Const PHONEBUTTONFUNCTION_RINGAGAIN = &HE Global Const PHONEBUTTONFUNCTION_PARK = &HF Global Const PHONEBUTTONFUNCTION_REJECT = &H10 Global Const PHONEBUTTONFUNCTION_REDIRECT = &H11 Global Const PHONEBUTTONFUNCTION_MUTE = &H12 Global Const PHONEBUTTONFUNCTION_VOLUMEUP = &H13 Global Const PHONEBUTTONFUNCTION_VOLUMEDOWN = &H14 Global Const PHONEBUTTONFUNCTION_SPEAKERON = &H15 Global Const PHONEBUTTONFUNCTION_SPEAKEROFF = &H16 Global Const PHONEBUTTONFUNCTION_FLASH = &H17 Global Const PHONEBUTTONFUNCTION_DATAON = &H18 Global Const PHONEBUTTONFUNCTION_DATAOFF = &H19 Global Const PHONEBUTTONFUNCTION_DONOTDISTURB = &H1A Global Const PHONEBUTTONFUNCTION_INTERCOM = &H1B Global Const PHONEBUTTONFUNCTION_BRIDGEDAPP = &H1C Global Const PHONEBUTTONFUNCTION_BUSY = &H1D Global Const PHONEBUTTONFUNCTION_CALLAPP = &H1E Global Const PHONEBUTTONFUNCTION_DATETIME = &H1F Global Const PHONEBUTTONFUNCTION_DIRECTORY = &H20 Global Const PHONEBUTTONFUNCTION_COVER = &H21 Global Const PHONEBUTTONFUNCTION_CALLID = &H22 Global Const PHONEBUTTONFUNCTION_LASTNUM = &H23 Global Const PHONEBUTTONFUNCTION_NIGHTSRV = &H24 Global Const PHONEBUTTONFUNCTION_SENDCALLS = &H25 Global Const PHONEBUTTONFUNCTION_MSGINDICATOR = &H26 Global Const PHONEBUTTONFUNCTION_REPDIAL = &H27 Global Const PHONEBUTTONFUNCTION_SETREPDIAL = &H28 Global Const PHONEBUTTONFUNCTION_SYSTEMSPEED = &H29 Global Const PHONEBUTTONFUNCTION_STATIONSPEED = &H2A Global Const PHONEBUTTONFUNCTION_CAMPON = &H2B Global Const PHONEBUTTONFUNCTION_SAVEREPEAT = &H2C Global Const PHONEBUTTONFUNCTION_QUEUECALL = &H2D Global Const PHONEBUTTONFUNCTION_NONE = &H2E Global Const PHONEBUTTONMODE_DUMMY = &H1 Global Const PHONEBUTTONMODE_CALL = &H2 Global Const PHONEBUTTONMODE_FEATURE = &H4 Global Const PHONEBUTTONMODE_KEYPAD = &H8 Global Const PHONEBUTTONMODE_LOCAL = &H10 Global Const PHONEBUTTONMODE_DISPLAY = &H20 Global Const PHONEBUTTONSTATE_UP = &H1 Global Const PHONEBUTTONSTATE_DOWN = &H2 Global Const PHONEBUTTONSTATE_UNKNOWN = &H4 Global Const PHONEBUTTONSTATE_UNAVAIL = &H8 Global Const PHONEERR_ALLOCATED = &H90000001 Global Const PHONEERR_BADDEVICEID = &H90000002 Global Const PHONEERR_INCOMPATIBLEAPIVERSION = &H90000003 Global Const PHONEERR_INCOMPATIBLEEXTVERSION = &H90000004 Global Const PHONEERR_INIFILECORRUPT = &H90000005 Global Const PHONEERR_INUSE = &H90000006 Global Const PHONEERR_INVALAPPHANDLE = &H90000007 Global Const PHONEERR_INVALAPPNAME = &H90000008 Global Const PHONEERR_INVALBUTTONLAMPID = &H90000009 Global Const PHONEERR_INVALBUTTONMODE = &H9000000A Global Const PHONEERR_INVALBUTTONSTATE = &H9000000B Global Const PHONEERR_INVALDATAID = &H9000000C Global Const PHONEERR_INVALDEVICECLASS = &H9000000D Global Const PHONEERR_INVALEXTVERSION = &H9000000E Global Const PHONEERR_INVALHOOKSWITCHDEV = &H9000000F Global Const PHONEERR_INVALHOOKSWITCHMODE = &H90000010 Global Const PHONEERR_INVALLAMPMODE = &H90000011 Global Const PHONEERR_INVALPARAM = &H90000012 Global Const PHONEERR_INVALPHONEHANDLE = &H90000013 Global Const PHONEERR_INVALPHONESTATE = &H90000014 Global Const PHONEERR_INVALPOINTER = &H90000015 Global Const PHONEERR_INVALPRIVILEGE = &H90000016 Global Const PHONEERR_INVALRINGMODE = &H90000017 Global Const PHONEERR_NODEVICE = &H90000018 Global Const PHONEERR_NODRIVER = &H90000019 Global Const PHONEERR_NOMEM = &H9000001A Global Const PHONEERR_NOTOWNER = &H9000001B Global Const PHONEERR_OPERATIONFAILED = &H9000001C Global Const PHONEERR_OPERATIONUNAVAIL = &H9000001D Global Const PHONEERR_RESOURCEUNAVAIL = &H9000001F Global Const PHONEERR_REQUESTOVERRUN = &H90000020 Global Const PHONEERR_STRUCTURETOOSMALL = &H90000021 Global Const PHONEERR_UNINITIALIZED = &H90000022 Global Const PHONEERR_REINIT = &H90000023 Global Const PHONEHOOKSWITCHDEV_HANDSET = &H1 Global Const PHONEHOOKSWITCHDEV_SPEAKER = &H2 Global Const PHONEHOOKSWITCHDEV_HEADSET = &H4 Global Const PHONEHOOKSWITCHMODE_ONHOOK = &H1 Global Const PHONEHOOKSWITCHMODE_MIC = &H2 Global Const PHONEHOOKSWITCHMODE_SPEAKER = &H4 Global Const PHONEHOOKSWITCHMODE_MICSPEAKER = &H8 Global Const PHONEHOOKSWITCHMODE_UNKNOWN = &H10 Global Const PHONELAMPMODE_DUMMY = &H1 Global Const PHONELAMPMODE_OFF = &H2 Global Const PHONELAMPMODE_STEADY = &H4 Global Const PHONELAMPMODE_WINK = &H8 Global Const PHONELAMPMODE_FLASH = &H10 Global Const PHONELAMPMODE_FLUTTER = &H20 Global Const PHONELAMPMODE_BROKENFLUTTER = &H40 Global Const PHONELAMPMODE_UNKNOWN = &H80 Global Const PHONEPRIVILEGE_MONITOR = &H1 Global Const PHONEPRIVILEGE_OWNER = &H2 Global Const PHONESTATE_OTHER = &H1 Global Const PHONESTATE_CONNECTED = &H2 Global Const PHONESTATE_DISCONNECTED = &H4 Global Const PHONESTATE_OWNER = &H8 Global Const PHONESTATE_MONITORS = &H10 Global Const PHONESTATE_DISPLAY = &H20 Global Const PHONESTATE_LAMP = &H40 Global Const PHONESTATE_RINGMODE = &H80 Global Const PHONESTATE_RINGVOLUME = &H100 Global Const PHONESTATE_HANDSETHOOKSWITCH = &H200 Global Const PHONESTATE_HANDSETVOLUME = &H400 Global Const PHONESTATE_HANDSETGAIN = &H800 Global Const PHONESTATE_SPEAKERHOOKSWITCH = &H1000 Global Const PHONESTATE_SPEAKERVOLUME = &H2000 Global Const PHONESTATE_SPEAKERGAIN = &H4000 Global Const PHONESTATE_HEADSETHOOKSWITCH = &H8000 Global Const PHONESTATE_HEADSETVOLUME = &H10000 Global Const PHONESTATE_HEADSETGAIN = &H20000 Global Const PHONESTATE_SUSPEND = &H40000 Global Const PHONESTATE_RESUME = &H80000 Global Const PHONESTATE_DEVSPECIFIC = &H100000 Global Const PHONESTATE_REINIT = &H200000 Global Const PHONESTATE_CAPSCHANGE = &H400000 Global Const PHONESTATE_REMOVED = &H800000 Global Const PHONESTATUSFLAGS_CONNECTED = &H1 Global Const PHONESTATUSFLAGS_SUSPENDED = &H2 Global Const STRINGFORMAT_ASCII = &H1 Global Const STRINGFORMAT_DBCS = &H2 Global Const STRINGFORMAT_UNICODE = &H3 Global Const STRINGFORMAT_BINARY = &H4 'Data types and values for Lines Global Const LINEADDRCAPFLAGS_FWDNUMRINGS = &H1 Global Const LINEADDRCAPFLAGS_PICKUPGROUPID = &H2 Global Const LINEADDRCAPFLAGS_SECURE = &H4 Global Const LINEADDRCAPFLAGS_BLOCKIDDEFAULT = &H8 Global Const LINEADDRCAPFLAGS_BLOCKIDOVERRIDE = &H10 Global Const LINEADDRCAPFLAGS_DIALED = &H20 Global Const LINEADDRCAPFLAGS_ORIGOFFHOOK = &H40 Global Const LINEADDRCAPFLAGS_DESTOFFHOOK = &H80 Global Const LINEADDRCAPFLAGS_FWDCONSULT = &H100 Global Const LINEADDRCAPFLAGS_SETUPCONFNULL = &H200 Global Const LINEADDRCAPFLAGS_AUTORECONNECT = &H400 Global Const LINEADDRCAPFLAGS_COMPLETIONID = &H800 Global Const LINEADDRCAPFLAGS_TRANSFERHELD = &H1000 Global Const LINEADDRCAPFLAGS_TRANSFERMAKE = &H2000 Global Const LINEADDRCAPFLAGS_CONFERENCEHELD = &H4000 Global Const LINEADDRCAPFLAGS_CONFERENCEMAKE = &H8000 Global Const LINEADDRCAPFLAGS_PARTIALDIAL = &H10000 Global Const LINEADDRCAPFLAGS_FWDSTATUSVALID = &H20000 Global Const LINEADDRCAPFLAGS_FWDINTEXTADDR = &H40000 Global Const LINEADDRCAPFLAGS_FWDBUSYNAADDR = &H80000 Global Const LINEADDRCAPFLAGS_ACCEPTTOALERT = &H100000 Global Const LINEADDRCAPFLAGS_CONFDROP = &H200000 Global Const LINEADDRCAPFLAGS_PICKUPCALLWAIT = &H400000 Global Const LINEADDRCAPFLAGS_PREDICTIVEDIALER = &H800000 'TAPI v2.0 Global Const LINEADDRCAPFLAGS_QUEUE = &H1000000 'TAPI v2.0 Global Const LINEADDRCAPFLAGS_ROUTEPOINT = &H2000000 'TAPI v2.0 Global Const LINEADDRCAPFLAGS_HOLDMAKESNEW = &H4000000 'TAPI v2.0 Global Const LINEADDRCAPFLAGS_NOINTERNALCALLS = &H8000000 'TAPI v2.0 Global Const LINEADDRCAPFLAGS_NOEXTERNALCALLS = &H10000000 'TAPI v2.0 Global Const LINEADDRCAPFLAGS_SETCALLINGID = &H20000000 'TAPI v2.0 Global Const LINEADDRCAPFLAGS_ACDGROUP = &H40000000 'TAPI 3.0 Global Const LINEADDRESSMODE_ADDRESSID = &H1 Global Const LINEADDRESSMODE_DIALABLEADDR = &H2 Global Const LINEADDRESSSHARING_PRIVATE = &H1 Global Const LINEADDRESSSHARING_BRIDGEDEXCL = &H2 Global Const LINEADDRESSSHARING_BRIDGEDNEW = &H4 Global Const LINEADDRESSSHARING_BRIDGEDSHARED = &H8 Global Const LINEADDRESSSHARING_MONITORED = &H10 Global Const LINEADDRESSSTATE_OTHER = &H1 Global Const LINEADDRESSSTATE_DEVSPECIFIC = &H2 Global Const LINEADDRESSSTATE_INUSEZERO = &H4 Global Const LINEADDRESSSTATE_INUSEONE = &H8 Global Const LINEADDRESSSTATE_INUSEMANY = &H10 Global Const LINEADDRESSSTATE_NUMCALLS = &H20 Global Const LINEADDRESSSTATE_FORWARD = &H40 Global Const LINEADDRESSSTATE_TERMINALS = &H80 Global Const LINEADDRESSSTATE_CAPSCHANGE = &H100 Global Const LINEADDRESSTYPE_PHONENUMBER = &H1 'TAPI 3.0 Global Const LINEADDRESSTYPE_SDP = &H2 'TAPI 3.0 Global Const LINEADDRESSTYPE_EMAILNAME = &H4 'TAPI 3.0 Global Const LINEADDRESSTYPE_DOMAINNAME = &H8 'TAPI 3.0 Global Const LINEADDRESSTYPE_IPADDRESS = &H10 'TAPI 3.0 Global Const LINEADDRFEATURE_FORWARD = &H1 Global Const LINEADDRFEATURE_MAKECALL = &H2 Global Const LINEADDRFEATURE_PICKUP = &H4 Global Const LINEADDRFEATURE_SETMEDIACONTROL = &H8 Global Const LINEADDRFEATURE_SETTERMINAL = &H10 Global Const LINEADDRFEATURE_SETUPCONF = &H20 Global Const LINEADDRFEATURE_UNCOMPLETECALL = &H40 Global Const LINEADDRFEATURE_UNPARK = &H80 Global Const LINEADDRFEATURE_PICKUPHELD = &H100 'TAPI v2.0 Global Const LINEADDRFEATURE_PICKUPGROUP = &H200 'TAPI v2.0 Global Const LINEADDRFEATURE_PICKUPDIRECT = &H400 'TAPI v2.0 Global Const LINEADDRFEATURE_PICKUPWAITING = &H800 'TAPI v2.0 Global Const LINEADDRFEATURE_FORWARDFWD = &H1000 'TAPI v2.0 Global Const LINEADDRFEATURE_FORWARDDND = &H2000 'TAPI v2.0 Global Const LINEAGENTFEATURE_SETAGENTGROUP = &H1 'TAPI v2.0 Global Const LINEAGENTFEATURE_SETAGENTSTATE = &H2 'TAPI v2.0 Global Const LINEAGENTFEATURE_SETAGENTACTIVITY = &H4 'TAPI v2.0 Global Const LINEAGENTFEATURE_AGENTSPECIFIC = &H8 'TAPI v2.0 Global Const LINEAGENTFEATURE_GETAGENTACTIVITYLIST = &H10 'TAPI v2.0 Global Const LINEAGENTFEATURE_GETAGENTGROUP = &H20 'TAPI v2.0 Global Const LINEAGENTSTATE_LOGGEDOFF = &H1 'TAPI v2.0 Global Const LINEAGENTSTATE_NOTREADY = &H2 'TAPI v2.0 Global Const LINEAGENTSTATE_READY = &H4 'TAPI v2.0 Global Const LINEAGENTSTATE_BUSYACD = &H8 'TAPI v2.0 Global Const LINEAGENTSTATE_BUSYINCOMING = &H10 'TAPI v2.0 Global Const LINEAGENTSTATE_BUSYOUTBOUND = &H20 'TAPI v2.0 Global Const LINEAGENTSTATE_BUSYOTHER = &H40 'TAPI v2.0 Global Const LINEAGENTSTATE_WORKINGAFTERCALL = &H80 'TAPI v2.0 Global Const LINEAGENTSTATE_UNKNOWN = &H100 'TAPI v2.0 Global Const LINEAGENTSTATE_UNAVAIL = &H200 'TAPI v2.0 Global Const LINEAGENTSTATUS_GROUP = &H1 'TAPI v2.0 Global Const LINEAGENTSTATUS_STATE = &H2 'TAPI v2.0 Global Const LINEAGENTSTATUS_NEXTSTATE = &H4 'TAPI v2.0 Global Const LINEAGENTSTATUS_ACTIVITY = &H8 'TAPI v2.0 Global Const LINEAGENTSTATUS_ACTIVITYLIST = &H10 'TAPI v2.0 Global Const LINEAGENTSTATUS_GROUPLIST = &H20 'TAPI v2.0 Global Const LINEAGENTSTATUS_CAPSCHANGE = &H40 'TAPI v2.0 Global Const LINEAGENTSTATUS_VALIDSTATES = &H80 'TAPI v2.0 Global Const LINEAGENTSTATUS_VALIDNEXTSTATES = &H100 'TAPI v2.0 Global Const LINEAGENTSTATEEX_NOTREADY = &H1 'TAPI v3.0 Global Const LINEAGENTSTATEEX_READY = &H2 'TAPI v3.0 Global Const LINEAGENTSTATEEX_BUSYACD = &H4 'TAPI v3.0 Global Const LINEAGENTSTATEEX_BUSYINCOMING = &H8 'TAPI v3.0 Global Const LINEAGENTSTATEEX_BUSYOUTGOING = &H10 'TAPI v3.0 Global Const LINEAGENTSTATEEX_UNKNOWN = &H20 'TAPI v3.0 Global Const LINEAGENTSTATEEX_RELEASED = &H40 'TAPI v3.0 Global Const LINEAGENTSTATUSEX_NEWAGENT = &H1 'TAPI v3.0 Global Const LINEAGENTSTATUSEX_STATE = &H2 'TAPI v3.0 Global Const LINEAGENTSTATUSEX_UPDATEINFO = &H3 'TAPI v3.0 Global Const LINEAGENTSTATUSEX_DESTROYED = &H4 'TAPI v3.0 Global Const LINEAGENTSESSIONSTATE_NOTREADY = &H1 'TAPI v3.0 Global Const LINEAGENTSESSIONSTATE_READY = &H2 'TAPI v3.0 Global Const LINEAGENTSESSIONSTATE_BUSYONCALL = &H4 'TAPI v3.0 Global Const LINEAGENTSESSIONSTATE_BUSYWRAPUP = &H8 'TAPI v3.0 Global Const LINEAGENTSESSIONSTATE_ENDED = &H10 'TAPI v3.0 Global Const LINEAGENTSESSIONSTATE_RELEASED = &H20 'TAPI v3.0 Global Const LINEAGENTSESSIONSTATUS_NEWSESSION = &H1 'TAPI v3.0 Global Const LINEAGENTSESSIONSTATUS_STATE = &H2 'TAPI v3.0 Global Const LINEAGENTSESSIONSTATUS_UPDATEINFO = &H4 'TAPI v3.0 Global Const LINEAGENTSESSIONSTATUS_DESTROYED = &H8 'TAPI v3.0 Global Const LINEQUEUESTATUS_UPDATEINFO = &H1 'TAPI v3.0 Global Const LINEQUEUESTATUS_NEWQUEUE = &H2 'TAPI v3.0 Global Const LINEQUEUESTATUS_QUEUEREMOVED = &H4 'TAPI v3.0 Global Const LINEGROUPSTATUS_NEWGROUP = &H1 'TAPI v3.0 Global Const LINEGROUPSTATUS_GROUPREMOVED = &H2 'TAPI v3.0 Global Const LINEPROXYSTATUS_OPEN = &H1 'TAPI v3.0 Global Const LINEPROXYSTATUS_CLOSE = &H2 'TAPI v3.0 Global Const LINEPROXYSTATUS_ALLOPENFORACD = &H4 'TAPI v3.0 Global Const LINEANSWERMODE_NONE = &H1 Global Const LINEANSWERMODE_DROP = &H2 Global Const LINEANSWERMODE_HOLD = &H4 Global Const LINEBEARERMODE_VOICE = &H1 Global Const LINEBEARERMODE_SPEECH = &H2 Global Const LINEBEARERMODE_MULTIUSE = &H4 Global Const LINEBEARERMODE_DATA = &H8 Global Const LINEBEARERMODE_ALTSPEECHDATA = &H10 Global Const LINEBEARERMODE_NONCALLSIGNALING = &H20 Global Const LINEBEARERMODE_PASSTHROUGH = &H40 Global Const LINEBEARERMODE_RESTRICTEDDATA = &H80 'TAPI v2.0 Global Const LINEBUSYMODE_STATION = &H1 Global Const LINEBUSYMODE_TRUNK = &H2 Global Const LINEBUSYMODE_UNKNOWN = &H4 Global Const LINEBUSYMODE_UNAVAIL = &H8 Global Const LINECALLCOMPLCOND_BUSY = &H1 Global Const LINECALLCOMPLCOND_NOANSWER = &H2 Global Const LINECALLCOMPLMODE_CAMPON = &H1 Global Const LINECALLCOMPLMODE_CALLBACK = &H2 Global Const LINECALLCOMPLMODE_INTRUDE = &H4 Global Const LINECALLCOMPLMODE_MESSAGE = &H8 Global Const LINECALLFEATURE_ACCEPT = &H1 Global Const LINECALLFEATURE_ADDTOCONF = &H2 Global Const LINECALLFEATURE_ANSWER = &H4 Global Const LINECALLFEATURE_BLINDTRANSFER = &H8 Global Const LINECALLFEATURE_COMPLETECALL = &H10 Global Const LINECALLFEATURE_COMPLETETRANSF = &H20 Global Const LINECALLFEATURE_DIAL = &H40 Global Const LINECALLFEATURE_DROP = &H80 Global Const LINECALLFEATURE_GATHERDIGITS = &H100 Global Const LINECALLFEATURE_GENERATEDIGITS = &H200 Global Const LINECALLFEATURE_GENERATETONE = &H400 Global Const LINECALLFEATURE_HOLD = &H800 Global Const LINECALLFEATURE_MONITORDIGITS = &H1000 Global Const LINECALLFEATURE_MONITORMEDIA = &H2000 Global Const LINECALLFEATURE_MONITORTONES = &H4000 Global Const LINECALLFEATURE_PARK = &H8000 Global Const LINECALLFEATURE_PREPAREADDCONF = &H10000 Global Const LINECALLFEATURE_REDIRECT = &H20000 Global Const LINECALLFEATURE_REMOVEFROMCONF = &H40000 Global Const LINECALLFEATURE_SECURECALL = &H80000 Global Const LINECALLFEATURE_SENDUSERUSER = &H100000 Global Const LINECALLFEATURE_SETCALLPARAMS = &H200000 Global Const LINECALLFEATURE_SETMEDIACONTROL = &H400000 Global Const LINECALLFEATURE_SETTERMINAL = &H800000 Global Const LINECALLFEATURE_SETUPCONF = &H1000000 Global Const LINECALLFEATURE_SETUPTRANSFER = &H2000000 Global Const LINECALLFEATURE_SWAPHOLD = &H4000000 Global Const LINECALLFEATURE_UNHOLD = &H8000000 Global Const LINECALLFEATURE_RELEASEUSERUSERINFO = &H10000000 Global Const LINECALLFEATURE_SETTREATMENT = &H20000000 'TAPI v2.0 Global Const LINECALLFEATURE_SETQOS = &H40000000 'TAPI v2.0 Global Const LINECALLFEATURE_SETCALLDATA = &H80000000 'TAPI v2.0 Global Const LINECALLFEATURE2_NOHOLDCONFERENCE = &H1 'TAPI v2.0 Global Const LINECALLFEATURE2_ONESTEPTRANSFER = &H2 'TAPI v2.0 Global Const LINECALLFEATURE2_COMPLCAMPON = &H4 'TAPI v2.0 Global Const LINECALLFEATURE2_COMPLCALLBACK = &H8 'TAPI v2.0 Global Const LINECALLFEATURE2_COMPLINTRUDE = &H10 'TAPI v2.0 Global Const LINECALLFEATURE2_COMPLMESSAGE = &H20 'TAPI v2.0 Global Const LINECALLFEATURE2_TRANSFERNORM = &H40 'TAPI v2.0 Global Const LINECALLFEATURE2_TRANSFERCONF = &H80 'TAPI v2.0 Global Const LINECALLFEATURE2_PARKDIRECT = &H100 'TAPI v2.0 Global Const LINECALLFEATURE2_PARKNONDIRECT = &H200 'TAPI v2.0 Global Const LINECALLHUBTRACKING_NONE = &H0 'TAPI v3.0 Global Const LINECALLHUBTRACKING_PROVIDERLEVEL = &H1 'TAPI v3.0 Global Const LINECALLHUBTRACKING_ALLCALLS = &H2 'TAPI v3.0 Global Const LINECALLINFOSTATE_OTHER = &H1 Global Const LINECALLINFOSTATE_DEVSPECIFIC = &H2 Global Const LINECALLINFOSTATE_BEARERMODE = &H4 Global Const LINECALLINFOSTATE_RATE = &H8 Global Const LINECALLINFOSTATE_MEDIAMODE = &H10 Global Const LINECALLINFOSTATE_APPSPECIFIC = &H20 Global Const LINECALLINFOSTATE_CALLID = &H40 Global Const LINECALLINFOSTATE_RELATEDCALLID = &H80 Global Const LINECALLINFOSTATE_ORIGIN = &H100 Global Const LINECALLINFOSTATE_REASON = &H200 Global Const LINECALLINFOSTATE_COMPLETIONID = &H400 Global Const LINECALLINFOSTATE_NUMOWNERINCR = &H800 Global Const LINECALLINFOSTATE_NUMOWNERDECR = &H1000 Global Const LINECALLINFOSTATE_NUMMONITORS = &H2000 Global Const LINECALLINFOSTATE_TRUNK = &H4000 Global Const LINECALLINFOSTATE_CALLERID = &H8000 Global Const LINECALLINFOSTATE_CALLEDID = &H10000 Global Const LINECALLINFOSTATE_CONNECTEDID = &H20000 Global Const LINECALLINFOSTATE_REDIRECTIONID = &H40000 Global Const LINECALLINFOSTATE_REDIRECTINGID = &H80000 Global Const LINECALLINFOSTATE_DISPLAY = &H100000 Global Const LINECALLINFOSTATE_USERUSERINFO = &H200000 Global Const LINECALLINFOSTATE_HIGHLEVELCOMP = &H400000 Global Const LINECALLINFOSTATE_LOWLEVELCOMP = &H800000 Global Const LINECALLINFOSTATE_CHARGINGINFO = &H1000000 Global Const LINECALLINFOSTATE_TERMINAL = &H2000000 Global Const LINECALLINFOSTATE_DIALPARAMS = &H4000000 Global Const LINECALLINFOSTATE_MONITORMODES = &H8000000 Global Const LINECALLINFOSTATE_TREATMENT = &H10000000 'TAPI v2.0 Global Const LINECALLINFOSTATE_QOS = &H20000000 'TAPI v2.0 Global Const LINECALLINFOSTATE_CALLDATA = &H40000000 'TAPI v2.0 Global Const LINECALLORIGIN_OUTBOUND = &H1 Global Const LINECALLORIGIN_INTERNAL = &H2 Global Const LINECALLORIGIN_EXTERNAL = &H4 Global Const LINECALLORIGIN_UNKNOWN = &H10 Global Const LINECALLORIGIN_UNAVAIL = &H20 Global Const LINECALLORIGIN_CONFERENCE = &H40 Global Const LINECALLORIGIN_INBOUND = &H80 Global Const LINECALLPARAMFLAGS_SECURE = &H1 Global Const LINECALLPARAMFLAGS_IDLE = &H2 Global Const LINECALLPARAMFLAGS_BLOCKID = &H4 Global Const LINECALLPARAMFLAGS_ORIGOFFHOOK = &H8 Global Const LINECALLPARAMFLAGS_DESTOFFHOOK = &H10 Global Const LINECALLPARAMFLAGS_NOHOLDCONFERENCE = &H20 'TAPI v2.0 Global Const LINECALLPARAMFLAGS_PREDICTIVEDIAL = &H40 'TAPI v2.0 Global Const LINECALLPARAMFLAGS_ONESTEPTRANSFER = &H80 'TAPI v2.0 Global Const LINECALLPARTYID_BLOCKED = &H1 Global Const LINECALLPARTYID_OUTOFAREA = &H2 Global Const LINECALLPARTYID_NAME = &H4 Global Const LINECALLPARTYID_ADDRESS = &H8 Global Const LINECALLPARTYID_PARTIAL = &H10 Global Const LINECALLPARTYID_UNKNOWN = &H20 Global Const LINECALLPARTYID_UNAVAIL = &H40 Global Const LINECALLPRIVILEGE_NONE = &H1 Global Const LINECALLPRIVILEGE_MONITOR = &H2 Global Const LINECALLPRIVILEGE_OWNER = &H4 Global Const LINECALLREASON_DIRECT = &H1 Global Const LINECALLREASON_FWDBUSY = &H2 Global Const LINECALLREASON_FWDNOANSWER = &H4 Global Const LINECALLREASON_FWDUNCOND = &H8 Global Const LINECALLREASON_PICKUP = &H10 Global Const LINECALLREASON_UNPARK = &H20 Global Const LINECALLREASON_REDIRECT = &H40 Global Const LINECALLREASON_CALLCOMPLETION = &H80 Global Const LINECALLREASON_TRANSFER = &H100 Global Const LINECALLREASON_REMINDER = &H200 Global Const LINECALLREASON_UNKNOWN = &H400 Global Const LINECALLREASON_UNAVAIL = &H800 Global Const LINECALLREASON_INTRUDE = &H1000 Global Const LINECALLREASON_PARKED = &H2000 Global Const LINECALLREASON_CAMPEDON = &H4000 'TAPI v2.0 Global Const LINECALLREASON_ROUTEREQUEST = &H8000 'TAPI v2.0 Global Const LINECALLSELECT_LINE = &H1 Global Const LINECALLSELECT_ADDRESS = &H2 Global Const LINECALLSELECT_CALL = &H4 Global Const LINECALLSTATE_IDLE = &H1 Global Const LINECALLSTATE_OFFERING = &H2 Global Const LINECALLSTATE_ACCEPTED = &H4 Global Const LINECALLSTATE_DIALTONE = &H8 Global Const LINECALLSTATE_DIALING = &H10 Global Const LINECALLSTATE_RINGBACK = &H20 Global Const LINECALLSTATE_BUSY = &H40 Global Const LINECALLSTATE_SPECIALINFO = &H80 Global Const LINECALLSTATE_CONNECTED = &H100 Global Const LINECALLSTATE_PROCEEDING = &H200 Global Const LINECALLSTATE_ONHOLD = &H400 Global Const LINECALLSTATE_CONFERENCED = &H800 Global Const LINECALLSTATE_ONHOLDPENDCONF = &H1000 Global Const LINECALLSTATE_ONHOLDPENDTRANSF = &H2000 Global Const LINECALLSTATE_DISCONNECTED = &H4000 Global Const LINECALLSTATE_UNKNOWN = &H8000 Global Const LINECALLTREATMENT_SILENCE = &H1 'TAPI v2.0 Global Const LINECALLTREATMENT_RINGBACK = &H2 'TAPI v2.0 Global Const LINECALLTREATMENT_BUSY = &H3 'TAPI v2.0 Global Const LINECALLTREATMENT_MUSIC = &H4 'TAPI v2.0 Global Const LINECARDOPTION_PREDEFINED = &H1 'TAPI v1.4 NEW Global Const LINECARDOPTION_HIDDEN = &H2 'TAPI v1.4 NEW Global Const LINECONNECTEDMODE_ACTIVE = &H1 Global Const LINECONNECTEDMODE_INACTIVE = &H2 Global Const LINECONNECTEDMODE_ACTIVEHELD = &H4 'TAPI v2.0 Global Const LINECONNECTEDMODE_INACTIVEHELD = &H8 'TAPI v2.0 Global Const LINECONNECTEDMODE_CONFIRMED = &H10 'TAPI v2.0 Global Const LINEOFFERINGMODE_ACTIVE = &H1 Global Const LINEOFFERINGMODE_INACTIVE = &H2 Global Const LINEDEVCAPFLAGS_CROSSADDRCONF = &H1 Global Const LINEDEVCAPFLAGS_HIGHLEVCOMP = &H2 Global Const LINEDEVCAPFLAGS_LOWLEVCOMP = &H4 Global Const LINEDEVCAPFLAGS_MEDIACONTROL = &H8 Global Const LINEDEVCAPFLAGS_MULTIPLEADDR = &H10 Global Const LINEDEVCAPFLAGS_CLOSEDROP = &H20 Global Const LINEDEVCAPFLAGS_DIALBILLING = &H40 Global Const LINEDEVCAPFLAGS_DIALQUIET = &H80 Global Const LINEDEVCAPFLAGS_DIALDIALTONE = &H100 Global Const LINEDEVCAPFLAGS_MSP = &H200 'TAPI v3.0 Global Const LINEDEVCAPFLAGS_PARTICIPANTINFO = &H400 'TAPI v3.0 Global Const LINEDEVCAPFLAGS_CALLHUB = &H800 'TAPI v3.0 Global Const LINEDEVCAPFLAGS_CALLHUBTRACKING = &H1000 'TAPI v3.0 Global Const LINEDEVCAPFLAGS_PRIVATEOBJECTS = &H2000 'TAPI v3.0 Global Const LINEDEVSTATE_OTHER = &H1 Global Const LINEDEVSTATE_RINGING = &H2 Global Const LINEDEVSTATE_CONNECTED = &H4 Global Const LINEDEVSTATE_DISCONNECTED = &H8 Global Const LINEDEVSTATE_MSGWAITON = &H10 Global Const LINEDEVSTATE_MSGWAITOFF = &H20 Global Const LINEDEVSTATE_INSERVICE = &H40 Global Const LINEDEVSTATE_OUTOFSERVICE = &H80 Global Const LINEDEVSTATE_MAINTENANCE = &H100 Global Const LINEDEVSTATE_OPEN = &H200 Global Const LINEDEVSTATE_CLOSE = &H400 Global Const LINEDEVSTATE_NUMCALLS = &H800 Global Const LINEDEVSTATE_NUMCOMPLETIONS = &H1000 Global Const LINEDEVSTATE_TERMINALS = &H2000 Global Const LINEDEVSTATE_ROAMMODE = &H4000 Global Const LINEDEVSTATE_BATTERY = &H8000 Global Const LINEDEVSTATE_SIGNAL = &H10000 Global Const LINEDEVSTATE_DEVSPECIFIC = &H20000 Global Const LINEDEVSTATE_REINIT = &H40000 Global Const LINEDEVSTATE_LOCK = &H80000 Global Const LINEDEVSTATE_CAPSCHANGE = &H100000 Global Const LINEDEVSTATE_CONFIGCHANGE = &H200000 Global Const LINEDEVSTATE_TRANSLATECHANGE = &H400000 Global Const LINEDEVSTATE_COMPLCANCEL = &H800000 Global Const LINEDEVSTATE_REMOVED = &H1000000 Global Const LINEDEVSTATUSFLAGS_CONNECTED = &H1 Global Const LINEDEVSTATUSFLAGS_MSGWAIT = &H2 Global Const LINEDEVSTATUSFLAGS_INSERVICE = &H4 Global Const LINEDEVSTATUSFLAGS_LOCKED = &H8 Global Const LINEDIALTONEMODE_NORMAL = &H1 Global Const LINEDIALTONEMODE_SPECIAL = &H2 Global Const LINEDIALTONEMODE_INTERNAL = &H4 Global Const LINEDIALTONEMODE_EXTERNAL = &H8 Global Const LINEDIALTONEMODE_UNKNOWN = &H10 Global Const LINEDIALTONEMODE_UNAVAIL = &H20 Global Const LINEDIGITMODE_PULSE = &H1 Global Const LINEDIGITMODE_DTMF = &H2 Global Const LINEDIGITMODE_DTMFEND = &H4 Global Const LINEDISCONNECTMODE_NORMAL = &H1 Global Const LINEDISCONNECTMODE_UNKNOWN = &H2 Global Const LINEDISCONNECTMODE_REJECT = &H4 Global Const LINEDISCONNECTMODE_PICKUP = &H8 Global Const LINEDISCONNECTMODE_FORWARDED = &H10 Global Const LINEDISCONNECTMODE_BUSY = &H20 Global Const LINEDISCONNECTMODE_NOANSWER = &H40 Global Const LINEDISCONNECTMODE_BADADDRESS = &H80 Global Const LINEDISCONNECTMODE_UNREACHABLE = &H100 Global Const LINEDISCONNECTMODE_CONGESTION = &H200 Global Const LINEDISCONNECTMODE_INCOMPATIBLE = &H400 Global Const LINEDISCONNECTMODE_UNAVAIL = &H800 Global Const LINEDISCONNECTMODE_NODIALTONE = &H1000 Global Const LINEDISCONNECTMODE_NUMBERCHANGED = &H2000 'TAPI v2.0 Global Const LINEDISCONNECTMODE_OUTOFORDER = &H4000 'TAPI v2.0 Global Const LINEDISCONNECTMODE_TEMPFAILURE = &H8000 'TAPI v2.0 Global Const LINEDISCONNECTMODE_QOSUNAVAIL = &H10000 'TAPI v2.0 Global Const LINEDISCONNECTMODE_BLOCKED = &H20000 'TAPI v2.0 Global Const LINEDISCONNECTMODE_DONOTDISTURB = &H40000 'TAPI v2.0 Global Const LINEDISCONNECTMODE_CANCELLED = &H80000 'TAPI v2.0 Global Const LINE_ERROR_DEVICE = &HAAAAAAAA Global Const LINEERR_ALLOCATED = &H80000001 Global Const LINEERR_BADDEVICEID = &H80000002 Global Const LINEERR_BEARERMODEUNAVAIL = &H80000003 Global Const LINEERR_CALLUNAVAIL = &H80000005 Global Const LINEERR_COMPLETIONOVERRUN = &H80000006 Global Const LINEERR_CONFERENCEFULL = &H80000007 Global Const LINEERR_DIALBILLING = &H80000008 Global Const LINEERR_DIALDIALTONE = &H80000009 Global Const LINEERR_DIALPROMPT = &H8000000A Global Const LINEERR_DIALQUIET = &H8000000B Global Const LINEERR_INCOMPATIBLEAPIVERSION = &H8000000C Global Const LINEERR_INCOMPATIBLEEXTVERSION = &H8000000D Global Const LINEERR_INIFILECORRUPT = &H8000000E Global Const LINEERR_INUSE = &H8000000F Global Const LINEERR_INVALADDRESS = &H80000010 Global Const LINEERR_INVALADDRESSID = &H80000011 Global Const LINEERR_INVALADDRESSMODE = &H80000012 Global Const LINEERR_INVALADDRESSSTATE = &H80000013 Global Const LINEERR_INVALAPPHANDLE = &H80000014 Global Const LINEERR_INVALAPPNAME = &H80000015 Global Const LINEERR_INVALBEARERMODE = &H80000016 Global Const LINEERR_INVALCALLCOMPLMODE = &H80000017 Global Const LINEERR_INVALCALLHANDLE = &H80000018 Global Const LINEERR_INVALCALLPARAMS = &H80000019 Global Const LINEERR_INVALCALLPRIVILEGE = &H8000001A Global Const LINEERR_INVALCALLSELECT = &H8000001B Global Const LINEERR_INVALCALLSTATE = &H8000001C Global Const LINEERR_INVALCALLSTATELIST = &H8000001D Global Const LINEERR_INVALCARD = &H8000001E Global Const LINEERR_INVALCOMPLETIONID = &H8000001F Global Const LINEERR_INVALCONFCALLHANDLE = &H80000020 Global Const LINEERR_INVALCONSULTCALLHANDLE = &H80000021 Global Const LINEERR_INVALCOUNTRYCODE = &H80000022 Global Const LINEERR_INVALDEVICECLASS = &H80000023 Global Const LINEERR_INVALDEVICEHANDLE = &H80000024 Global Const LINEERR_INVALDIALPARAMS = &H80000025 Global Const LINEERR_INVALDIGITLIST = &H80000026 Global Const LINEERR_INVALDIGITMODE = &H80000027 Global Const LINEERR_INVALDIGITS = &H80000028 Global Const LINEERR_INVALEXTVERSION = &H80000029 Global Const LINEERR_INVALGROUPID = &H8000002A Global Const LINEERR_INVALLINEHANDLE = &H8000002B Global Const LINEERR_INVALLINESTATE = &H8000002C Global Const LINEERR_INVALLOCATION = &H8000002D Global Const LINEERR_INVALMEDIALIST = &H8000002E Global Const LINEERR_INVALMEDIAMODE = &H8000002F Global Const LINEERR_INVALMESSAGEID = &H80000030 Global Const LINEERR_INVALPARAM = &H80000032 Global Const LINEERR_INVALPARKID = &H80000033 Global Const LINEERR_INVALPARKMODE = &H80000034 Global Const LINEERR_INVALPOINTER = &H80000035 Global Const LINEERR_INVALPRIVSELECT = &H80000036 Global Const LINEERR_INVALRATE = &H80000037 Global Const LINEERR_INVALREQUESTMODE = &H80000038 Global Const LINEERR_INVALTERMINALID = &H80000039 Global Const LINEERR_INVALTERMINALMODE = &H8000003A Global Const LINEERR_INVALTIMEOUT = &H8000003B Global Const LINEERR_INVALTONE = &H8000003C Global Const LINEERR_INVALTONELIST = &H8000003D Global Const LINEERR_INVALTONEMODE = &H8000003E Global Const LINEERR_INVALTRANSFERMODE = &H8000003F Global Const LINEERR_LINEMAPPERFAILED = &H80000040 Global Const LINEERR_NOCONFERENCE = &H80000041 Global Const LINEERR_NODEVICE = &H80000042 Global Const LINEERR_NODRIVER = &H80000043 Global Const LINEERR_NOMEM = &H80000044 Global Const LINEERR_NOREQUEST = &H80000045 Global Const LINEERR_NOTOWNER = &H80000046 Global Const LINEERR_NOTREGISTERED = &H80000047 Global Const LINEERR_OPERATIONFAILED = &H80000048 Global Const LINEERR_OPERATIONUNAVAIL = &H80000049 Global Const LINEERR_RATEUNAVAIL = &H8000004A Global Const LINEERR_RESOURCEUNAVAIL = &H8000004B Global Const LINEERR_REQUESTOVERRUN = &H8000004C Global Const LINEERR_STRUCTURETOOSMALL = &H8000004D Global Const LINEERR_TARGETNOTFOUND = &H8000004E Global Const LINEERR_TARGETSELF = &H8000004F Global Const LINEERR_UNINITIALIZED = &H80000050 Global Const LINEERR_USERUSERINFOTOOBIG = &H80000051 Global Const LINEERR_REINIT = &H80000052 Global Const LINEERR_ADDRESSBLOCKED = &H80000053 Global Const LINEERR_BILLINGREJECTED = &H80000054 Global Const LINEERR_INVALFEATURE = &H80000055 Global Const LINEERR_NOMULTIPLEINSTANCE = &H80000056 Global Const LINEERR_INVALAGENTID = &H80000057 'TAPI v2.0 Global Const LINEERR_INVALAGENTGROUP = &H80000058 'TAPI v2.0 Global Const LINEERR_INVALPASSWORD = &H80000059 'TAPI v2.0 Global Const LINEERR_INVALAGENTSTATE = &H8000005A 'TAPI v2.0 Global Const LINEERR_INVALAGENTACTIVITY = &H8000005B 'TAPI v2.0 Global Const LINEERR_DIALVOICEDETECT = &H8000005C 'TAPI v2.0 Global Const LINEFEATURE_DEVSPECIFIC = &H1 Global Const LINEFEATURE_DEVSPECIFICFEAT = &H2 Global Const LINEFEATURE_FORWARD = &H4 Global Const LINEFEATURE_MAKECALL = &H8 Global Const LINEFEATURE_SETMEDIACONTROL = &H10 Global Const LINEFEATURE_SETTERMINAL = &H20 Global Const LINEFEATURE_SETDEVSTATUS = &H40 'TAPI v2.0 Global Const LINEFEATURE_FORWARDFWD = &H80 'TAPI v2.0 Global Const LINEFEATURE_FORWARDDND = &H100 'TAPI v2.0 Global Const LINEFORWARDMODE_UNCOND = &H1 Global Const LINEFORWARDMODE_UNCONDINTERNAL = &H2 Global Const LINEFORWARDMODE_UNCONDEXTERNAL = &H4 Global Const LINEFORWARDMODE_UNCONDSPECIFIC = &H8 Global Const LINEFORWARDMODE_BUSY = &H10 Global Const LINEFORWARDMODE_BUSYINTERNAL = &H20 Global Const LINEFORWARDMODE_BUSYEXTERNAL = &H40 Global Const LINEFORWARDMODE_BUSYSPECIFIC = &H80 Global Const LINEFORWARDMODE_NOANSW = &H100 Global Const LINEFORWARDMODE_NOANSWINTERNAL = &H200 Global Const LINEFORWARDMODE_NOANSWEXTERNAL = &H400 Global Const LINEFORWARDMODE_NOANSWSPECIFIC = &H800 Global Const LINEFORWARDMODE_BUSYNA = &H1000 Global Const LINEFORWARDMODE_BUSYNAINTERNAL = &H2000 Global Const LINEFORWARDMODE_BUSYNAEXTERNAL = &H4000 Global Const LINEFORWARDMODE_BUSYNASPECIFIC = &H8000 Global Const LINEFORWARDMODE_UNKNOWN = &H10000 Global Const LINEFORWARDMODE_UNAVAIL = &H20000 Global Const LINEGATHERTERM_BUFFERFULL = &H1 Global Const LINEGATHERTERM_TERMDIGIT = &H2 Global Const LINEGATHERTERM_FIRSTTIMEOUT = &H4 Global Const LINEGATHERTERM_INTERTIMEOUT = &H8 Global Const LINEGATHERTERM_CANCEL = &H10 Global Const LINEGENERATETERM_DONE = &H1 Global Const LINEGENERATETERM_CANCEL = &H2 ' These constants are mutually exclusive - there's no way to specify more ' than one at a time (and it doesn't make sense, either) so they're ' ordinal rather than bits. Global Const LINEINITIALIZEEXOPTION_USEHIDDENWINDOW = &H1 ' TAPI v2.0 Global Const LINEINITIALIZEEXOPTION_USEEVENT = &H2 ' TAPI v2.0 Global Const LINEINITIALIZEEXOPTION_USECOMPLETIONPORT = &H3 ' TAPI v2.0 Global Const LINEINITIALIZEEXOPTION_CALLHUBTRACKING = &H80000000 'TAPI v3.0 Global Const LINEMAPPER = &HFFFF Global Const LINEMEDIACONTROL_NONE = &H1 Global Const LINEMEDIACONTROL_START = &H2 Global Const LINEMEDIACONTROL_RESET = &H4 Global Const LINEMEDIACONTROL_PAUSE = &H8 Global Const LINEMEDIACONTROL_RESUME = &H10 Global Const LINEMEDIACONTROL_RATEUP = &H20 Global Const LINEMEDIACONTROL_RATEDOWN = &H40 Global Const LINEMEDIACONTROL_RATENORMAL = &H80 Global Const LINEMEDIACONTROL_VOLUMEUP = &H100 Global Const LINEMEDIACONTROL_VOLUMEDOWN = &H200 Global Const LINEMEDIACONTROL_VOLUMENORMAL = &H400 Global Const LINEMEDIAMODE_UNKNOWN = &H2 Global Const LINEMEDIAMODE_INTERACTIVEVOICE = &H4 Global Const LINEMEDIAMODE_AUTOMATEDVOICE = &H8 Global Const LINEMEDIAMODE_DATAMODEM = &H10 Global Const LINEMEDIAMODE_G3FAX = &H20 Global Const LINEMEDIAMODE_TDD = &H40 Global Const LINEMEDIAMODE_G4FAX = &H80 Global Const LINEMEDIAMODE_DIGITALDATA = &H100 Global Const LINEMEDIAMODE_TELETEX = &H200 Global Const LINEMEDIAMODE_VIDEOTEX = &H400 Global Const LINEMEDIAMODE_TELEX = &H800 Global Const LINEMEDIAMODE_MIXED = &H1000 Global Const LINEMEDIAMODE_ADSI = &H2000 Global Const LINEMEDIAMODE_VOICEVIEW = &H4000 Global Const LINEMEDIAMODE_VIDEO = &H8000 'TAPI v2.1 Global Const LAST_LINEMEDIAMODE = &H8000 Global Const LINEOPENOPTION_SINGLEADDRESS = &H80000000 'TAPI v2.0 Global Const LINEOPENOPTION_PROXY = &H40000000 'TAPI v2.0 Global Const LINEPARKMODE_DIRECTED = &H1 Global Const LINEPARKMODE_NONDIRECTED = &H2 Global Const LINEPROXYREQUEST_SETAGENTGROUP = &H1 'TAPI v2.0 Global Const LINEPROXYREQUEST_SETAGENTSTATE = &H2 'TAPI v2.0 Global Const LINEPROXYREQUEST_SETAGENTACTIVITY = &H3 'TAPI v2.0 Global Const LINEPROXYREQUEST_GETAGENTCAPS = &H4 'TAPI v2.0 Global Const LINEPROXYREQUEST_GETAGENTSTATUS = &H5 'TAPI v2.0 Global Const LINEPROXYREQUEST_AGENTSPECIFIC = &H6 'TAPI v2.0 Global Const LINEPROXYREQUEST_GETAGENTACTIVITYLIST = &H7 'TAPI v2.0 Global Const LINEPROXYREQUEST_GETAGENTGROUPLIST = &H8 'TAPI v2.0 Global Const LINEPROXYREQUEST_CREATEAGENT = &H9 'TAPI v3.0 Global Const LINEPROXYREQUEST_SETAGENTMEASUREMENTPERIOD = &HA 'TAPI v3.0 Global Const LINEPROXYREQUEST_GETAGENTINFO = &HB 'TAPI v3.0 Global Const LINEPROXYREQUEST_CREATEAGENTSESSION = &HC 'TAPI v3.0 Global Const LINEPROXYREQUEST_GETAGENTSESSIONLIST = &HD 'TAPI v3.0 Global Const LINEPROXYREQUEST_SETAGENTSESSIONSTATE = &HE 'TAPI v3.0 Global Const LINEPROXYREQUEST_GETAGENTSESSIONINFO = &HF 'TAPI v3.0 Global Const LINEPROXYREQUEST_GETQUEUELIST = &H10 'TAPI v3.0 Global Const LINEPROXYREQUEST_SETQUEUEMEASUREMENTPERIOD = &H11 'TAPI v3.0 Global Const LINEPROXYREQUEST_GETQUEUEINFO = &H12 'TAPI v3.0 Global Const LINEPROXYREQUEST_GETGROUPLIST = &H13 'TAPI v3.0 Global Const LINEPROXYREQUEST_SETAGENTSTATEEX = &H14 'TAPI v3.0 Global Const LINEREMOVEFROMCONF_NONE = &H1 Global Const LINEREMOVEFROMCONF_LAST = &H2 Global Const LINEREMOVEFROMCONF_ANY = &H3 Global Const LINEREQUESTMODE_MAKECALL = &H1 Global Const LINEREQUESTMODE_MEDIACALL = &H2 Global Const LINEREQUESTMODE_DROP = &H4 Global Const LAST_LINEREQUESTMODE = &H2 Global Const LINEROAMMODE_UNKNOWN = &H1 Global Const LINEROAMMODE_UNAVAIL = &H2 Global Const LINEROAMMODE_HOME = &H4 Global Const LINEROAMMODE_ROAMA = &H8 Global Const LINEROAMMODE_ROAMB = &H10 Global Const LINESPECIALINFO_NOCIRCUIT = &H1 Global Const LINESPECIALINFO_CUSTIRREG = &H2 Global Const LINESPECIALINFO_REORDER = &H4 Global Const LINESPECIALINFO_UNKNOWN = &H8 Global Const LINESPECIALINFO_UNAVAIL = &H10 Global Const LINETERMDEV_PHONE = &H1 Global Const LINETERMDEV_HEADSET = &H2 Global Const LINETERMDEV_SPEAKER = &H4 Global Const LINETERMMODE_BUTTONS = &H1 Global Const LINETERMMODE_LAMPS = &H2 Global Const LINETERMMODE_DISPLAY = &H4 Global Const LINETERMMODE_RINGER = &H8 Global Const LINETERMMODE_HOOKSWITCH = &H10 Global Const LINETERMMODE_MEDIATOLINE = &H20 Global Const LINETERMMODE_MEDIAFROMLINE = &H40 Global Const LINETERMMODE_MEDIABIDIRECT = &H80 Global Const LINETERMSHARING_PRIVATE = &H1 Global Const LINETERMSHARING_SHAREDEXCL = &H2 Global Const LINETERMSHARING_SHAREDCONF = &H4 Global Const LINETONEMODE_CUSTOM = &H1 Global Const LINETONEMODE_RINGBACK = &H2 Global Const LINETONEMODE_BUSY = &H4 Global Const LINETONEMODE_BEEP = &H8 Global Const LINETONEMODE_BILLING = &H10 Global Const LINETRANSFERMODE_TRANSFER = &H1 Global Const LINETRANSFERMODE_CONFERENCE = &H2 Global Const LINETOLLLISTOPTION_ADD = &H1 Global Const LINETOLLLISTOPTION_REMOVE = &H2 Global Const LINETRANSLATEOPTION_CARDOVERRIDE = &H1 Global Const LINETRANSLATEOPTION_CANCELCALLWAITING = &H2 Global Const LINETRANSLATEOPTION_FORCELOCAL = &H4 Global Const LINETRANSLATEOPTION_FORCELD = &H8 Global Const LINETRANSLATERESULT_CANONICAL = &H1 Global Const LINETRANSLATERESULT_INTERNATIONAL = &H2 Global Const LINETRANSLATERESULT_LONGDISTANCE = &H4 Global Const LINETRANSLATERESULT_LOCAL = &H8 Global Const LINETRANSLATERESULT_INTOLLLIST = &H10 Global Const LINETRANSLATERESULT_NOTINTOLLLIST = &H20 Global Const LINETRANSLATERESULT_DIALBILLING = &H40 Global Const LINETRANSLATERESULT_DIALQUIET = &H80 Global Const LINETRANSLATERESULT_DIALDIALTONE = &H100 Global Const LINETRANSLATERESULT_DIALPROMPT = &H200 Global Const LINETRANSLATERESULT_VOICEDETECT = &H400 'TAPI v2.0 Global Const LINELOCATIONOPTION_PULSEDIAL = &H1 Global Const PHONEFEATURE_GETBUTTONINFO = &H1 ' TAPI v2.0 Global Const PHONEFEATURE_GETDATA = &H2 ' TAPI v2.0 Global Const PHONEFEATURE_GETDISPLAY = &H4 ' TAPI v2.0 Global Const PHONEFEATURE_GETGAINHANDSET = &H8 ' TAPI v2.0 Global Const PHONEFEATURE_GETGAINSPEAKER = &H10 ' TAPI v2.0 Global Const PHONEFEATURE_GETGAINHEADSET = &H20 ' TAPI v2.0 Global Const PHONEFEATURE_GETHOOKSWITCHHANDSET = &H40 ' TAPI v2.0 Global Const PHONEFEATURE_GETHOOKSWITCHSPEAKER = &H80 ' TAPI v2.0 Global Const PHONEFEATURE_GETHOOKSWITCHHEADSET = &H100 ' TAPI v2.0 Global Const PHONEFEATURE_GETLAMP = &H200 ' TAPI v2.0 Global Const PHONEFEATURE_GETRING = &H400 ' TAPI v2.0 Global Const PHONEFEATURE_GETVOLUMEHANDSET = &H800 ' TAPI v2.0 Global Const PHONEFEATURE_GETVOLUMESPEAKER = &H1000 ' TAPI v2.0 Global Const PHONEFEATURE_GETVOLUMEHEADSET = &H2000 ' TAPI v2.0 Global Const PHONEFEATURE_SETBUTTONINFO = &H4000 ' TAPI v2.0 Global Const PHONEFEATURE_SETDATA = &H8000 ' TAPI v2.0 Global Const PHONEFEATURE_SETDISPLAY = &H10000 ' TAPI v2.0 Global Const PHONEFEATURE_SETGAINHANDSET = &H20000 ' TAPI v2.0 Global Const PHONEFEATURE_SETGAINSPEAKER = &H40000 ' TAPI v2.0 Global Const PHONEFEATURE_SETGAINHEADSET = &H80000 ' TAPI v2.0 Global Const PHONEFEATURE_SETHOOKSWITCHHANDSET = &H100000 ' TAPI v2.0 Global Const PHONEFEATURE_SETHOOKSWITCHSPEAKER = &H200000 ' TAPI v2.0 Global Const PHONEFEATURE_SETHOOKSWITCHHEADSET = &H400000 ' TAPI v2.0 Global Const PHONEFEATURE_SETLAMP = &H800000 ' TAPI v2.0 Global Const PHONEFEATURE_SETRING = &H1000000 ' TAPI v2.0 Global Const PHONEFEATURE_SETVOLUMEHANDSET = &H2000000 ' TAPI v2.0 Global Const PHONEFEATURE_SETVOLUMESPEAKER = &H4000000 ' TAPI v2.0 Global Const PHONEFEATURE_SETVOLUMEHEADSET = &H8000000 ' TAPI v2.0 Global Const PHONEINITIALIZEEXOPTION_USEHIDDENWINDOW = &H1 'TAPI v2.0 Global Const PHONEINITIALIZEEXOPTION_USEEVENT = &H2 'TAPI v2.0 Global Const PHONEINITIALIZEEXOPTION_USECOMPLETIONPORT = &H3 'TAPI v2.0 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Const BIF_RETURNONLYFSDIRS = 1 Public Const BIF_DONTGOBELOWDOMAIN = 2 Public Const MAX_PATH = 260 Declare Function SHBrowseForFolder Lib _ "shell32" (lpbi As BrowseInfo) As Long Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList _ As Long, ByVal lpBuffer As String) As Long Declare Function lstrcat Lib "kernel32" _ Alias "lstrcatA" (ByVal lpString1 As String, ByVal _ lpString2 As String) As Long Public Type BrowseInfo hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public lDocumentCount As Long
وبعدها ندرج بالمشروع فورم من نوع
MDIFORM ونسمية FRMMAIN
ونضع له MENU
ونضع sbStatusBar
وخلفية ان امكن
ونكتب في GENERAL
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
وفي الكود التالي يتم بفتح البرنامج اتوماتيك او ما يشتغل الجهاز وهو اختياري أن أحببت
Public Sub RunWhenStartup(ProgramName As String, ProgramPath As String) Dim hKey As Long Dim Ret As Long ' فتح المفتاح المطلوب Ret = RegOpenKeyEx(HKLM, RunPath, 0, KEY_ALL_ACCESS, hKey) ' إنشاء قيمة جديدة بإسم البرنامج وعنوانه. Ret = RegSetValueEx(hKey, ProgramName, 0&, 1, ProgramPath, Len(ProgramPath)) 'LenB(StrConv(TheData, vbFromUnicode)) + 1) ' إغلاق المفتاح RegCloseKey hKey End Sub
ثم نعمل مديول آخر أو في نفس المديول السابق Module ونكتب الشفرة التالية .
Option Explicit Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As Any, phkResult As Long, lpdwDisposition As Long) As Long Private Const READ_CONTROL = &H20000 Private Const KEY_QUERY_VALUE = &H1 Private Const KEY_SET_VALUE = &H2 Private Const KEY_CREATE_SUB_KEY = &H4 Private Const KEY_ENUMERATE_SUB_KEYS = &H8 Private Const KEY_NOTIFY = &H10 Private Const KEY_CREATE_LINK = &H20 Private Const KEY_READ = KEY_QUERY_VALUE + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + READ_CONTROL Private Const KEY_WRITE = KEY_SET_VALUE + KEY_CREATE_SUB_KEY + READ_CONTROL Private Const KEY_EXECUTE = KEY_READ Private Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL Private Const RunPath = "Software\Microsoft\Windows\CurrentVersion\Run\" Private Const HKLM = &H80000002 ' استخدم الامر التالي لالغاء التشغيل التلقائي Public Sub DoNotRun(ProgramName As String) Dim hKey As Long Dim Ret As Long ' فتح المفتاح المطلوب Ret = RegOpenKeyEx(HKLM, RunPath, 0, KEY_ALL_ACCESS, hKey) ' حذفها من مسجل النظام. Ret = RegDeleteValue(hKey, ProgramName) ' إغلاق المفتاح RegCloseKey hKey End Sub Public Sub RunWhenStartup(ProgramName As String, ProgramPath As String) Dim hKey As Long Dim Ret As Long ' فتح المفتاح المطلوب Ret = RegOpenKeyEx(HKLM, RunPath, 0, KEY_ALL_ACCESS, hKey) ' إنشاء قيمة جديدة بإسم البرنامج وعنوانه. Ret = RegSetValueEx(hKey, ProgramName, 0&, 1, ProgramPath, Len(ProgramPath)) 'LenB(StrConv(TheData, vbFromUnicode)) + 1) ' إغلاق المفتاح RegCloseKey hKey End Sub[CODE] __________________
وهذه الشيفرة خاصة بحفظ التغيرات عند الخروج من البرنامج
يوضع في الفورم FRMMAIN
Private Sub MDIForm_Unload(Cancel As Integer) If Me.WindowState <> vbMinimized Then SaveSetting App.Title, "Settings", "MainLeft", Me.Left SaveSetting App.Title, "Settings", "MainTop", Me.Top SaveSetting App.Title, "Settings", "MainWidth", Me.Width SaveSetting App.Title, "Settings", "MainHeight", Me.Height End If End Sub
هذا الكود خاص بـ MENU
Private Sub mnureport_Click()
frmreports.Show
End Sub
Private Sub mnuWindowTileVertical_Click()
Me.Arrange vbTileVertical
End Sub
Private Sub mnuWindowTileHorizontal_Click()
Me.Arrange vbTileHorizontal
End Sub
Private Sub mnuWindowCascade_Click()
Me.Arrange vbCascade
End Sub
Private Sub mnuHelpAbout_Click()
frmSplash.Show vbModal
End Sub
Private Sub mnuHelpSearchForHelpOn_Click()
Dim nRet As Integer
'if there is no helpfile for this project display a message to the user
'you can set the HelpFile for your application in the
'Project Properties dialog
If Len(App.HelpFile) = 0 Then
MsgBox "Unable to display Help Contents. There is no Help associated with this project.", vbInformation, Me.Caption
Else
On Error Resume Next
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0)
If Err Then
MsgBox Err.Description
End If
End If
End Sub
Private Sub mnuHelpContents_Click()
Dim nRet As Integer
'if there is no helpfile for this project display a message to the user
'you can set the HelpFile for your application in the
'Project Properties dialog
If Len(App.HelpFile) = 0 Then
MsgBox "Unable to display Help Contents. There is no Help associated with this project.", vbInformation, Me.Caption
Else
On Error Resume Next
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)
If Err Then
MsgBox Err.Description
End If
End If
End Sub
Private Sub mnuToolsmnurestore_Click()
Shell App.Path & "\" & "RestoreData.exe"
End Sub
Private Sub mnuToolsmnubackup_Click()
frmpackup.Show vbModal
End Sub
Private Sub mnuViewmnudel_Click()
frmdel.Show vbModal
End Sub
Private Sub mnuViewmnubrows_Click()
frmbrowse.Show vbModal
End Sub
Private Sub mnuFilemnuexit_Click()
Dim XN
XN = MsgBox("سيتم إغلاق البرنامج هل أنت متأكد؟", vbYesNo + vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام MTC لادارة كبائن الاتصالات ")
If XN = vbYes Then
End
Else
Exit Sub
End If
End Sub
Private Sub mnuFilemnuprice_Click()
frmprice.Show vbModal
End Sub
Private Sub mnuFilemnuconnect_Click()
LoadNewDoc
End Sub****************************************
وسنكمل فيما بعد طريقة صنع فورم خاص بعمل نسخة احتياطية لقاعدة البيانات
