- 博客(4)
- 收藏
- 关注
原创 去掉窗体上的图标
Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_SETICON = &H
2006-01-09 17:51:00 884 1
原创 EXCEL导入
引用 Microsoft ActiveX Data Objects 2.X LibraryPrivate Sub Command1_Click()Dim cnSql As New ADODB.Connection, cnExcel As New ADODB.Connection, rsSql As New ADODB.Recordset, rsExcel As New ADODB.Records
2006-01-05 23:42:00 735
原创 屏蔽关闭和最大化按钮,只保留最小化按钮
屏蔽关闭和最大化按钮,只保留最小化按钮Option ExplicitPrivate Declare Function GetSystemMenu Lib "USER32" (ByVal hwnd As Long, ByVal bRevert As Long) As LongPrivate Declare Function RemoveMenu Lib "USER32" (ByVa
2006-01-04 20:01:00 2774 2
原创 今个读了个文章有感~~
网址:http://tech.163.com/05/1216/20/254E1J4P0009159F.html给学VB的朋友打打气,推荐学VB的朋友浏览一下!
2006-01-02 11:19:00 728
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人