frmnews.frm

从网页里下载文章

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form frmnews 
   Caption         =   "AOP News Station"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4905
   ForeColor       =   &H00C0C0C0&
   Icon            =   "frmnews.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4905
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command4 
      Caption         =   "About"
      Height          =   375
      Left            =   3720
      TabIndex        =   4
      Top             =   2760
      Width           =   1095
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Projects"
      Height          =   375
      Left            =   2520
      TabIndex        =   3
      Top             =   2760
      Width           =   975
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Member"
      Height          =   375
      Left            =   1440
      TabIndex        =   2
      Top             =   2760
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "News"
      Height          =   375
      Left            =   240
      TabIndex        =   1
      Top             =   2760
      Width           =   975
   End
   Begin RichTextLib.RichTextBox RichTextBox1 
      Height          =   2535
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   4455
      _ExtentX        =   7858
      _ExtentY        =   4471
      _Version        =   393217
      Enabled         =   -1  'True
      TextRTF         =   $"frmnews.frx":030A
   End
   Begin InetCtlsObjects.Inet Inet1 
      Left            =   -120
      Top             =   -240
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
End
Attribute VB_Name = "frmnews"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
Dim x As String
RichTextBox1.Refresh
x = Inet1.OpenURL("http://www.angelfire.com/biz5/necrostation/news.txt")
RichTextBox1.text = x
MsgBox "News Successfully Updated", vbInformation, "AOP News Station"
End Sub

Private Sub Command2_Click()
Dim xx As String
RichTextBox1.Refresh
xx = Inet1.OpenURL("http://www.angelfire.com/biz5/necrostation/members.txt")
RichTextBox1.text = xx
MsgBox "Members Successfully Updated", vbInformation, "AOP News Station"
End Sub

Private Sub Command3_Click()
Dim xxx As String
RichTextBox1.Refresh
xxx = Inet1.OpenURL("http://www.angelfire.com/biz5/necrostation/projects.txt")
RichTextBox1.text = xxx
MsgBox "Projects Successfully Updated", vbInformation, "AOP News Station"
End Sub

Private Sub Command4_Click()
Load Frmabout
Unload frmnews
End Sub

Private Sub Form_Load()
Me.Show
StayOnTop Me
End Sub
Sub StayOnTop(frm As Form)
On Error GoTo don

Dim success%
success% = SetWindowPos(frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flags)
don:
End Sub