设置窗体形状

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

柳子厚墓志铭

韩愈(唐)

子厚讳宗元。七世祖庆,为拓跋魏侍中,封济阴公。曾伯祖奭(shi读四声),为唐宰相,与褚遂良、韩瑗俱得罪武后,死高宗朝。皇考讳镇,以事母弃太常博士,求为县 令江南。其后以不能媚权贵,失御史; 权贵人死,乃复拜侍御史,号为刚直。所与游皆当世名人。

子厚少精敏,无不通达。逮其父时,虽少年已自成人,能取进士第,崭然见头角。众谓柳氏有子矣。其后以博学宏词授集贤殿正字,隽杰廉悍,议论证据今古,出入经史百子,踔(chuo读一声)厉风发,率常屈其座人,名声大振,一时皆慕与之交。诸公要人争欲令出我门下,交口荐誉之。贞元十九年,由蓝田尉拜监察御史。顺宗即位,拜礼部员外郎。遇用事者得罪,例出为刺史。未至,又例贬永州司马。

居闲益自刻苦,务记览为词章, 泛滥停蓄,为深博无涯涘(si读四声),而自肆于山水间。元和中,尝例召至京师,又偕出为刺史,而子厚得柳州。既至 , 叹曰:“是岂不足为政邪!”因其土俗,为设教禁,州人顺赖。其俗以男女质钱,约不时赎,子本相侔(mou读二声),则没为奴婢。子厚与设方计,悉令赎归。其尤贫力不能者,令书其佣 , 足相当 , 则使归其质。观察使下其法于他州,比一岁,免而归者且千人。衡湘以南为进士者,皆以子厚为师。其经承子厚口讲指画为文词者,悉有法度可观。

其召至京师而复为刺史也,中山刘梦得禹锡亦在遣中,当诣播州。子厚泣曰:“播州非人所居,而梦得亲在堂。吾不忍梦得之穷, 无辞以白其大人,且万无母子俱往理。”请于朝,将拜疏,愿以柳易播,虽重得罪,死不恨。遇有以梦得事白上者 ,梦得于是改刺连州。呜呼! 士穷乃见节义。今夫平居里巷相慕悦,酒食游戏相征逐,诩诩强笑语以相取下,握手出肺肝相示, 指天日涕泣, 誓生死不相背负, 真若可信。一旦临小利害, 仅如毛发比, 反眼若不相识;落陷阱不一引手救,反挤之,又下石焉者,皆是也。此宜禽兽夷狄所不忍为,而其人自视以为得计。闻子厚之风 , 亦可以少愧矣!

子厚前时少年,勇于为人,不自贵重顾藉,谓功业可立就,故坐废退。既退,又无相知有气力得位者推挽,故卒死于穷裔,材不为世用,道不行于时也。使子厚在台省时,自持其身,已能如司马、剌史时,亦自不斥 ;斥时,有人力能举之,且必复用不穷。然子厚斥不久,穷不极,虽有出于人,其文学辞章,必不能自力以致必传于后,如今无疑也。虽使子厚得所愿,为将相于一时,以彼易此,孰得孰失,必有能辨之者。

子厚以元和十四年十一月八日卒,年四十七。以十五年七月十日归葬万年先人墓侧。子厚有子男二人,长日周六,始四岁,季曰周七,子厚卒乃生; 女子二人,皆幼。其得归葬也,费皆出观察使河东裴君行立。行立有节概,重然诺,与子厚结交,子厚亦为之尽,竟赖其力。葬子厚于万年之墓者,舅弟卢遵。遵,涿人,性谨顺,学问不厌。自子厚之斥,遵从而家焉,逮其死不去。既往葬子厚,又将经纪其家,庶几有始终者,铭曰:是惟子厚之室,既固既安,以利其嗣人。

与韩荆州书

李白(唐)

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

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

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

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

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

祭侄文稿

颜真卿(唐)

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

呜呼哀哉。尚飨。

祭十二郎文

韩愈(唐)

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

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

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

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

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

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

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

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

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

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

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

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