我的VB山-寨之路

前言：
兵哥才开始学VB6.0，此前用了3年实际学习程序。
一步步，从EXCEL表格公式->EXCEL-VBA程序->ACCESS-VBA程序->MS_SQL+ACCESS-VBA程序。
目前，已经有多个小软件在单位上实际运行。主要有：工作计划、日志管理、物件管理、财务管理。
都是基于后台MS-SQL服务器+前台ACCESS程序。
升级到VB6.0程序的原因，我一直对程序必须依托OFFICE2003软件，耿耿于怀。
由于，OFFICE2003逐渐在被淘汰，后面的OFFICE2007架构差别太大。在OFFICE2007上，我的软件基本要重写。
所以干脆踢开OFFICE，用VB来写。
本来考虑用VB2010，但是感觉与VBA的语法差别太大了！
只好暂时先用VB6.0，至少很多代码可以直接复制。
软件架构：
嗯！直接山寨我们单位的一个软件！
1、后台数据使用SQL服务器存储。
2、前台一个主窗口，各个功能模块的窗体显示在其中，可以自由打开、切换、关闭。
3、各种功能模块，准备做成DLL，实时从服务器上下载运行。
步骤：
1、主程序-功能：
A、连接SQL服务器。完成
B、读取本地配置文件内容。完成。
C、登录窗，读取用户列表、验证权限、验证密码。完成
D、程序图标问题。 研究中...
E、主窗口 计划中...

请教各位老师，EXE程序能否在运行时：下载DLL文件、调用运行DLL文件、退出关闭DLL文件、删除DLL文件？
嗯！ 我准备在终端，只存在一个主程序EXE文件、一个CFG配置文件。终端不保存DLL文件，需要时从服务器上下载，运行完成后删除。

图标搞定：就用五角星

嗯！ 关于软件插件架构，原来没有想象的困难！
构想：
1、将主程序和插件程序都做成EXE。
2、主程序根据需要运行插件程序，并窗体将其抓取到自己的窗体中作为子窗体。
难点：
1、避免插件的重复运行。
2、主程序与子程序间通讯，调用及传递结果。
求指点！

我晕哦！
化了一天重写了一个读取配置文件的类模块。 弄完了才发现，原来Win早就有读写配置文件的系统函数。
下面是一个范例：
'请於form中放3个TextBox，一个CommandBox
Private Declare FunctionGetPrivateProfileString Lib "kernel32" _
Alias"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long, _
ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileStringLib "kernel32" _
Alias "WritePrivateProfileStringA" (ByVal lpApplicationName AsString, _
ByVal lpKeyName As Any, ByVal lpString As Any, _
ByVal lpFileName As String) As Long
Private Sub Command1_Click()
Dim success As Long
success =WritePrivateProfileString("MyApp", "text1", Text1.Text,"c:\aa.ini")
'叁数一 Section Name
'叁数二於.ini中的项目
'叁数三项目的内容
'叁数四 .ini文件的名称
success =WritePrivateProfileString("MyApp", "text2", Text2.Text,"c:\aa.ini")
success = WritePrivateProfileString("MyApp2","text3", Text3.Text, "c:\aa.ini")
End Sub
Private Sub Form_load()
Dim ret As Long
Dim buff As String
buff = String(255, 0)
ret =GetPrivateProfileString("Myapp", "text1","text1", buff, 256, "c:\aa.ini")
'若.ini MyApp中无text1，则采用叁数三的值
Text1.Text = buff
buff = String(255, 0)
ret =GetPrivateProfileString("Myapp", "text2","text2", buff, 256, "c:\aa.ini")
Text2.Text = buff
buff = String(255, 0)
ret =GetPrivateProfileString("Myapp2", "text3","text3", buff, 256, "c:\aa.ini")
Text3.Text = buff
End Sub

程序编写卡住了！
主程序将另外一个程序的窗口抓过来，作为子窗口。成功了，可以方便的连锁开关切换。
但是，有子窗口（无边框）。主窗口大小被锁定了！无法调整，只能最大化、最小化、还原。
搞了好久都没有办法！

嗯！ 主程序基本完成。能启动独立子程序（EXE），并将其抓来做子窗体。
能够同时启动多个子程序，并能通过按键 自由切换、关闭。