vb 中 ieframe.dll/1 不存在 错误的问题解决 - [Windows Client]
2008-05-27
版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://twticpgk.blogbus.com/logs/21746766.html
今天一个用户的VB用不了。打开工程文件的时候出现错误：“vb 中 ieframe.dll/1 不存在",解决方法如下：
这个是由于ie7.0的bug引起的。
把以下内容做成一个注册表文件fixieframe.reg，导入注册表即可：
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}]
[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1]
@="Microsoft Internet Controls"
[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1\0]
[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1\0\win32]
@="C:\\WINDOWS\\system32\\ieframe.dll"

或下载以下文件，导入你的电脑即可：http://twticpgk.blogbus.com/files/12118547150.reg
......

重拾VB之四，日志加强篇  
关劲松 PMP
一、关于日志记录功能
主要功能点有
1 在程序目录下生成log目录，用于保存日志文件。
2 自动在log目录中，生成日志文件，文件命名用年月日定义，如20100119_log.log。
3 在日志文件中，每行记录一个时间点的运行内容。时间点的精度应该达到毫秒。
4 在日志文件中，每一行的记录内容为文本信息。
5 在需要记录日志的地方，调用记录日志过程。
二、相关过程、函数。
'* 备注:由于FSO对象包含在Scripting 类型库 (Scrrun.Dll)中，所以在使用前首先需要在在工程中引用这个文件，
'*      单击“工程”，“引用”，然后在“引用”对话框中选中“Microsoft Scripting Runtime”前的复选框，然后单击“确定”。
'*-----------------------------------------------------------------------------*
'* 注释内容,用于获取系统时间的毫秒。
 Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
& ......

在最新的Windows Workflow Fonudation(WF4, 下文中将简称WF4)中，WF中引入了VB expression，用户可以通过vb表达式为变量赋值。有兴趣的朋友可以安装VS 2010，然后使用一下这个功能。关于这个功能的参考，请看：http://msdn.microsoft.com/en-us/library/ee342461.aspx   什么？ 不知道啥是WF，哦，幸亏你遇到我，让我来告诉你。有两个解决办法：1. 直接不要看这篇文章了。2. 回去看4个小时WF的文章，先入个门。
看完本文，将给你一个解决方案，就是用户可以通过自己写的expression得到想要的结果。这个expression是相对复杂的。那就是可以是任意的vb表达式。请注意，是表达式，想用什么while写大段代码的请绕路。
废话不说，先说说我的思路，就是当我发现这个WF4的方法后，有了一个想法，就是能不能把这个expression用到我们的普通工程中去。可以实现用户通过expression对输出结果的控制。这样对于用户有复杂需求和需要复杂报表的项目有很大的帮助。有点类似Excel中的expression。但WF4中的expression应该更加强大一点。支持类和类的属性。
下面看代码：
1.  新建一个FakeCodeActivity 类，继承自CodeActivity。用这个类来处理传入的expression。
class F ......

c:\windows\sytem32\ieframe.dll\1找不到,错误解决方案.
这个ieframe.dll是vb中WebBrowser 调用的控件，当你用vb再次打开你的工程之后，就可以发现以前的WebBrowser 控件没有了。而且再次加载也是不能的了，这时就需要用到下面的方法来处理：
把以下内容做成一个注册表文件fixieframe.reg，导入注册表即可：
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}]
[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1]
@="Microsoft Internet Controls"
[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1\0]
[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1\0\win32]
@="C:\\WINDOWS\\system32\\ieframe.dll" ......

VB软件工程师：
职位描述：
1、进行编码、测试；
2、在规定时间内提交源代码。
岗位要求：
1、熟悉MS SQL数据库；
2、熟悉VB 6.0；
3、有业务系统开发经验；
4、具备良好的团队合作精神，勤奋、上进；
5、大专或者以上学历；
6、具有1年或者以上相关工作经验 ；
7、熟悉C#优先。
VB新手、初级程序员公司提供专门培训，极速成长为VB高手。
招聘长期有效，有意请联络：ansion@esys.net.cn 13602457687 ......

'大小写字母转换器vb
'界面包括 command、command1、command2、command3 和一个 text 文本框
'command 为“互转”按钮，command1 为“转大”按钮，command2 为“转小”按钮，command3 为“清除”按钮
Private Sub Command_Click()
Dim i As Integer, n As Integer
Dim x As String, y As Integer, z
i = Len(Text.Text)
x = Text.Text
Text.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
  If y > 96 And y < 123 Then
    z = UCase(z)
  ElseIf y > 64 And y < 91 Then
    z = LCase(z)
  End If
    Text.Text = Text.Text & z
 Next
End Sub
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim x As String, y As Integer, z
i = Len(Text.Text)
x = Text.Text
Text.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
  If y > 96 And y < 123 Then
    z = UCase(z)
  ElseIf y > 64 And y < 91 Then
    z = z
  ......