Option Strict Off
Option Explicit On
'------------------------------------ 2023/11/09 ------------------------------------
Module AppBas
    '********************************************************************************
    Public Const app傾僾儕僞僀僩儖 As String = "僂儘僂儘"
    Public Const app僿儖僾僼傽僀儖 As String = "UrouroHelp.html"
    Public Const app傾僀僐儞儕僗僩夋憸僼傽僀儖 As String = "傾僀僐儞儕僗僩夋憸.bmp"
    Public Const app傾僀僐儞儕僗僩夋憸僼傽僀儖DEF As String = "傾僀僐儞儕僗僩夋憸DEF.bmp"
    '********************************************************************************
    Public Const app僇乕僪孮椞堟嵟彫僒僀僘 As Integer = 700 '僇乕僪偑嶵偐傟傞椞堟偺嵟彫抣丅
    '********************************************************************************
    Public gm傾僾儕屌桳僋儔僗 As 屲clsUrouroPoipoi = Nothing '2022/0812  懠偺傾僾儕偱嫟桳僋儔僗傪巊梡偡傞偨傔偺僄僀儕傾僗
    '********************************************************************************
    '拲堄丂偙偺娍帤偺僨乕僞乕偺曄峏偼嬛巭丅曄峏偡傞偲僄儔乕偑弌傞応崌偑偁傞 2017/12/05
    Public Const gc娍帤暥帤 As String = "垷垻埉埑埖埥埨埲埳埵埶埻堛堜堝堧堭堯報場堷塂塃塅塇塉塊塏塒塖塢塩塰塱塸塿墄墌増墛墧墬墭" & "墯墰墲墳墴墹壂壊壋壒壓壔壖壗壚壛壜壨壩壴夘夛夞夣夵奃奅奓奜奰奺奼奿妀妏妛妜妢妶姁姅姞姠" & "姧姰姱姳姽娋娒娖娛娞娵娷娸娾婇婋婒婖婘婥婦婩婰媄媑媗媝媡媢媣媤媥媦媧媨媩媭媮媰媶媽媿嫀" & "嫄嫋嫑嫗嫙嫟嫢嫨嫷嫸嫹嬄嬊嬋嬍嬎嬒嬓嬕嬟嬤嬨嬪嬫嬯嬶嬻孁孅孊孨孭孴孻孼孾宆宍宎宩宯宻寀" & "寁寍寚寛寠寣實寧審寪將尋尒尦尨尪尫尯尵屆屇屌屍屓屗屘屲屳屵屶屷岊岎岝岞岟岡岥岦岪岲岴岶" & "岺岻岾峀峅峈峌峐峑峕峖峛峠峫峴峹崁崅崋崌崕崗崘崙崟崫崬崯崰崱崲崺嵅嵍嵒嵓嵖嵞嵥嵭嵱嵶嵼" & "嵽嶃嶇嶌嶐嶗嶜嶥嶮嶰嶲嶳巇巈巉巊巌巎巐巑巓巕巗巙巚巜巟巪巬巭巵巹巺巿帄帢帣帤帥師帯帵帹" & "幊幍幎幐幣幨幮幰庁庂広庒庡庣庤庨庱庴庺廁廂廆廈廍廐廙廧廩廫廬廯恏廽弌弎弡弰張弶強彆彈彉" & "彙彚彫彮彯彲彴彽徆徏徖徚徢徧徫徯徰忋忎忕忢忦忨忩忬怓怟怢怣怱怷怽恄恇恈恎恏恖恗恘恠帺幃" & "恾悂悆悈悊悪悺悽惂惄惇惈惉惌惎惓惖惗惡惣惸惻惾愃愄愅愇愒愗愘愙愜愝愩愬愭愮愯愳愹愻愼慜" & "慡慱慸慽慾憃憇憊憗憟憡憪憫憰憱憲憿懀懃懄懇懌懎懖懘懚懞懠懡懢懤懨懪懱懳懸懹戙戜戝戩戭戯" & "戰戱戲戸扅扏扐扖扝扟扥扨扲扴扷扺扽抁抍抜抝択抦抧抮抳抾拋拑拞拠拡拤拪拰拲拵拹挋挌挍挕挗" & "挰挻挿捑捒捛捪捬捯捸捾捿掁掅掑掓掕掗掙掛掜掶揃懸揇揑揓揘揟揤揦揬揰揱揷揻搆搇搑搚搣搤搥" & "搧搯搳搷摂摉摋摎摙摛摝摨摪摯摶摿撈撌撍撏撓撛撣撧撪撫撯擆擇擈擉擊擋擏擓擔擕擖擛擟擠擡擨" & "擭擮擲擳擵擸攂攆攇攈攎攐攓攕攖攚攛攞攧攩攲攺攼攽敀敂敆敒敜敡敤敧敪敯敳敽敾敿斀斅斆斈斊" & "斲斳斵斸斾旂旍旕旵旻旾昁昍昐昘昞昡昩昪昳昹晄晅晇晍晎晐晜晝晞晧晫晲晹晻暁暈暐暓暔暘暡暥" & "暩暫暯暲暷暸暿曅曈曉曎曐曕曡曣曪曫曮曻曽朁朄朏朚朢朣朥朧朰朲朼杊杋杒朰杚杤杮杴枀枃枅枍" & "枖枛枠枩枴枹枻柇柉柎柕柤柦柧柪柶柺栁栂栄栒栘栚栜栠栧栨栫栬栭栱栴栵栶栺栿桘桟桭桳桼桽" & "梊梋梌梒梔梕梞梡梤梷梺棃棇棎棏棙棛棦棫棳椀椆椉椏椓椙椡椦椷椻楀楃楍楎楥楯楽榁榋榏榓榞"
    '********************************************************************************
    Private Const mm婰崋 As String = "仜仦仩仮仱仠仧仭仯仴仚仢仐仈亹仒亸仛仸仏仌仹噴噷亄亅亇亊亐亖亗亙亜亝亞亾乛乢乤乥乧亣亪亯亰嘆嘇嘊嘋嘍嘐嘑嘒嘓嘔嘕嘖嘗嘙嘚嘜嘝嘠嘡嘢" & "嘷嘸嘺嘼嘽嘾噀噁噃噄噇噦噧噭噊噋噏噐噑噒噓亷仺仼仾伀噮噯噰噲噳噡噸噹噺亼亽伂伕伖伜伝伡伣伨伩伻伾佀佁佂佄佢嚇嚈佦佪佫佭佮佱佲併佷佸佹佺佽嚀侌侎侓" '137
    Public Const gc婰崋 As String = mm婰崋 & mm婰崋 & mm婰崋 & mm婰崋 & mm婰崋 & mm婰崋 '822 chr
    '********************************************************************************
    Public Const mm僇僫偐側 As String = "偁傾偄僀偆僂偊僄偍僆偐僇偒僉偔僋偗働偙僐偝僒偟僔偡僗偣僙偦僜偨僞偪僠偮僣偰僥偲僩側僫偵僯偸僰偹僱偺僲" & "偼僴傂僸傆僼傊僿傎儂傑儅傒儈傓儉傔儊傕儌傜儔傝儕傞儖傟儗傠儘傗儎備儐傛儓傢傪傫" '89 chr
    Public Const gc僇僫偐側 As String = mm僇僫偐側 & mm僇僫偐側 & mm僇僫偐側 & mm僇僫偐側 & mm僇僫偐側 & mm僇僫偐側 & mm僇僫偐側 & mm僇僫偐側 & mm僇僫偐側 & mm僇僫偐側 '890 chr
    '********************************************************************************
    Public Const mm偑側僈僫 As String = "偁傾偄僀偆僂偊僄偍僆偐僇偒僉偔僋偗働偙僐偝僒偟僔偡僗偣僙偦僜偨僞偪僠偮僣偰僥偲僩側僫偵僯偸僰偹僱偺僲" & "偼僴傂僸傆僼傊僿傎儂傑儅傒儈傓儉傔儊傕儌傜儔傝儕傞儖傟儗傠儘傗儎備儐傛儓傢儚傪儝傫儞乕乣" & "偀偂偅偉偋偑偓偖偘偛偞偠偢偤偧偩偫偯偳偽傃傇傋傏傁傄傉傌傐傖傘傚偭傽傿僁僃僅僈僊僌僎僑僓僕僘僛僝僟僡僤僨僪僶價僽儀儃僷僺僾儁億儍儏儑僢亀亁" '163 chr
    Public Const gc偑側僈僫 As String = mm偑側僈僫 & mm偑側僈僫 & mm偑側僈僫 & mm偑側僈僫 & mm偑側僈僫 & mm偑側僈僫 '978 chr
    '********************************************************************************
    Public Const mm塸帤悢帤 As String = "俙倎俛倐俠們俢倓俤倕俥倖俧倗俫倛俬倝俰倞俲倠俴倢俵倣俶値俷倧俹倫俻倯俼倰俽倱俿倲倀倳倁倴倂倵倃倶倄倷倅倸" & "侽侾俀俁係俆俇俈俉俋丠両兛兝兞兟兠兡兣兤兦內兩兪兯兲兺兾兿冃冄円冇冊冋冎" & "儮儲儵儸儺儼兂兊兌凙凞凢凣処凩凱刉刌刐刓刕刜刞嘥嘦嘨嘩嘪嘫嘮嘯嘰嘳" '121chr
    Public Const gc塸帤悢帤 As String = mm塸帤悢帤 & mm塸帤悢帤 & mm塸帤悢帤 & mm塸帤悢帤 & mm塸帤悢帤 & mm塸帤悢帤 & mm塸帤悢帤 '847 chr
    '********************************************************************************
    Public Const gcHelpFileFONTcss As String = "HelpHTML\仭儐乕僓乕偍岲傒彂懱愝掕仭.css"
    Public Const gcHelpFile As String = "HelpHTML\UrouroHelp.html"
    '********************************************************************************
    Public Const app妏搙偐傜儔僕傾儞傊偺曄姺悢 As Double = 3.14159 / 180
    '********************************************************************************
    Public gm僎乕儉幚峴奐巒 As Boolean = False
    Public gm僂儘僂儘億僀億僀幚峴拞_FormReSize As Boolean = False
    Public gFormUnLoadDone As Boolean = False
    Public gm僗僀僗僀幚峴拞 As Boolean = False '嶰fCardGameDlgTimeLabel丂傪嫟梡偡傞偨傔偺僟儈乕
    Public gm僞僀儅乕掆巭偡傞 As Boolean = False
    Public Const gcForm嵟彫僒僀僘暆 As Integer = 900
    Public Const gcForm嵟彫僒僀僘崅 As Integer = 600

    Public gmDoEvents僎乕儉儖乕僾撪偱屇傃弌偟拞 As Boolean = False
    Public gm僨僶僢僌梡偺堦帪僐乕僪傪桳岠偵偡傞 As Boolean = False

End Module


