2008年05月_小鸿叔

11月 10月 07月 06月 05月 04月 03月 02月 01月

原创 VB 动态生成控件

Dim WithEvents cmdBtn As VB.CommandButton 如果不需要事件，可以去掉WithEventsPrivate Sub Command1_Click() 添加按钮Set cmdBtn = Me.Controls.Add("VB.CommandButton", "myCtrl", Me)cmdBtn.Caption = "Click Me"cmdBtn.Mov

2008-05-27 16:48:00 1082

原创 ACCESS中isnull+iif 实现SQL Server中的isnull函数

在SQL Server中：select isnull(num,0) from table1 --如果num字段中的值为NULL时，将显示为0 而Access中的isnull函数，只是用来判断一个表达式或是字段是否Null，返回的是布尔值（True/False），但是结合iif函数时，可以实现与SQL Server等同的效果。select iif(isnull(num),

2008-05-26 15:30:00 6723 2

转载 EXCEL VBA编程基础

PS：建议从“二)、基本概念”开始看起，前面的大部份人都知道了。Excel 最重要的应用就是利用公式进行计算。无论输入是纯粹的数字运算，还是引用其他单元格计算，只要在一个单元格中输入公式，就能得到结果。这个直接显示结果的设计对于绝大多数场合来说都是适用的，但某些情况下就不那么让人满意了。比如说在做工程施工的预结算编写，使用Excel，既要写出工程量的计算式，也要看到它的结果，于是这样相同的公式

2008-05-13 16:16:00 11661 2

转载 VB 系统热键实现（模块）

调用方法很简单，在Form中如下书写代码：Private Sub Form_Load()SetHotkey 1, "Ctrl,112", "Add" 按 Ctrl+F1 激活指定程序，F1的Ascii码为112SetHotkey 2, 113, "Add" 按 F2 激活指定程序，F2的Ascii码为113SetHotkey 3, "Ctrl+Alt,113", "Add" 按 Ct

2008-05-13 11:02:00 2603

原创 VB 选择目录对话框实现（API）

Private Type BrowseInfo hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As LongEnd Type

2008-05-12 15:45:00 3894 2

原创 vb6 webbrowser 禁示弹出对话框

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Dim oDoc1 As HTMLDocument Set oDoc1 = pDisp.Document oDoc1.parentWindow.execScript "function alert(){r

2008-05-08 10:32:00 2531 1

原创 ASP 中乱码解决方法

在页面的头部加入相应的代码便可。UTF-8简体中文繁体中文美国/加拿大英语日文韩文俄文

2008-05-06 10:18:00 817

原创 VB 任务栏标题闪烁

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As LongPrivate Sub Command1_Click()FlashWindow Me.hwnd, 1End Sub

2008-05-03 14:19:00 1896

原创 VB 字符串中使用双引号一法

以前都是用chr(34)来代替双引号的，今天在网上发现了一个新的方法，如下：Private Sub Form_Load()MsgBox "难道这就是传说中的" & Chr(34) & "小强" & Chr(34) & "。"MsgBox "难道这就是传说中的""小强""。"End Sub很明显第二种比第一种方法简单多了。唉~，怎么以前没发现呢。

2008-05-03 13:59:00 12519 5

原创 VB 窗体永运置前 (Always on Top)

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As

2008-05-03 13:51:00 2155

原创 VB 得到Windows登录用户名

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Sub Command1_Click()Dim username As StringDim result As Longuser

2008-05-03 13:43:00 3279

原创 VB 关闭已知标题窗口

使用API函数。先通过FindWindow得到窗口的句柄，然后对窗口发送关闭消息。Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Fun

2008-05-03 13:25:00 1190

原创 VB 获得系统字体列表

Private Sub Form_Load()Dim counterFor counter = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(counter)NextEnd Sub

2008-05-03 13:10:00 3847

VBExplorer（VB反编译工具，详看软件介绍）

VBExplorer 前身为VBEditor，本程序是一个反编译VB程序的应用程序，具有以下特性： 1、目前已可以解析VB自身所有控件的属性，并进行编辑(包括字体的修改，背景颜色的修改，图片的保存和替换等)和导出(包括工程文件和图片文件); 2、可以对P-Code编译的程序进行代码解析，此功能正在不断完善； 3、搜索函数使用的Unicode字符串，并进行编辑。

2008-04-30