home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / network / ogmess / greet.frm < prev    next >
Text File  |  1995-02-27  |  2KB  |  115 lines
  1. VERSION 2.00
  2. Begin Form Greeting 
  3.    Caption         =   "OGMESSAGE"
  4.    ClientHeight    =   2025
  5.    ClientLeft      =   1050
  6.    ClientTop       =   2070
  7.    ClientWidth     =   6510
  8.    Height          =   2550
  9.    Icon            =   GREET.FRX:0000
  10.    Left            =   990
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   2025
  14.    ScaleWidth      =   6510
  15.    Top             =   1605
  16.    Width           =   6630
  17.    Begin Timer mailchk_tim 
  18.       Interval        =   30000
  19.       Left            =   5760
  20.       Top             =   1440
  21.    End
  22.    Begin CommandButton sendcmd 
  23.       Caption         =   "&Send Message"
  24.       Height          =   615
  25.       Left            =   1800
  26.       TabIndex        =   1
  27.       Top             =   1200
  28.       Width           =   2655
  29.    End
  30.    Begin PictureBox Picture1 
  31.       BorderStyle     =   0  'None
  32.       Height          =   375
  33.       Left            =   120
  34.       Picture         =   GREET.FRX:0302
  35.       ScaleHeight     =   375
  36.       ScaleWidth      =   615
  37.       TabIndex        =   2
  38.       Top             =   0
  39.       Width           =   615
  40.    End
  41.    Begin Label Label1 
  42.       Alignment       =   2  'Center
  43.       Caption         =   "OH GEE MESSAGE"
  44.       FontBold        =   -1  'True
  45.       FontItalic      =   0   'False
  46.       FontName        =   "MS Sans Serif"
  47.       FontSize        =   24
  48.       FontStrikethru  =   0   'False
  49.       FontUnderline   =   0   'False
  50.       Height          =   615
  51.       Left            =   240
  52.       TabIndex        =   0
  53.       Top             =   480
  54.       Width           =   6135
  55.    End
  56. End
  57. Sub Form_Load ()
  58.     setupflag = False
  59.     setup_rtn
  60.     greeting.windowstate = 1
  61.  
  62. End Sub
  63.  
  64.  
  65.  
  66. Sub Form_Paint ()
  67. If windowstate = 0 Then
  68.     centerwnd greeting
  69. End If
  70.  
  71. End Sub
  72.  
  73. Sub mailchk_tim_Timer ()
  74.  
  75. If Not setupflag Then
  76.     Exit Sub
  77. End If
  78.  
  79. On Error GoTo nomail
  80.  
  81.     Open maildir + username For Input As #1
  82.     
  83.     Close #1
  84.  
  85.     If Not viewmsg Then
  86.        viewform.windowstate = 1
  87.        viewform.Show
  88.        ' viewform.SetFocus
  89.     End If
  90.     
  91.     Exit Sub
  92.  
  93. nomail:
  94.  
  95. ' The user has no mail so we get here this code is
  96. ' done most of the time.
  97. '
  98.     If Err <> 53 Then
  99.         MsgBox "OGMAIL - unexpected error " + Str$(Err)
  100.     End If
  101.     Resume getout
  102.  
  103. getout:
  104.     End Sub
  105.  
  106.  
  107. Sub sendcmd_Click ()
  108. greeting.windowstate = 1
  109. ogsend.Show
  110. ogsend.windowstate = 0
  111.  
  112.  
  113. End Sub
  114.  
  115.