- 博客(4)
- 收藏
- 关注
RSS订阅原创 多如牛毛，乱迷人眼
这是一个啥都多如牛毛的年代。八九十年代，以我的孤陋寡闻，搞书法的，只一个启功，那清秀劲挺书风，就激心动情。还有一个陈天然，苍劲老辣，极富视觉震撼。音乐的，只一个那邓丽君，耳朵就足够的舒服。再加上毛阿敏、刘欢，足矣！几首唐诗宋词，基本就打发住了我。 我似乎不是奢求的人，欲望不多。 如今，书法新人、音乐新星、诗人作家，蜂拥而出，多如牛毛，让人目不暇接，困乏了眼睛
2016-03-08 22:30:42
345
原创 VB6为报表盖电子图章
图中右下角是电子图章，VB代码如下： Dim shp As Object Dim DZTZ As String DZTZ = ThisWorkbook.Path & "\" & "YWTJTZ.JPG" If Dir(DZTZ) = "" Then MsgBox "目录下没有电子图章。", vbInformation, "提示"
2016-03-08 18:54:34
728
1
原创 delphi使用VB的dictionary对象
var Dict:Variant; n,ncount,i:byte; kArr,iArr:array of variant; Ts,Ts2:TStringList; kv,iv,FGF:string;procedure TForm1.Button1Click(Sender: TObject);begin Dic
2016-03-08 18:18:13
530
原创 delphi2010泛型练习
{ 本单元使用 TDictionary 练习测试 }TMyGrid = class(TStringgrid);{能使用整行删除}uses StrUtils, { 使用函数必须在此 添加 strUtils } Generics.Collections; {Delphi 泛型容器单元}var Dict: TDictionary; {定义一个
2016-03-08 14:22:20
534
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人