mod_guide.bas

来自「一款飞机射击游戏的源代码」· BAS 代码 · 共 20 行

Attribute VB_Name = "ModFrm"
Option Explicit

Global Const LISTVIEW_MODE0 = "大图标"
Global Const LISTVIEW_MODE1 = "小图标"
Global Const LISTVIEW_MODE2 = "列表"
Global Const LISTVIEW_MODE3 = "详细资料"
Public fMainForm As frmMain


Sub Main()
    LenObj = Len(NewObj)
    LenHead = Len(HeadStr) + Len(AllCon)

    'Set fMainForm = New frmMain
    'fMainForm.Show
    frmMain.Visible = True
End Sub