bsp; TextWg(29).Text = 0
Case "温慧"
For i = 0 To 4
CheckWg(i + 20).Value = Unchecked
TextWg(i + 20).Text = 0
Next
Case "王蓬絮"
For i = 0 To 4
CheckWg(i + 10).Value = Unchecked
TextWg(i + 10).Text = 0
Next
Case "星璇"
For i = 0 To 4
CheckWg(i + 15).Value = Unchecked
TextWg(i + 15).Text = 0
Next
Case "雷元戈"
For i = 0 To 4
CheckWg(i + 5).Value = Unchecked
TextWg(i + 5).Text = 0
Next
End Select
End Select
End SubPrivate Sub Form_Load()
FrameInfo(0).Visible = True
''''=====以下是各个人物的属性坐标=====
PRwStart(0) = 1397: PRwStart(1) = 2921: PRwStart(2) = 4445: PRwStart(3) = 5969: PRwStart(4) = 7493
Call drawFrameInfo0
End Sub
Private Sub Image1_Click(Index As Integer)
Select Case Index
Case 0
LabelName.Caption = "南宫煌"
LabelShux.Caption = "火"
Case 1
LabelName.Caption = "温慧"
LabelShux.Caption = "水"
Case 2
LabelName.Caption = "王蓬絮"
LabelShux.Caption = "风"
Case 3
LabelName.Caption = "星璇"
LabelShux.Caption = "土"
Case 4
LabelName.Caption = "雷元戈"
LabelShux.Caption = "雷"
End Select
ShowFrame1 (Index)
End Sub Private Sub LabelControl_Click(Index As Integer)
Dim HideFrame As Integer
HideFrame = CInt(LabelFrame.Caption)
LabelFrame.Caption = Index
FrameInfo(Index).Visible = True
FrameInfo(HideFrame).Visible = False
End Sub Private Sub LabelOk_Click()
Select Case LabelFrame.Caption
Case "0" ''''人物
Call saveFrameInfo0
MsgBox "ok"
Case "1" ''''武功
Case "2" ''''装备
Case "3" ''''物品
Case "4" ''''剧情
Case "5" ''''关于 End Select
End Sub
上一页 [1] [2] [3] | 
