VB程序代码行数计算器

hulqi

怎么我无法使用啊？

hulqi

点击获取文件时出现的

superzmy

难以想像我的程序居然就那么点行
程序总行数(不包括空行):4991行

类型文件信息:
窗体文件:
  总行数:1230行
  总函数:0个
  总过程:62个
  总API:13个
模块文件:
  总行数:615行
  总函数:10个
  总过程:12个
  总API:100个
类模块文件:
  总行数:3146行
  总函数:20个
  总过程:99个
  总API:18个
用户控件文件:
  总行数:0行
  总函数:0个
  总过程:0个
  总API:0个
属性页文件:
  总行数:0行
  总函数:0个
  总过程:0个
  总API:0个


文件信息:

Frame.frm:
  总行数:480行
  总函数:0个
  总过程:15个
  总API:0个
  函数:无
  过程:
    Form_GotFocus()
    Form_Initialize()
    Form_Load()
    Form_Unload()
    Form_Paint()
    Form_Resize()
    Form_MouseMove()
    Form_MouseDown()
    Form_MouseUp()
    Form_KeyDown()
    Unhook()
    LoadForm()
    SetCaption()
    FormInFrame_KeyDown()
    FormInFrame_Unload()
  API:无

Sys.bas:
  总行数:143行
  总函数:1个
  总过程:4个
  总API:4个
  函数:
    FrameMessage()
  过程:
    SetIcon()
    SetMousePointer()
    SetMinMaxInfo()
    Hook()
  API:
    SendMessage()
    LoadImage()
    GetSystemMetrics()
    DestroyIcon()

API.bas:
  总行数:203行
  总函数:0个
  总过程:0个
  总API:85个
  函数:无
  过程:无
  API:
    InitCommonControls()
    GradientFillRect()
    RoundRect()
    SelectObject()
    DeleteObject()
    GetDC()
    CreateRoundRectRgn()
    CreateRectRgn()
    SetWindowRgn()
    CombineRgn()
    SetLayeredWindowAttributes()
    TextOut()
    TextOutW()
    DrawText()
    CreateCaret()
    SetCaretPos()
    ShowCaret()
    DestroyCaret()
    CreateBitmap()
    CreateCompatibleBitmap()
    LoadImage()
    ExtractIcon()
    DrawIconEx()
    DestroyIcon()
    ExtFloodFill()
    CreatePatternBrush()
    CreateSolidBrush()
    CreateHatchBrush()
    SetBrushOrgEx()
    FillRect()
    BitBlt()
    SetFocusAPI()
    SetCapture()
    ReleaseCapture()
    SendMessage()
    ScreenToClient()
    ClientToScreen()
    DestroyCursor()
    LoadCursorFromFile()
    SetWindowPos()
    GetDC()
    InvalidateRect()
    LockWindowUpdate()
    IsIconic()
    CreateWindowEx()
    DestroyWindow()
    ShowWindow()
    SetParent()
    SetWindowPos()
    MoveWindow()
    BringWindowToTop()
    FindWindow()
    GetClientRect()
    GetWindowLong()
    SetWindowLong()
    SetClassLong()
    GetClassLong()
    timeGetTime()
    GetSystemMetrics()
    SystemParametersInfo()
    GetDoubleClickTime()
    GetActiveWindow()
    GetWindowRect()
    GetCursorPos()
    GetFocus()
    TrackMouseEvent()
    ChooseColor()
    ChooseFont()
    GetOpenFileName()
    SHGetPathFroMidList()
    SHBrowseForFolder()
    DefWindowProc()
    keybd_event()
    mouse_event()
    Sleep()
    CallWindowProc()
    CopyMemory()
    ZeroMemory()
    VarPtrArray()
    GetCurrentProcess()
    SetProcessWorkingSetSize()
    mciSendString()
    sndPlaySound()
    GetKeyState()
    MessageBox()

Menu.bas:
  总行数:62行
  总函数:0个
  总过程:4个
  总API:11个
  函数:无
  过程:
    CreateNewMenu()
    EditMenu()
    DelectMenu()
    ShowMenu()
  API:
    CreateMenu()
    CreatePopupMenu()
    GetMenu()
    GetSystemMenu()
    TrackPopupMenu()
    AppendMenu()
    ModifyMenu()
    CheckMenuItem()
    DeleteMenu()
    DestroyMenu()
    GetCursorPos()

MainWindow.frm:
  总行数:467行
  总函数:0个
  总过程:26个
  总API:0个
  函数:无
  过程:
    Command1_Click()
    Command2_Click()
    Form_Initialize()
    Form_Load()
    Form_Resize()
    Form_KeyDown()
    Form_Move()
    Form_Unload()
    Inet_StateChanged()
    pStateBar_MouseMove()
    pStateBar_MouseDown()
    pStateBar_Resize()
    pToolBar_MouseDown()
    L途径_MouseDown()
    cls_WYMenu_Click()
    pReadText_KeyDown()
    pReadText_MouseMove()
    pReadText_MouseDown()
    pReadText_MouseUp()
    cls_RTMenu_Click()
    pToolBar_KeyDown()
    cls_ToolBar_MouseUp()
    cls_Inet_Progress()
    cls_Inet_Cancel()
    cls_Inet_FinishGet()
    cls_IEMenu_Click()
  API:无

mTree.cls:
  总行数:383行
  总函数:0个
  总过程:12个
  总API:0个
  函数:无
  过程:
    Init()
    AddNode1()
    Class_Terminate()
    pTree_Paint()
    pTree_Resize()
    pTree_MouseDown()
    pTree_KeyDown()
    vScroll_Change()
    vScroll_Scroll()
    hScroll_Change()
    hScroll_Scroll()
    RefreshList()
  API:无

mToolBar.cls:
  总行数:129行
  总函数:0个
  总过程:9个
  总API:0个
  函数:无
  过程:
    Init()
    AddButton()
    Class_Terminate()
    pToolBar_MouseDown()
    pToolBar_MouseUp()
    pToolBar_MouseMove()
    pToolBar_Paint()
    tTimer1_Timer()
    DrawButton()
  API:无

mReadText.cls:
  总行数:1101行
  总函数:5个
  总过程:28个
  总API:0个
  函数:
    GetY()
    GetP()
    GetSelStart()
    GetSelText()
    TransformXY()
  过程:
    Init()
    Class_Terminate()
    SetBackMode()
    SetHanging()
    SetMargin()
    PaintBackOn()
    PaintSelect()
    SelectText()
    Refresh()
    pReadText_Paint()
    pReadText_Resize()
    pReadText_KeyDown()
    pReadText_MouseDown()
    pReadText_MouseMove()
    pReadText_MouseUp()
    pScroll_GotFocus()
    pScroll_LostFocus()
    pScroll_Paint()
    pScroll_KeyDown()
    pScroll_MouseDown()
    pScroll_MouseUp()
    tTimer1_Timer()
    tTimer2_Timer()
    tTimer3_Timer()
    ShowCaretEx()
    ScrollTo()
    AutoScroll()
    FormatText()
  API:无

mTreeItem1.cls:
  总行数:30行
  总函数:0个
  总过程:1个
  总API:0个
  函数:无
  过程:
    AddNode2()
  API:无

mStateBar.cls:
  总行数:133行
  总函数:0个
  总过程:7个
  总API:0个
  函数:无
  过程:
    Init()
    Class_Terminate()
    pStateBar_Paint()
    pStateBar_Resize()
    SetPer()
    SetPerError()
    SetText()
  API:无

mTreeNode2.cls:
  总行数:29行
  总函数:0个
  总过程:1个
  总API:0个
  函数:无
  过程:
    AddNode3()
  API:无

mTreeNode3.cls:
  总行数:14行
  总函数:0个
  总过程:0个
  总API:0个
  函数:无
  过程:无
  API:无

NoticeWindow.frm:
  总行数:121行
  总函数:0个
  总过程:9个
  总API:12个
  函数:无
  过程:
    Form_MouseDown()
    COK_Click()
    Form_MouseMove()
    COK_MouseMove()
    FreeWindow()
    ShowOut()
    CloseWindow()
    Timer1_Timer()
    Timer2_Timer()
  API:
    ShowWindow()
    MoveWindow()
    SystemParametersInfo()
    CreateRoundRectRgn()
    SetWindowRgn()
    DeleteObject()
    SetParent()
    ReleaseCapture()
    SendMessage()
    SetWindowLong()
    GetWindowLong()
    SetLayeredWindowAttributes()

BMP32.cls:
  总行数:265行
  总函数:1个
  总过程:3个
  总API:7个
  函数:
    MakeRgn()
  过程:
    Init()
    Paint()
    Paint_SaveBlend()
  API:
    GetPixel()
    CopyMemory()
    GetDIBits()
    GetCurrentObject()
    SetDIBitsToDevice()
    CreateRectRgn()
    CombineRgn()

Setup.frm:
  总行数:162行
  总函数:0个
  总过程:12个
  总API:1个
  函数:无
  过程:
    Form_Load()
    ShowOut()
    CTab_MouseDown()
    CTab_Click()
    CExit_Click()
    Form_Unload()
    Form_KeyDown()
    Form_MouseDown()
    Label_Click()
    cls_ForeColor_ChooseColor()
    cls_SelectColor_ChooseColor()
    Ok文字_Click()
  API:
    SetWindowRgn()

mColor.cls:
  总行数:50行
  总函数:0个
  总过程:3个
  总API:0个
  函数:无
  过程:
    Init()
    pColor_Paint()
    pColor_Click()
  API:无

mFont.cls:
  总行数:58行
  总函数:0个
  总过程:3个
  总API:0个
  函数:无
  过程:
    Init()
    Refresh()
    pFont_Click()
  API:无

mFile.cls:
  总行数:1行
  总函数:0个
  总过程:0个
  总API:0个
  函数:无
  过程:无
  API:无

mInet.cls:
  总行数:175行
  总函数:0个
  总过程:5个
  总API:1个
  函数:无
  过程:
    Init()
    NewTask()
    Cancel()
    tTimer1_Timer()
    Inet_StateChanged()
  API:
    CopyMemory()

mMenu.cls:
  总行数:153行
  总函数:1个
  总过程:9个
  总API:0个
  函数:
    Title()
  过程:
    Init()
    AddItem()
    Show()
    pMenu_Paint()
    pMenu_KeyDown()
    pMenu_MouseMove()
    pMenu_MouseMove()
    pMenu_MouseDown()
    pMenu_MouseUp()
  API:无

mOption.cls:
  总行数:244行
  总函数:9个
  总过程:14个
  总API:0个
  函数:
    Load()
    GetSectionIndex()
    IndexIsEnabled()
    ReadKey()
    ReadKeys()
    ReadText()
    ReadData()
    ExistSign()
    CreateSection()
  过程:
    Class_Initialize()
    Class_Terminate()
    NewFile()
    Save()
    EditLine()
    DeleteSection()
    DeleteKey()
    DeleteText()
    DeleteData()
    EditSection()
    WriteKey()
    WriteText()
    WriteData()
    WriteSign()
  API:无

mProperty.bas:
  总行数:108行
  总函数:0个
  总过程:2个
  总API:0个
  函数:无
  过程:
    LoadAllSet()
    SaveAllSet()
  API:无

mGradual.cls:
  总行数:338行
  总函数:4个
  总过程:2个
  总API:10个
  函数:
    Draw()
    BlendColors()
    DrawGradient()
    Div()
  过程:
    RotatePoint()
    Class_Initialize()
  API:
    CreatePen()
    DeleteObject()
    GetClientRect()
    GetPixel()
    GetSysColor()
    timeGetTime()
    LineTo()
    LockWindowUpdate()
    MoveToEx()
    SelectObject()

mToolTip.cls:
  总行数:43行
  总函数:0个
  总过程:2个
  总API:0个
  函数:无
  过程:
    Init()
    Class_Terminate()
  API:无

mFunc.bas:
  总行数:99行
  总函数:9个
  总过程:2个
  总API:0个
  函数:
    FindText()
    FileText()
    TimesInStr()
    GetSmall()
    GetBig()
    RemoveSpace()
    FindFile()
    GetFolder()
    GetNewBMP32()
  过程:
    Delay()
    TestTime()
  API:无

西门吹雪

为什么不可能............

ckz727

升级版的发上来呀

johnchase

赞

任天行

这么好的程序别沉了!顶!:)

风景001

支持一下，顶起。。。

任天行

顶一下!