土地等级划分.frm

地图查询 鹰眼 放大 缩小 vb mapx

VERSION 5.00
Begin VB.Form 土地等级划分 
   AutoRedraw      =   -1  'True
   Caption         =   "土地等级划分"
   ClientHeight    =   4710
   ClientLeft      =   11190
   ClientTop       =   1200
   ClientWidth     =   8220
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   Picture         =   "土地等级划分.frx":0000
   ScaleHeight     =   4710
   ScaleWidth      =   8220
   Begin VB.PictureBox Picture1 
      Height          =   4455
      Left            =   120
      ScaleHeight     =   4395
      ScaleWidth      =   6675
      TabIndex        =   0
      Top             =   120
      Width           =   6735
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         ForeColor       =   &H0000C000&
         Height          =   3735
         Left            =   120
         MultiLine       =   -1  'True
         TabIndex        =   1
         Top             =   240
         Width           =   5175
      End
   End
   Begin VB.Timer Timer1 
      Interval        =   20
      Left            =   7560
      Top             =   960
   End
   Begin VB.Menu menu 
      Caption         =   "文件"
      Begin VB.Menu menuquit 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "土地等级划分"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Dim p As Picture

Dim CurY As Single






Private Sub Form_Load()
Dim R As Integer
Dim mymenu
mymenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu mymenu, &HF060, R
Set p = LoadPicture("D:\何二佳毕业设计\图片\Blue hills.jpg") '写上你自己的图片"
Picture = p

mymenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu mymenu, &HF060, R
    Dim s As String, nl As String * 2
    
    Timer1.Enabled = False
    Picture1.BackColor = QBColor(0) ' Black
    Text1.BackColor = RGB(0, 0, 0)  ' Black
    'Text1.ForeColor = &HFF0000      ' Blue
    
    nl = Chr$(13) + Chr$(10)
    Text1 = ""
    Open App.Path + "\test.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, s
        Text1 = Text1 + s + nl
    Wend
    Close #1
    
    Text1.Font.Size = 12
    Set Font = Text1.Font
    Text1.Move 0, Picture1.Height
    Text1.Width = Picture1.Width
    Text1.Height = TextHeight(Text1.Text)
    CurY = Picture1.Height
    Timer1.Enabled = True
End Sub

Private Sub Form_Resize()
Set Picture = Nothing
PaintPicture p, 0, 0, Width, Height
Debug.Print Width



End Sub

Private Sub menuquit_Click()
Unload Me

End Sub

Private Sub Timer1_Timer()
    Text1.Top = CurY
    CurY = CurY - 25
    If CurY + Text1.Height < 0 Then
        CurY = Picture1.Height
    End If
End Sub