魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~22开始游戏-穿越楼层

魔塔之拯救白娘子 完整工程下载地址:
魔塔之拯救白娘子》流程分析6:穿越楼层
我称之为跳楼,下边是子窗口设计界面:
穿越楼层
下边为源码:

Option Explicit

Private Sub Command1_Click()
Unload Me

跳楼对话窗口显示标志 = False
End Sub

Private Sub Form_Load()
     

     '获得主窗口的坐标
     Me.Left = frmMain.Left + 1000
     Me.Top = frmMain.Top + 3000
    
    Dim rtn As Long
    rtn = GetWindowLong(hWnd, GWL_EXSTYLE)
    rtn = rtn Or WS_EX_LAYERED
    SetWindowLong hWnd, GWL_EXSTYLE, rtn
    SetLayeredWindowAttributes hWnd, 0, 150, LWA_ALPHA
   
'让窗口在顶层
rtn = SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, 3)
'取消窗口在顶层
'rtn = SetWindowPos(F_V.hwnd, -2, 0, 0, 0, 0, 3)
'    商店对话选择编号 = 1
跳楼对话内容初始化
   
End Sub

Sub 跳楼对话内容初始化()
Dim j As Integer
frmMain.清除地图上多余的主角

frmMain.写临时地图数据 (地图层号) '保存当前地图状况到临时文件里
'②自动帮玩家存档
frmMain.游戏存档 地图层号, False
'If 地图层号 - 2 = 0 Then Unload Me: Exit Sub

For j = 0 To 游戏进度.到过的最大层号
Label_商店选择(j).Caption = j + 2 & "层"
Label_商店选择(j).Visible = False
Next

For j = 0 To 游戏进度.到过的最大层号  '已走过的地图层号 - 2

Label_商店选择(j).Visible = True
游戏进度.地图当前层号 = 地图层号
游戏进度.上楼处理标志(地图层号) = True
frmMain.游戏中读取地图层次判断
Next
End Sub

Private Sub Label_商店选择_Click(Index As Integer)



frmMain.清除地图上多余的主角

frmMain.写临时地图数据 (地图层号) '保存当前地图状况到临时文件里
'②自动帮玩家存档
frmMain.游戏存档 地图层号, False

'③增加地图数量


地图层号 = Index + 2 ': 游戏中读取地图层次判断
'读取地图数据
游戏进度.地图当前层号 = 地图层号
游戏进度.上楼处理标志(地图层号) = True
frmMain.游戏中读取地图层次判断
'frmMain.读临时地图数据 (地图层号)
'frmMain.写临时地图数据 (0)

End Sub

Private Sub Timer1_Timer()
If frmMain.WindowState = 1 Then
Me.Hide
Else
Me.Show
End If
If Me.Left - 1000 <> frmMain.Left Then Me.Left = frmMain.Left + 1000
     If Me.Top - 3000 <> frmMain.Top Then Me.Top = frmMain.Top + 3000
End Sub

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

gosub60

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值