内容发布更新时间 : 2024/6/28 13:33:25星期一 下面是文章的全部内容请认真阅读。

Option Explicit

Private Sub Cmdcancel_Click() Unload Me End Sub

Private Sub Form_Load()

If frmMain.blnClockWise Then optClockWise.Value = True Else

optCounterClockWise.Value = True End If

If frmMain.blnScheme Then Option3.Value = True Else

Option4.Value = True End If

If frmMain.blnShowNext Then chkShowNext.Value = 1 Else

chkShowNext.Value = 0 End If

Text1.Text = frmMain.intDownDistance End Sub

Private Sub CmdOk_Click()

frmMain.blnClockWise = optClockWise.Value frmMain.blnScheme = Option3.Value

frmMain.blnShowNext = chkShowNext.Value frmMain.intDownDistance = Val(Text1) Unload Me End Sub

Private Sub Option1_Click()

End Sub