VB coding
1.用VB6判断文件存在妙法
在编程时经常会用到判断文件是否存在，比如对文件做读写操作前，或是判断密钥文件是否存在等。判断的方法有很多，有些方法虽很实用，但有点繁琐。其实还可以有更简单的方法，就是使用VB 6.0提供的FileSystemObject对象。
FileSystemObject对象不是VB内置对象，使用前必须首先选择[工程]→[引用]，在出现的窗口中选择“Microsoft Scripting Runtime”，然后利用FileSystemObject的FileExists方法来判断文件是否存在。示例程序代码如下：
Private Sub Command1_Click()
′引用FileSystemObject对象
Dim fs As New FileSystemObject
′利用FileSystemObject对象的FileExists
′方法判断文件是否存在
If fs.FileExists(″c:\＊.gif″) Then
MsgBox ″文件存在″
Else
MsgBox ″文件不存在″
End If
End Sub
灵活运用FileSystemObject对象可以解决与文件操作有关的大部分问题。
以上程序在PWin 98,VB 6.0中文企业版中运行通过。
2. Checkbox选择
chkBlacklist = vbUnchecked
chkBlacklist.Style
If StrComp(curVisitor.IsBlacklist, "1") = 0 Then
chkBlacklist = vbChecked
End If
相关文档：
调用方法很简单，在Form中如下书写代码：
Private Sub Form_Load()
SetHotkey 1, "Ctrl,112", "Add" '按 Ctrl+F1 激活指定程序，F1的Ascii码为112
SetHotkey 2, 113, "Add" '按 F2 激活指定程序，F2的Ascii码为113
SetHotkey 3, "Ctrl+Alt,113", "Add" '按 Ctrl+Alt+F2 激活指定程序，F2的Ascii码为113
End Sub
Priva ......
http://blog.csdn.net/cw198624/archive/2009/02/19/3911759.aspx
添加一个ListBox和一个按钮
Option Explicit
Private Declare Function CloseHandle Lib "kernel32" (ByVal Handle As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As L ......
'*************************************************************************
''----------------------------------------------------------------------
'**系统名称：子类化重绘仿QQ2009渐变按钮
'**模块描述：
'**模 块 名：Form1
'**创 建 人：gvu
'**作者网站：http://hi.baidu.com/googlevipuser
'**E-Mai ......
摘自VB吧高手鲸无敌兄的一段管首示例代码：
'******* 读取DOS程序ipconfig.exe的返回结果： ********
'作者： 鲸无敌 2006-10-19 21:57
'**************************************************
'窗体代码：Form1
'**************************************************
Option Explicit
Private Const NOR ......
vb 中 ieframe.dll/1 不存在 错误的问题解决 - [Windows Client]
2008-05-27
版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://twticpgk.blogbus.com/logs/21746766.html
今天一个用户的VB用不了。打开工程文件的时候出现错误：“vb 中 ieframe.dll/1 不存在",解决方法如下：
这个是� ......
