home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
code
/
network
/
ogmess
/
greet.frm
< prev
next >
Wrap
Text File
|
1995-02-27
|
2KB
|
115 lines
VERSION 2.00
Begin Form Greeting
Caption = "OGMESSAGE"
ClientHeight = 2025
ClientLeft = 1050
ClientTop = 2070
ClientWidth = 6510
Height = 2550
Icon = GREET.FRX:0000
Left = 990
LinkMode = 1 'Source
LinkTopic = "Form1"
ScaleHeight = 2025
ScaleWidth = 6510
Top = 1605
Width = 6630
Begin Timer mailchk_tim
Interval = 30000
Left = 5760
Top = 1440
End
Begin CommandButton sendcmd
Caption = "&Send Message"
Height = 615
Left = 1800
TabIndex = 1
Top = 1200
Width = 2655
End
Begin PictureBox Picture1
BorderStyle = 0 'None
Height = 375
Left = 120
Picture = GREET.FRX:0302
ScaleHeight = 375
ScaleWidth = 615
TabIndex = 2
Top = 0
Width = 615
End
Begin Label Label1
Alignment = 2 'Center
Caption = "OH GEE MESSAGE"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 615
Left = 240
TabIndex = 0
Top = 480
Width = 6135
End
End
Sub Form_Load ()
setupflag = False
setup_rtn
greeting.windowstate = 1
End Sub
Sub Form_Paint ()
If windowstate = 0 Then
centerwnd greeting
End If
End Sub
Sub mailchk_tim_Timer ()
If Not setupflag Then
Exit Sub
End If
On Error GoTo nomail
Open maildir + username For Input As #1
Close #1
If Not viewmsg Then
viewform.windowstate = 1
viewform.Show
' viewform.SetFocus
End If
Exit Sub
nomail:
' The user has no mail so we get here this code is
' done most of the time.
'
If Err <> 53 Then
MsgBox "OGMAIL - unexpected error " + Str$(Err)
End If
Resume getout
getout:
End Sub
Sub sendcmd_Click ()
greeting.windowstate = 1
ogsend.Show
ogsend.windowstate = 0
End Sub