[vb6]仙剑3外传的存档修改器_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

[vb6]仙剑3外传的存档修改器

作者：闵涛文章来源：闵涛的学习笔记点击数：2878 更新时间：2009/4/23 15:37:20

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 Sub

Private 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]

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： VBScript语法速查及实例说明

下一篇教程： [vb6]仙剑3外传的存档修改器--补充说明2存档数据

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]