设置窗体形状

Option Explicit
Public Declare Function CreateEllipticRgn Lib “GDI32” (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function SetWindowRgn Lib “user32” (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Public Declare Function CreatePolygonRgn Lib “GDI32” (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long

Public Type POINTAPI
X As Long
Y As Long
End Type

Public Sub RoundForm()
Dim hRgn As Long, lRes As Long
‘圆形窗体
hRgn = CreateEllipticRgn(30, 24, 456, 450)
lRes = SetWindowRgn(Me.hWnd, hRgn, True)
End Sub
Public Sub CrossForm()
Dim hRgn As Long, lRes As Long
Dim pNode() As POINTAPI
ReDim pNode(11) As POINTAPI
‘十字窗体
pNode(0).X = 156
pNode(0).Y = 42
pNode(1).X = 329
pNode(1).Y = 42
pNode(2).X = 329
pNode(2).Y = 154
pNode(3).X = 439
pNode(3).Y = 154
pNode(4).X = 439
pNode(4).Y = 317
pNode(5).X = 329
pNode(5).Y = 317
pNode(6).X = 329
pNode(6).Y = 429
pNode(7).X = 156
pNode(7).Y = 429
pNode(8).X = 156
pNode(8).Y = 317
pNode(9).X = 46
pNode(9).Y = 317
pNode(10).X = 46
pNode(10).Y = 154
pNode(11).X = 156
pNode(11).Y = 154
hRgn = CreatePolygonRgn(pNode(0), 12, 2)
lRes = SetWindowRgn(Me.hWnd, hRgn, True)
End Sub

与韩荆州书

李白(唐)

  白闻天下谈士相聚而言曰:“生不用封万户侯,但愿一识韩荆州。”何令人之景慕,一至于此耶!岂不以有周公之风,躬吐握之事,使海内豪俊,奔走而归之,一登龙门,则声价十倍!所以龙蟠凤逸之士,皆欲收名定价于君侯。愿君侯不以富贵而骄之、寒贱而忽之,则三千之中有毛遂,使白得颖脱而出,即其人焉。

  白,陇西布衣,流落楚、汉。十五好剑术,遍干诸侯。三十成文章,历抵卿相。虽长不满七尺,而心雄万夫。皆王公大人许与气义。此畴曩心迹,安敢不尽于君侯哉!

  君侯制作侔神明,德行动天地,笔参造化,学究天人。幸愿开张心颜,不以长揖见拒。必若接之以高宴,纵之以清谈,请日试万言,倚马可待。今天下以君侯为文章之司命,人物之权衡,一经品题,便作佳士。而君侯何惜阶前盈尺之地,不使白扬眉吐气,激昂青云耶?

  昔王子师为豫州,未下车,即辟荀慈明,既下车,又辟孔文举;山涛作冀州,甄拔三十余人,或为侍中、尚书,先代所美。而君侯亦荐一严协律,入为秘书郎,中间崔宗之、房习祖、黎昕、许莹之徒,或以才名见知,或以清白见赏。白每观其衔恩抚躬,忠义奋发,以此感激,知君侯推赤心于诸贤腹中,所以不归他人,而愿委身国士。傥急难有用,敢效微躯。

  且人非尧舜,谁能尽善?白谟猷筹画,安能自矜?至于制作,积成卷轴,则欲尘秽视听。恐雕虫小技,不合大人。若赐观刍荛,请给纸墨,兼之书人,然后退扫闲轩,缮写呈上。庶青萍、结绿,长价于薛、卞之门。幸推下流,大开奖饰,惟君侯图之。

祭侄文稿

颜真卿(唐)

维乾元元年,岁次戊戌九月庚午朔三日壬辰,第十三(“从父”涂去)叔银青光禄(脱“大”字)夫使持节、蒲州诸军事、蒲州刺史、上轻车都尉、丹杨县开国侯真卿,以清酌庶羞,祭于亡侄赠赞善大夫季明之灵。惟尔挺生,夙标幼德,宗庙瑚琏,阶庭兰玉,(“方凭积善”涂去)每慰人心,方期戬谷,何图逆贼闲衅,称兵犯顺,尔父竭诚,(“□制”涂去,改“被胁”再涂去)常山作郡。余时受命,亦在平原。仁兄爱我,(“恐”涂去)俾尔传言,尔既归止,爰开门。土门既开,凶威大蹙(“贼臣拥众不救”涂去)。贼臣不(“拥”涂去)救,孤城围逼,父(“擒”涂去)陷子死,巢倾卵覆。天不悔祸,谁为荼毒。念尔遘残,百身何赎。呜呼哀哉。吾承天泽,移牧河关。(“河东近”涂去)泉明比者,再陷常山,(“提”涂去)携尔首榇,及兹同还。(“亦自常山”涂去)抚念摧切,震悼心颜,方俟远日,(涂去二字不辨)卜(再涂一字亦不辨)尔(“尔之”涂去)幽宅(“相”涂去)魂而有知无嗟久客。

呜呼哀哉。尚飨。

祭十二郎文

韩愈(唐)

  年、月、日,季父愈闻汝丧之七日,乃能衔哀致诚,使建中远具时羞之奠,告汝十二郎之灵:

  呜呼!吾少孤,及长,不省所怙,惟兄嫂是依。中年兄殁南方,吾与汝俱幼,从嫂归葬河阳。既又与汝就食江南,零丁孤苦,未尝一日相离也。吾上有三兄,皆不幸早世。承先人后者,在孙惟汝,在子惟吾。两世一身,形单影只。嫂尝抚汝指吾而言曰:“韩氏两世,惟此而已!”汝时尤小,当不复记忆;吾时虽能记忆,亦未知其言之悲也。

  吾年十九,始来京城。其后四年,而归视汝。又四年,吾往河阳省坟墓,遇汝从嫂丧来葬。又二年,吾佐董丞相于汴州,汝来省吾,止一岁,请归取其孥。明年,丞相薨,吾去汴州,汝不果来。是年,吾佐戎徐州,使取汝者始行,吾又罢去,汝又不果来。吾念汝从于东,东亦客也,不可以久;图久远者,莫如西归,将成家而致汝。呜呼!孰谓汝遽去吾而殁乎!吾与汝俱少年,以为虽暂相别,终当久相与处。故舍汝而旅食京师,以求斗斛之禄。诚知其如此,虽万乘之公相,吾不以一日辍汝而就也。

  去年,孟东野往,吾书与汝曰:“吾年未四十,而视茫茫,而发苍苍,而齿牙动摇。念诸父与诸兄,皆康强而早世,如吾之衰者,其能久存乎?吾不可去,汝不肯来,恐旦暮死,而汝抱无涯之戚也。”孰谓少者殁而长者存,强者夭而病者全乎?

  呜呼!其信然邪?其梦邪?其传之非其真邪?信也,吾兄之盛德而夭其嗣乎?汝之纯明而不克蒙其泽乎?少者强者而夭殁,长者衰者而存全乎?未可以为信也!梦也,传之非其真也,东野之书,耿兰之报,何为而在吾侧也?呜呼!其信然矣!吾兄之盛德而夭其嗣矣,汝之纯明宜业其家者,不克蒙其泽矣。所谓天者诚难测,而神者诚难明矣。所谓理者不可推,而寿者不可知矣。

  虽然,吾自今年来,苍苍者或化而为白矣;动摇者或脱而落矣,毛血日益衰,志气日益微,几何不从汝而死也?死而有知,其几何离?其无知,悲不几时,而不悲者无穷期矣。

  汝之子始十岁,吾之子始五岁,少而强者不可保,如此孩提者,又可冀其成立邪?呜呼哀哉!呜呼哀哉!

  汝去年书云:“比得软脚病,往往而剧。”吾曰:“是疾也,江南之人,常常有之。”未始以为忧也。呜呼, 其竟以此而殒其生乎?抑别有疾而至斯极乎?

  汝之书,六月十七日也;东野云,汝殁以六月二日;耿兰之报无月日。盖东野之使者不知问家人以月日,如耿兰之报,不知当言月日。东野与吾书,乃问使者,使者妄称以应之乎。其然乎?其不然乎?

  今吾使建中祭汝,吊汝之孤与汝之乳母。彼有食可守,以待终丧,则待终丧而取以来;如不能守以终丧,则遂取以来。其余奴婢,并令守汝丧。吾力能改葬,终葬汝于先人之兆,然后惟其所愿。

  呜呼!汝病吾不知时,汝殁吾不知日,生不能相养以共居,殁不能抚汝以尽哀,敛不凭其棺,窆不临其穴。吾行负神明,而使汝夭。不孝不慈,而不得与汝相养以生,相守以死。一在天之涯,一在地之角,生而影不与吾形相依,死而魂不与吾梦相接,吾实为之,其又何尤!彼苍者天,曷其有极!自今已往,吾其无意于人世矣!当求数顷之田于伊、颍之上,以待余年。教吾子与汝子,幸其成;长吾女与汝女,待其嫁,如此而已。

  呜呼,言有穷而情不可终,汝其知也邪?其不知也邪?呜呼哀哉!尚飨!

陈情表

李密(西晋)

  臣密言:臣以险衅,夙遭闵凶。生孩六月,慈父见背;行年四岁,舅夺母志。祖母刘愍臣孤弱,躬亲抚养。臣少多疾病,九岁不行,零丁孤苦,至于成立。既无伯叔,终鲜兄弟,门衰祚薄,晚有儿息。外无期功强近之亲,内无应门五尺之僮,茕茕孑立,形影相吊。而刘夙婴疾病,常在床蓐,臣侍汤药,未曾废离。(悯 一作:愍;孑立 一作:独立)

  逮奉圣朝,沐浴清化。前太守臣逵察臣孝廉;后刺史臣荣举臣秀才。臣以供养无主,辞不赴命。诏书特下,拜臣郎中,寻蒙国恩,除臣洗马。猥以微贱,当侍东宫,非臣陨首所能上报。臣具以表闻,辞不就职。诏书切峻,责臣逋慢;郡县逼迫,催臣上道;州司临门,急于星火。臣欲奉诏奔驰,则刘病日笃,欲苟顺私情,则告诉不许。臣之进退,实为狼狈。

  伏惟圣朝以孝治天下,凡在故老,犹蒙矜育,况臣孤苦,特为尤甚。且臣少仕伪朝,历职郎署,本图宦达,不矜名节。今臣亡国贱俘,至微至陋,过蒙拔擢,宠命优渥,岂敢盘桓,有所希冀!但以刘日薄西山,气息奄奄,人命危浅,朝不虑夕。臣无祖母,无以至今日,祖母无臣,无以终余年。母孙二人,更相为命,是以区区不能废远。

  臣密今年四十有四,祖母今年九十有六,是臣尽节于陛下之日长,报养刘之日短也。乌鸟私情,愿乞终养。臣之辛苦,非独蜀之人士及二州牧伯所见明知,皇天后土实所共鉴。愿陛下矜悯愚诚,听臣微志,庶刘侥幸,保卒余年。臣生当陨首,死当结草。臣不胜犬马怖惧之情,谨拜表以闻。