自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(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 733

原创 取得右边文件名 

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关注的人

提示
确定要删除当前文章?
取消 删除