home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / MAINF.ZIP / ADDFORUM.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1992-07-05  |  4.8 KB  |  113 lines
  1. AddForum
  2.     Add Forum
  3. Form4*
  4. Label1
  5. -Enter &Name of New Forum or Select from List:
  6. tbName
  7. lbForums
  8. &Cancel
  9.     Form_Load
  10. Screen
  11. MousePointer1
  12. WindowState
  13. ForumsO
  14. Widtht
  15. Height
  16.     SectnsLst
  17. GSioLurkerPath;
  18.     SectnsNdxO
  19.     SioMsgBox
  20. BoxINFORMATION
  21. LoadBye
  22. RetVal
  23. FioMakeSectnsNdx
  24. FioIsSectnNdxGood
  25. FillForumsLB
  26. lbForumsA
  27.     ListIndex
  28. tbName
  29. SelStart
  30.     SelLength
  31. cbOK_Click*
  32. Index
  33. ForumRec
  34. Forum
  35. Search
  36. SelectItem
  37. RecNumh
  38. DummyRec0
  39. AllForumsNdx
  40.     RecLengthi
  41. NdxNum
  42. FileOpener
  43. RANDOMFILE&
  44. BytePosr
  45. LstNum
  46. READFILE
  47. TextLine
  48. GoWord]
  49. Gateway
  50. MessageFile
  51.     AppendMsg
  52. MessAppName
  53. LibAppName
  54. MessSect
  55. LibName
  56. MessNum
  57. WritePrivateProfileString
  58. GSioUserIniy
  59. LibNum
  60. Success
  61. FioWriteForumData
  62.     GetForums
  63. coForums
  64. GetOuttaHere
  65. AddForum
  66. tbName_Change
  67. lbhWnd8
  68. ControlHwnd
  69. SendMessage
  70. LB_SELECTSTRING
  71. ErrCode
  72. LB_SETTOPINDEX-
  73. LB_SETCURSEL
  74. lbForums_Click
  75.     ClearList
  76. RecordLength
  77. FileNum
  78. NumNdxRecs
  79. Form_Load
  80. Look for Sectns.lst and Sectns.ndx in Lurker Program directory
  81. Sectns.lst
  82. Sectns.ndx
  83.  Sectns.lst not in startup directory, so let user know there's no pick list
  84. Unable to locate file (Sectns.lst) containing list of all CompuServe forums.  
  85. You may still add a new forum, but a pick list of forums is not available.
  86. Lurker$
  87.  Sectns.ndx doesn't exist, so create itt
  88.   Sectns.ndx and Sectns.lst are out of sync, so update ito
  89.  lbForums.SetFocus
  90. cbOK_Click
  91.  User selected OK so Add New Forum
  92.  First find out if text box text field matches any listbox entries
  93.  We'll assume that if text box entry doesn't match any listbox entries
  94.  that user intended to add forum that's not in list.
  95.  Text box entry is in list, so get gateway, Go word, etc. from Sectns.lst file..
  96.  First need to get byte position of sectns.lst record from sectns.ndx.
  97. Sectns.lst
  98. Sectns.ndx
  99. first 3 records in SectnsNdx store Sectns.lst date/time/size
  100.  Now we can access forum data info in sectns.lst
  101.  Now need to get library/message sections and add to Forums.inia
  102.  Sections"
  103.  Libraries
  104.  Text box entry doesn't match any listbox entries 
  105.  Update forums combo box in forum configuration form
  106.  Now set forums combo box to new entry
  107. tbName_Change
  108. lbForums_Click
  109. FillForumsLB
  110. Sectns.ndx
  111.  Read from file.
  112.  If lbForums.ListCount > 0 Then lbForums.ListIndex = 0
  113.