程序设计
文章平均质量分 66
HaoChunhui
这个作者很懒,什么都没留下…
展开
-
图片合并
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 · 666 阅读 · 0 评论 -
删除重复字段
select distinct * into #tfrom 表delete from 表insert into 表select *from #tdrop table #t原创 2005-09-03 14:35:00 · 603 阅读 · 0 评论 -
如何操作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 · 825 阅读 · 0 评论 -
打开网页
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 · 617 阅读 · 0 评论 -
小型数据库的查询
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 · 572 阅读 · 0 评论 -
多个单元格的复制
引用 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 · 827 阅读 · 0 评论 -
窗体 XP风格
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()Private Sub Form_Initialize() InitCommonControlsEnd Sub原创 2005-09-06 09:01:00 · 561 阅读 · 0 评论 -
透明窗体、控件
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 · 637 阅读 · 0 评论 -
小写、大写转换
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 阅读 · 0 评论