frmviewrecord.frm

adsl拨号工具 有很多功能 不错啊 大家试试

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "Richtx32.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "ComDlg32.OCX"
Begin VB.Form FrmViewRecord 
   Caption         =   "查看上网记录"
   ClientHeight    =   5595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7230
   Icon            =   "FrmViewRecord.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5595
   ScaleWidth      =   7230
   StartUpPosition =   3  '窗口缺省
   Begin MSComDlg.CommonDialog dlgPrint 
      Left            =   6390
      Top             =   225
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin RichTextLib.RichTextBox Text1 
      Height          =   4935
      Left            =   75
      TabIndex        =   4
      Top             =   600
      Width           =   7080
      _ExtentX        =   12488
      _ExtentY        =   8705
      _Version        =   393217
      ReadOnly        =   -1  'True
      ScrollBars      =   3
      DisableNoScroll =   -1  'True
      TextRTF         =   $"FrmViewRecord.frx":08CA
   End
   Begin VB.CommandButton Command3 
      Caption         =   "打印记录(&P)"
      Height          =   360
      Left            =   5010
      TabIndex        =   3
      Top             =   90
      Width           =   1200
   End
   Begin VB.CommandButton Command2 
      Caption         =   "当天排行榜"
      Height          =   360
      Left            =   3547
      TabIndex        =   2
      Top             =   90
      Width           =   1200
   End
   Begin VB.CommandButton Command1 
      Caption         =   "当月排行榜"
      Height          =   360
      Left            =   2085
      TabIndex        =   1
      Top             =   90
      Width           =   1200
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   165
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   105
      Width           =   1665
   End
End
Attribute VB_Name = "FrmViewRecord"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉出品
'发布日期：05/08/15
'描  述：拨号上网管理器
'网  站：http://www.mndsoft.com/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
Option Explicit
Private ClassResize As New ResizeClass

Private Sub Combo1_Click()
   If Combo1.Text = "" Then
   End If
End Sub

Private Sub Command2_Click()
  Shell "rundll32.exe MSHTML.DLL,PrintHTML E:\DialupManager\report\Dial.htm", vbNormalFocus
End Sub

Private Sub Command3_Click()
'   Text1.SelPrint (Printer.hDC)
   
   'CommonDialog 控件的名称是“dlgPrint”。
    
   dlgPrint.flags = cdlPDReturnDC + cdlPDNoPageNums
   If Text1.SelLength = 0 Then
      dlgPrint.flags = dlgPrint.flags + cdlPDAllPages
   Else
      dlgPrint.flags = dlgPrint.flags + cdlPDSelection
   End If
   dlgPrint.ShowPrinter
   ShowPrinter Me
   Text1.SelPrint dlgPrint.hDC
End Sub

Private Sub Form_Load()
    With ClassResize
        .hParam = Me.Height
        .wParam = Me.Width
        .Map Text1, RS_HeightOnly
    End With
    Me.WindowState = 2
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
    Combo1.AddItem "当天"
    Combo1.AddItem "当月"
    Combo1.AddItem "当年"
    Combo1.Text = "当天"
    'Open App.Path & "\RecordDialList" For Binary As #1
    'Text1.Text = Input(LOF(1), 1)
    'Close #1
    Text1.SelAlignment = 1
    Text1.LoadFile App.Path & "\RecordDialList", 1
End Sub

Private Sub Form_Resize()
'    ClassResize.rSize Me
'    Text1.Width = Me.Width - 255
Text1.Move 0, 503, ScaleWidth, ScaleHeight
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Set ClassResize = Nothing
  Dim I As Integer
  For I = Forms.Count - 1 To 1 Step -1
      Unload Forms(I)
  Next
End Sub

'Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
'    If KeyCode = 93 Then MaskMenu Text1
'End Sub

'Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'    If Button = vbRightButton Then MaskMenu Text1
'End Sub

Private Sub MaskMenu(ByVal oText As TextBox)
    With oText
        .Enabled = False
        .Enabled = True
        .SetFocus
        SendKeys "%"
    End With
End Sub