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 Type Public mAlarm As mSetData 用自定义类型mSetData 定义设置参数变量mAlarm Public 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.TL End 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 Me End Sub 下位机数据的模拟采集 定义变量存放下位机的数据 Public Type mData 自定义数据类型：下位机数据，用于保存到磁盘文件中 T(1 To 2) As Single 温度 RH(1 To 2) As Single 湿度 End Type Public 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 * 20 Next i End S