home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / MAINF.ZIP / FORUMS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-07-05  |  6.9 KB  |  167 lines
  1. Forums
  2. Configure Forums
  3. Form1,
  4. cbAction
  5. Label6
  6. &Forum:
  7. coForums
  8. cbForum
  9. &Add Forum
  10. tbUserName
  11. Label10
  12. &User Name:
  13. tbGoPage
  14. cbForum
  15. &Delete Forum
  16. Label1
  17.     GO &Word:
  18. $    tbGateway
  19. Label2
  20.     &Gateway:
  21. tbMessageFile
  22. chAppend
  23. A&ppend New Messages to File
  24. Label4
  25. &Message File:
  26. Frame2
  27. obMsgDirectory
  28.     &Default:
  29. obMsgDirectory
  30. O&ther:
  31. tbMsgDirectory
  32. cbMsgSelect
  33. Sele&ct
  34. Label8
  35. Message File Directory:
  36. Frame1
  37. obDLDirectory
  38.     Defau<:
  39. obDLDirectory
  40. Othe&r:
  41. tbDLDirectory
  42. cbFileSelect
  43. Se&lect
  44. Label9
  45. File Download Directory:
  46. OldForumRecord
  47. forumF
  48. NewForumRecord
  49.     Form_Load
  50. Screen
  51. MousePointer/
  52. Buffer
  53. GetPrivateProfileString
  54. GSioLurkerPath"
  55. DLDirectory
  56. MsgDirectory
  57. Forums
  58.     GetForumsS
  59. coForums}
  60. WindowStatee
  61. Lurker
  62. Width
  63. Height
  64. obDLDirectoryj
  65. Caption
  66. obMsgDirectory
  67.     ListCount
  68.     ListIndex
  69. coForums_Click)
  70. IsForumChanged
  71.     FioMsgBox
  72. Success3
  73. FioUpdateForumData#
  74. ForumRecg
  75. FioGetForumData
  76.     tbGatewayC
  77. Gatewayt
  78. tbGoPage
  79. GoWord
  80. tbMessageFile
  81. MessageFile
  82. tbDLDirectory
  83. tbMsgDirectory
  84. chAppend
  85. Value
  86.     AppendMsg
  87. tbUserName
  88. UserName
  89. FALSE
  90. tbGoPage_LostFocus
  91. DefaultNameL
  92. obDLDirectory_GotFocus
  93. Index
  94. obMsgDirectory_GotFocus
  95. cbFileSelect_Click
  96. RetVal
  97. FioGetDirectory
  98. cbMsgSelect_Click
  99. cbAction_Click
  100.     SioMsgBox
  101. cbForum_Click
  102. AddForum
  103. Modal
  104.     ForumName
  105. FioKillForum*
  106. Form_Load
  107.  Get default Download directorym
  108. Defaults
  109. DLDirectory"
  110. Lurker.ini
  111. [None]
  112.  Get default Message directory
  113. Defaults
  114. MsgDirectory
  115. Lurker.ini
  116. [None]
  117.  IS TAG NECESSARY?
  118. Loading"
  119. Default: "
  120. Default: "
  121. coForums_Click
  122. Loading"
  123. The Forum Data Has Changed."
  124. Do you Wish To Save the Changes?
  125. Lurker
  126.  tbHMN.Text = ForumRec.HMN
  127.  tbActiveSections.Text = ForumRec.ActiveSections
  128.  GIioSections = FioGetSections(ForumRec.GoWord)s
  129.  FillSectionsListBox
  130. IsForumChanged
  131. First set NewForumRecord fields to OldForumRecord.  This
  132. preserves fields that may not otherwise be affected by this
  133. form.r
  134.  NewForumRecord.HMN = tbHMN.Text
  135.  NewForumRecord.ActiveSections = tbActiveSections.Text
  136.  If NewForumRecord = OldForumRecord Then
  137.  ElseIf NewForumRecord.HMN <> OldForumRecord.HMN Thent
  138.  IsForumChanged = TRUE
  139.  ElseIf NewForumRecord.ActiveSections <> OldForumRecord.ActiveSections Then
  140.  IsForumChanged = TRUE
  141. tbGoPage_LostFocus
  142. obDLDirectory_GotFocus
  143. obMsgDirectory_GotFocus
  144. cbFileSelect_Click
  145. Select Directory
  146. Select Directory For File Downloads"
  147. cbMsgSelect_Click
  148. Select Directory
  149. Select Message File Directory Directory For 
  150. cbAction_Click
  151. The Forum Data Has Changed."
  152. Do you Wish To Save the Changes?
  153. Lurker
  154. A Go word is required to save changes. "
  155. Please enter the quick reference word used by CompuServe for this forum.
  156. Lurker$
  157. cbForum_Click
  158.  Add new forum
  159.  First need to see if Forum data has changed and updatep
  160.  if necessaryo
  161. The Forum Data Has Changed."
  162. Do you Wish To Save the Changes?
  163. Lurker
  164.  Delete selected forum
  165. Are you sure you want to delete 
  166. Delete Forum
  167.