- 博客(9)
- 收藏
- 关注
RSS订阅原创 小写、大写转换
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii KeyAscii = KeyAscii - 32 End IfEnd Sub
2005-09-12 09:24:00
725
原创 小型数据库的查询
Dim objRs As New Recordset, objCn As New Connection, strSQL As String strSQL = "SELECT * FROM 表 WHERE 字段 like " & Trim(Text) & "" With objCn .Provider = "SQLOLEDB" .Connectio
2005-09-06 09:22:00
591
原创 打开网页
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
2005-09-06 09:12:00
636
原创 透明窗体、控件
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"
2005-09-06 09:08:00
659
原创 窗体 XP风格
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()Private Sub Form_Initialize() InitCommonControlsEnd Sub
2005-09-06 09:01:00
576
原创 如何操作Excel文件
如何操作Excel文件全面控制 Excel首先创建 Excel 对象，使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel.Application1) 显示当前窗口：ExcelID.Visible := True;2) 更改 Excel 标题栏：ExcelID.Caption := 应用程序调用 Microsoft E
2005-09-03 15:30:00
846
原创 多个单元格的复制
引用 Microsoft Excel 11.0 Object Library Dim xlsApp As Excel.Application Dim eworkbook As Workbook Dim eworksheet As Worksheet Dim rantmp As Range Dim rantmp2 As Range 判断文件是否存在
2005-09-03 15:30:00
858
原创 删除重复字段
select distinct * into #tfrom 表delete from 表insert into 表select *from #tdrop table #t
2005-09-03 14:35:00
623
原创 图片合并
Private Sub cmdUpdate_Click() Dim i As Single For i = 1 To File1.ListCount File1.ListIndex = i - 1 Debug.Print File1.FileName Picture1.Picture = LoadPicture(File1.Path & "/
2005-08-19 12:39:00
679
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人