home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
code
/
network
/
ogmess
/
viewform.txt
< prev
Wrap
Text File
|
1995-02-27
|
2KB
|
89 lines
Sub done_btn_Click ()
viewmsg = False
Kill maildir + username
Unload viewform
End Sub
Sub e_call_Click ()
clipboard.SetText message_read.text
End Sub
Sub e_copy_Click ()
If message_read.sellength = 0 Then
MsgBox "There is no text selected for Copy", 48
Else
clipboard.SetText message_read.seltext
End If
End Sub
Sub f_about_Click ()
about.Show
End Sub
Sub f_print_Click ()
stuff$ = viewform.message_read.text
printmsg_rtn stuff$
End Sub
Sub f_save_Click ()
'This command will save the text currently in the message
'box to a specified file.
savetext = message_read.text
saveit.Show
End Sub
Sub f_setup_Click ()
resetup
End Sub
Sub Form_Load ()
viewmsg = True
Open maildir + username For Input As #2
If LOF(2) > 60000 Then
msg$ = "Sorry, message is too large to View"
MsgBox msg$, 16, "File too Big"
Unload viewform
End If
loopcnt% = 0
Do Until EOF(2)
Line Input #2, nextline$
loopcnt% = loopcnt% + 1
If loopcnt% = 1 Then
fromname = getfield$(2, "-", nextline$)
End If
If loopcnt% = 2 Then 'get subject
default_subj = Right$(nextline$, ((Len(nextline$) - 10)))
End If
filebuffer$ = filebuffer$ + nextline$ + Chr$(13) + Chr$(10)
Loop
message_read.text = filebuffer$
Close #2
End Sub
Sub Form_Paint ()
If windowstate = 0 Then
centerwnd viewform
End If
End Sub
Sub reply_btn_Click ()
done_btn_Click
If fromname <> "" Then
ogsend.select_user_combo.text = fromname
End If
ogsend.Show
End Sub