HaoChunhui-CSDN博客

原创小写、大写转换

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii KeyAscii = KeyAscii - 32 End IfEnd Sub

2005-09-12 09:24:00 708

原创小型数据库的查询

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 574

原创打开网页

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 619

原创透明窗体、控件

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 639

原创窗体 XP风格

Private Declare Sub InitCommonControls Lib "comctl32.dll" ()Private Sub Form_Initialize() InitCommonControlsEnd Sub

2005-09-06 09:01:00 562

原创如何操作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 827

原创多个单元格的复制

引用 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 831

原创删除重复字段

select distinct * into #tfrom 表delete from 表insert into 表select *from #tdrop table #t

2005-09-03 14:35:00 605

原创图片合并

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 667