- 博客(11)
- 收藏
- 关注
原创 下拉列表索引
Option ExplicitPrivate Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)Private Const CB_SHOWDROPDOWN = &H
2006-04-25 09:17:00 1438
原创 用PING示例
模块代码:Public MyIP As StringPrivate Const IP_SUCCESS As Long = 0Private Const IP_STATUS_BASE As Long = 11000Private Const IP_BUF_TOO_SMALL As Long = (11000 + 1)Private Const IP_DEST_NET_UNREACHABLE A
2006-04-25 09:14:00 734
原创 取得右边文件名
With CommonDialog1 .ShowOpen If .FileName Text1.Text = Right(.FileName, InStrRev(.FileName, "/")end ifEnd With
2006-04-22 11:50:00 551
原创 检测window版本
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As LongPrivate Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion
2006-04-18 17:52:00 708
原创 vb实现透明窗体
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"
2006-04-18 17:48:00 1158
原创 调用水晶报表
推荐vb6中如何调用水晶报表9做的报表引用ado及crystal report9 activex designer design time library(internal) 使用控件 crystal report viewer contral priver sub form_load() dim strsql as string Dim i As Integer dim capp As New
2006-04-18 11:20:00 849
原创 实现超级连接
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory
2006-04-18 11:18:00 612
原创 在数据库中添加图片
添加两个按钮,一个image控件注意:Access中的photo字段类型为OLE对象.SqlServer中的photo字段类型为Image** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本‘2.5版本以下不支持Stream对象Dim iConcstr As StringDim iConc As ADODB.Connection
2006-04-18 11:16:00 3121
原创 随机产生不同的数
Dim bStop As Boolean Dim n(1 To 370), i, j, q Private Sub Command1_Click() Command1.Visible = False Randomize Timer While j q = Int(Rnd(1) * 369 + 1) Label1.Capt
2006-04-14 15:09:00 723
原创 MD5算法
什么是MD5? 不可逆加密算法,只能暴力破解!md5的全称是message-digest algorithm 5(信息-摘要算法),在90年代初由mit laboratory for computer science和rsa data security inc的ronald l. rivest开发出来,经md2、md3和md4发展而来。它的作用是让大容量信息在用数字签名软件签署私人密匙前被
2006-04-14 15:06:00 928
原创 将数值转换为中文大写
Private Sub Command1_Click()Label1.Caption = rmb(Val(Text1.Text))End SubPrivate Function rmb(s As Currency) As StringDim s2, s1, dx, x, c1, c2 As StringDim l As Integers1 = LTrim(Str(Abs(s)))l = Len
2006-04-13 17:38:00 753
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人