VB6编程步骤-全部探索.docx

VB6编程 步骤题目要求新建工程，在工程中新建2个窗体和1个模块，窗体命名为frmMain和frmConfig，添加Excel操作专用模块。执行菜单命令“工具-选项-编辑器格式”，设置标准文本的字体格式为自己喜欢的格式，执行菜单命令“工具-选项-编辑器”，“要求变量声明”前打勾设置工程1的属性，修改启动对象为Sub Main，在module1中添加Sub Main过程，并输入代码：frmMain.Show vbModal。在frmMain上添加一个退出按钮，设置其合适的大小和字体，双击该按钮，输入“Unload Me”。在frmMain窗体上放置“参数设定”按钮，修改合适的外观属性，双击该按钮，输入代码“frmConfig.show vbmodal”参数设定编程方法：在module1模块中，定义保存参数的自定义变量Public Type mSetData 自定义数据类型：设置参数，用于保存到磁盘文件中 TH As Single 温度高限 TL As Single 温度低限 RHH As Single 湿度高限 RHL As Single 湿度低限End TypePublic mAlarm As mSetData 用自定义类型mSetData 定义设置参数变量mAlarmPublic sAppPath As String 字符串，存放应用程序所在的路径在module1模块中创建一个初始化过程Init，代码如下Sub Init()sAppPath = E:\软件技术基础\TR 应用程序路径Open sAppPath \Para.a For Random As #1 Len = Len(mAlarm) 打开随机方式访问文件Get #1, 1, mAlarm 读取文件内容到变量中Close #1 关闭文件End Sub在sub Main 中调用Init 过程Sub main() Init 初始化，读取原设置参数 frmMain.Show vbModal 启动主窗体，有模式窗体End Sub设置frmConfig窗体的界面。如图所示上述四个文本框的名字，从上到下依次为：txtTempH，txtTempL，txtRHH，txtRHL双击该窗体空白处，在Form_Load事件中输入代码，如下Private Sub Form_Load()调入旧参数并显示在界面上 Me.txtRHH = mAlarm.RHH Me.txtRHL = mAlarm.RHL Me.txtTempH = mAlarm.TH Me.txtTempL = mAlarm.TLEnd Sub双击该窗体上的“确定”按钮，代码如下：Private Sub cmdOK_Click() 把界面上输入的新参数保存在变量中 mAlarm.TH = Me.txtTempH mAlarm.TL = Me.txtTempL mAlarm.RHH = Me.txtRHH mAlarm.RHL = Me.txtRHL 变量保存在文件中 Open sAppPath \Para.a For Random As #1 Len = Len(mAlarm) Put #1, 1, mAlarm Close #1 Unload MeEnd Sub下位机数据的模拟采集定义变量存放下位机的数据Public Type mData 自定义数据类型：下位机数据，用于保存到磁盘文件中 T(1 To 2) As Single 温度 RH(1 To 2) As Single 湿度End TypePublic mD(1 To 4) As mData 用自定义类型mData定义下位机数据变量在frmMain窗体上放置一个定时器控件，命名为：tmrCaiji，其Ennabled 属性设为True，并设Interval属性为1000，双击定时器，完成代码如下所示：Private Sub tmrCaiji_Timer() 采集定时器，模拟产生下位机的数据 For i = 1 To 4 mD(i).T(1) = 30 + Rnd * 20: mD(i).T(2) = 50 + Rnd * 20 随机数Rnd在0~1之间 mD(i).RH(1) = 60 + Rnd * 20: mD(i).RH(2) = 30 + Rnd * 20Next iEnd Sub下位机数据更新到界面上，并作报警处理放置一个定时器，命名为：tmrUpdate，其Ennabled 属性设为True，并设Interval属性为10