home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD14609262001.psc / basgeneral.bas < prev    next >
Encoding:
BASIC Source File  |  2001-02-05  |  2.1 KB  |  58 lines

  1. Attribute VB_Name = "basgeneral"
  2. Global thefullpath As String
  3. 'set thefullpath to where you want the data folder
  4. 'to be placed. If you leave it empty then the data
  5. 'folder is placed in the same as the exe.
  6. 'If you want each user to have a copy of the exe
  7. 'then set thefullpath equal to something.
  8. 'If you want the exe to stay on a common computer
  9. 'that can be accessed by any computer in the network
  10. 'then leave it empty.
  11. 'Also make sure it ends with a "\"
  12. Global mgradient, mcolor As Long
  13. 'I added these variables to the metallic form code
  14. 'so that the user could customize it.
  15. Global person, room As String
  16. Global background As Integer
  17. ' What the background is
  18. Global chatcount(9), closedforgood, adminon As Boolean
  19. Global chatroom(9) As String
  20. Global chatnumber As Integer
  21.  
  22. Public Sub killpeople(lstNames As ListBox, myroom As String)
  23.  
  24.     On Error Resume Next
  25.       Do While listnum < lstNames.ListCount
  26.           thename = "person" & myroom & lstNames.List(listnum)
  27.           If Dir$(thefullpath & "data\" & thename) <> "" Then
  28.               Open thefullpath & "data\" & thename For Input As #13
  29.               Line Input #13, curnuma
  30.               Close #13
  31.           End If
  32.           curtime = Timer
  33.           Do While Timer < curtime + 0.3
  34.               DoEvents
  35.               If closedforgood = True Then Exit Sub
  36.           Loop
  37.           If Dir$(thefullpath & "data\" & thename) <> "" Then
  38.               Open thefullpath & "data\" & thename For Input As #14
  39.               Line Input #14, curnumb
  40.               Close #14
  41.           End If
  42.           curtime = Timer
  43.           Do While Timer < curtime + 0.3
  44.               DoEvents
  45.               If closedforgood = True Then Exit Sub
  46.           Loop
  47.           If Dir$(thefullpath & "data\" & thename) <> "" Then
  48.               Open thefullpath & "data\" & thename For Input As #15
  49.               Line Input #15, curnumc
  50.               Close #15
  51.           End If
  52.           If curnuma = curnumb And curnuma = curnumc Then Kill thefullpath & "data\" & thename
  53.           listnum = listnum + 1
  54.       Loop
  55.  
  56. End Sub
  57.  
  58.