开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 屏幕保护 > 查看源码
Setup.frm
资源名称：ssaver.zip　[点击查看]
上传用户：wje666666
上传日期：2007-03-31
资源大小：8k
文件大小：2k
源码类别：

屏幕保护

开发平台：

Visual Basic

Setup.frm：源码内容
  1. VERSION 4.00
  2. Begin VB.Form frmSetup 
  3.    Caption         =   "Settings"
  4.    ClientHeight    =   1530
  5.    ClientLeft      =   1680
  6.    ClientTop       =   2100
  7.    ClientWidth     =   6690
  8.    Height          =   1935
  9.    Left            =   1620
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1530
  12.    ScaleWidth      =   6690
  13.    Top             =   1755
  14.    Width           =   6810
  15.    Begin VB.CommandButton cmdOK 
  16.       Caption         =   "&OK"
  17.       Height          =   375
  18.       Left            =   3840
  19.       TabIndex        =   2
  20.       Top             =   960
  21.       Width           =   1215
  22.    End
  23.    Begin VB.CommandButton cmdCancel 
  24.       Caption         =   "&Cancel"
  25.       Height          =   375
  26.       Left            =   5280
  27.       TabIndex        =   3
  28.       Top             =   960
  29.       Width           =   1215
  30.    End
  31.    Begin VB.TextBox txtMessage 
  32.       Height          =   375
  33.       Left            =   120
  34.       TabIndex        =   1
  35.       Top             =   360
  36.       Width           =   6375
  37.    End
  38.    Begin VB.Label Label1 
  39.       Caption         =   "Enter message:"
  40.       Height          =   255
  41.       Left            =   120
  42.       TabIndex        =   0
  43.       Top             =   120
  44.       Width           =   1215
  45.    End
  46. End
  47. Attribute VB_Name = "frmSetup"
  48. Attribute VB_Creatable = False
  49. Attribute VB_Exposed = False
  50. Option Explicit
  52. Private Sub cmdCancel_Click()
  54.     Unload Me
  56. End Sub
  59. Private Sub cmdOK_Click()
  61.     'saves message to file
  62.     Open "ssaver.msg" For Output As #1
  63.         Print #1, txtMessage.Text
  64.     Close #1
  66.     Unload Me
  67.     
  68. End Sub
  71. Private Sub Form_Load()
  73. Dim message As String
  75. 'if file doesn't exsist continues operations
  76. On Error Resume Next
  78.     'opens file to read in current message
  79.     Open "ssaver.msg" For Input As #1
  80.         Line Input #1, message$
  81.     Close #1
  82.     
  83.     'displays current message in text box
  84.     txtMessage = message$
  86.     'centers form
  87.     Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
  88.     
  89. End Sub