毕业论文重点演示（疲劳试验机）.pptVIP

毕业论文重点演示 疲劳试验机 钢丝疲劳试验机 压力疲劳试验机 轻合金轮疲劳试验机 橡胶疲劳试验机 高温疲劳试验机 试验机界面 在上述表头里显示数据变化我们用了如下函数和控件及其属性 RND、 FORMAT、 标签（Label）、BackColor, BackStyle, Font, FontColor,及其控件位置属性（TOP,LEFT）,背景颜色的不同变化如图蓝色，黑色。风格BackStyle=1-Opaque表示立体， 0-TransParent表示平面。 Font , Font表示字体和颜色属性，大小颜色不同都可调的（如图）。 按钮（Command）、 Font, FontColor， BackColor，同上。 RND函数 语法 Rnd[(number)] 可选的 number 参数是 Single 或任何有效的数值表达式。 Rnd 函数示例 Dim MyValue MyValue = Int((6 * Rnd) + 1) 生成 1 到 6 之间的随机数值。 Format 函数 语法 Format(expression[, format[, firstdayofweek[, firstweekofyear]]]) 以系统设置的长时间格式返回当前系统时间。 MyStr = Format(Time, Long Time) 以系统设置的长日期格式返回当前系统日期。 MyStr = Format(Date, Long Date) 用户自定义的格式 MyStr = Format(23，“0.00”) ‘ 返回 “23.00”。 （在我们程序里有显示） 文件菜单 文件菜单的设置是通过单机鼠标右键在工程的窗口上。出现一个菜单编辑器，让后写入你要的菜单里的子项就行。需要注意的是标题、名称必须写的。我们这个系统在菜单栏里的文件菜单下主要用到了保存和打开。涉及到一些基本控件和CommonDialog1（Microsoft Common Dialog1 Control 6.0）下面我们通过打开和保存来将介绍CommonDialog1。 CommonDialog1 保存 On Error GoTo ErrHandler 设置过滤器。 CommonDialog1.Filter = All Files (*.*)|*.*|Text Files (*.txt)|*.txt 指定缺省过滤器。 CommonDialog1.FilterIndex = 2 显示“保存”对话框。 CommonDialog1.ShowSave ‘调用打开文件的过程 Open CommonDialog1.FileName For Output As #1 Print #1, ………….. Close #1 ErrHandler: Exit Sub ，详细代码请看论文保存项 打开 On Error GoTo ErrHandler 设置过滤器。 CommonDialog1.Filter = All Files (*.*)|*.*|Text Files (*.txt)|*.txt CommonDialog1.ShowOpen CommonDialog1.FilterIndex = 1 If CommonDialog1.FileName Then Dim hX, hY, hX1, hY1 As Long Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) 循环至文件尾 Line Input #1, A If InStr(A, ：) Then If I Text30.Count Then Exit Do Text30(I).Text = Mid(A, InStr(A, ) + 2) I = I + 1 Else hX = Mid(A, 1, InStr(A, ,) - 1) hY = Mid(A, InStr(A, ,) + 1, InStr(A, ) - InStr(A, ,) - 1) hX1 = Mid(A, InStr(A, ) + 1, InStrRev(A, ,) - InStr(A, ) - 1) hY1 = M