home *** CD-ROM | disk | FTP | other *** search
/ The Mother of All Windows Books / CD-MOM.iso / cd_mom / newsletr / vbz / vbz1-3 / marq2.bas < prev    next >
BASIC Source File  |  1992-04-24  |  1KB  |  38 lines
  1. DefInt A-Z
  2.  
  3. Global Const AppName$ = "Marq II"
  4.  
  5. Sub CleanUp ()
  6.     Unload frmsave
  7.     
  8. End Sub
  9.  
  10. Sub InitSave ()
  11.     frmsave.timSave.Interval = 100
  12.     frmsave.timSave.Enabled = True
  13.     frmsave.Show
  14.     
  15.     frmsave!txtSaverText.Text = GetSSIniString("SaverText", "Screen Saver Wizard")
  16.     
  17. 'Make the form font the same as the textbox
  18.     frmsave.FontName = frmsave!txtSaverText.FontName
  19.     frmsave.FontSize = frmsave!txtSaverText.FontSize
  20.     
  21. 'See how wide an "M" would be on the form, and multiply
  22. 'that width by the number of chars in the textbox.
  23.     
  24. 'That would be the absolute max width the textbox
  25. 'needs to be to show its text
  26.     twidth = Len(frmsave!txtSaverText.Text) * frmsave.TextWidth("M")
  27.     frmsave!txtSaverText.Width = twidth
  28.    
  29.    
  30. End Sub
  31.  
  32. Sub TimerProc ()
  33.     timetogo = False
  34.     frmsave!txtSaverText.Left = frmsave!txtSaverText.Left + 50
  35.     If frmsave!txtSaverText.Left >= frmsave.ScaleWidth Then frmsave!txtSaverText.Left = -frmsave!txtSaverText.Width
  36. End Sub
  37.  
  38.