VB/VB.NET
文章平均质量分 74
electricperi
这个作者很懒,什么都没留下…
展开
-
[原创]一个取系统驱动器名称的类模块
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 阅读 · 0 评论 -
让图片适应屏幕大小[原创代码]
**************************************** 功能:让图片适应屏幕大小 名称:AdaptScrn() 参数:Px,Py 图像宽高 返回:Px,Py 注意是地址传递 **************************************** Public Sub AdaptScrn(ByRef Px, ByRef Py) Dim x, y As原创 2005-12-28 00:33:00 · 2517 阅读 · 0 评论 -
拉幕效果出现的窗体
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Lon原创 2006-05-11 12:39:00 · 1074 阅读 · 0 评论 -
屏幕右下角浮出式小消息窗口,透明式消失
任务栏高度[此部分相关代码转载自 枕善居]Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Lo原创 2006-05-13 14:52:00 · 1854 阅读 · 0 评论 -
初涉VB.NET入门级代码积累
[代码1]说明:这就是取消关闭的事件,执行对窗体退出方面的控制。其中没见过的只有Dispose()这个方法,MSDN里看到是释放某托管对象的应用,还不了解。日后懂了再记录于此。 Protected Overloads Overrides Sub OnClosing(ByVal e As System.ComponentModel.CancelEventArgs) e原创 2006-12-04 17:45:00 · 1575 阅读 · 0 评论 -
[原创]生成几种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 · 1029 阅读 · 0 评论 -
用VB6操纵Excel文档执行操作
通过VBA操纵Excel很容易,其实可以实现任何Excel里的操作。 Dim ex As Object Dim exwbook As Object Create file Set ex = CreateObject("Excel.Application") Set exwbook = ex.Workbooks().Add Open file原创 2007-05-01 13:38:00 · 5175 阅读 · 2 评论 -
[原创]VB程序 - 处理字符和文件名称的代码模块
*************************************************************************名称:GetRowNum()说明:获取指定字符串中内容有多少列调用格式:GetRowNum("Source String"[,"Mark char"])参数: SStr - 源字串 [MarkS] - 字符型,可选,默认为",",原创 2005-12-17 13:35:00 · 1605 阅读 · 0 评论