- 博客(5)
- 资源 (10)
- 收藏
- 关注
RSS订阅原创 让图片适应屏幕大小[原创代码]
**************************************** 功能：让图片适应屏幕大小 名称：AdaptScrn() 参数：Px,Py 图像宽高 返回：Px,Py 注意是地址传递 **************************************** Public Sub AdaptScrn(ByRef Px, ByRef Py) Dim x, y As
2005-12-28 00:33:00
2497
原创 MAZE(C Language)
#include #include #include #include #define ESC 0x1b #define UP 0x48 #define DOWN 0x50 #define LEFT 0x4b #define RIGHT 0x4d void maze(int x,int y,int style); void draw(void); int specialkey(void); voi
2005-12-28 00:25:00
1524
原创 [原创]生成几种WEB图形字体对照表
Private Sub Form_Load() Dim str(10) As String str(1) = "webdings" str(2) = "Wingdings" str(3) = "Wingdings 2" str(4) = "Wingdings 3" Open "c:/ImageChar.htm" For Output As #1 -------------------------
2005-12-20 22:39:00
1006
原创 [原创]一个取系统驱动器名称的类模块
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As LongPrivate Declare Function GetDriveType Lib
2005-12-17 13:52:00
1044
原创 [原创]VB程序 - 处理字符和文件名称的代码模块
*************************************************************************名称：GetRowNum()说明：获取指定字符串中内容有多少列调用格式：GetRowNum("Source String"[,"Mark char"])参数： SStr - 源字串 [MarkS] - 字符型，可选，默认为","，
2005-12-17 13:35:00
1588
Div＋CSS建站 基础例程
2008-12-03
The MD5 Message-Digest Algorithm
2008-09-06
桌面时钟源代码
2007-11-21
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人