vb select case 问题

Question

有两个控件 一个是check1 一个是combox1

Private Sub Combo1_Click()
If Check1.Value = 1 Then
Select Case Combo1.ListIndex
Case 0:
Me.WindowState = 1 '最小化
Case 1:
Me.Caption = "被我修改咯"
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "最小化"
Combo1.AddItem "修改标题"
Combo1.ListIndex = 0
End Sub

问题是:

当你在combox是选择"最小化"的时候然后打勾,它会变成最小化.取消打勾则会变回来, 而当你选择"修改标题"的时候打勾,则会把窗体的标题修改掉,取消打勾则会恢复. <=该怎么实现

明天上学了, 刚学的select case.. 睡觉 = = 希望高手解决下

Answer 1

''
''
dim frmcaption as string ''定义变量保存原有caption
dim frmstat as integer ''保留最小化前状态
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0:
if check1.value=1 then frmstat=me.windowstate
Me.WindowState=iif(check1.value=1, 1,frmstat) '最小化
Case 1:
Me.WindowState=iif(check1.value=1,"被我修改咯" ,frmcaption) End If
End Sub

Private Sub Form_Load()
frmcaption =me.caption
Combo1.AddItem "最小化"
Combo1.AddItem "修改标题"
Combo1.ListIndex = 0
End Sub

Answer 2

问题是你把窗体最小化后就不能用checkbox来控制让他变回来了....(最小化你连窗体都看不到,怎么点里面的控件?)

Private Sub Combo1_Click()
If Check1.Value Then
Select Case Combo1.ListIndex
Case 0:
Me.WindowState = 1 '最小化
Case 1:
Me.Caption = "被我修改咯"
End Select 'select case...end select 语法注意!
Else '主要是这里用select case没意义,最小化后你控制不了checkbox
If Combo1.ListIndex = 1 Then Me.Caption = "变回原样"
End If
End Sub

Answer 3

If Check1.Value = 1 Then
Select Case Combo1.ListIndex
Case 0:
Me.WindowState = 1 '最小化
Case 1:
Me.Caption = "被我修改咯"
End Select
Check1.Value = 0
Else'添加Else
Check1.Value = 1
End If