- 博客(5)
- 资源 (10)
- 收藏
- 关注
原创 让图片适应屏幕大小[原创代码]
**************************************** 功能:让图片适应屏幕大小 名称:AdaptScrn() 参数:Px,Py 图像宽高 返回:Px,Py 注意是地址传递 **************************************** Public Sub AdaptScrn(ByRef Px, ByRef Py) Dim x, y As
2005-12-28 00:33:00 2517
原创 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 1560
原创 [原创]生成几种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 1028
原创 [原创]一个取系统驱动器名称的类模块
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 1060
原创 [原创]VB程序 - 处理字符和文件名称的代码模块
*************************************************************************名称:GetRowNum()说明:获取指定字符串中内容有多少列调用格式:GetRowNum("Source String"[,"Mark char"])参数: SStr - 源字串 [MarkS] - 字符型,可选,默认为",",
2005-12-17 13:35:00 1605
Div+CSS建站 基础例程
2008-12-03
The MD5 Message-Digest Algorithm
2008-09-06
桌面时钟源代码
2007-11-21
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人