home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD772.psc / BugsFixed1.txt < prev    next >
Encoding:
Text File  |  1999-09-06  |  711 b   |  37 lines
  1. If you want fix the problem with the RIGHT function do the following:
  2.  
  3. Replace this code in the Balloon Tip User control:
  4.  
  5. Enum TextAlignValue
  6.     Left = 0
  7.     Center = 1
  8.     Right = 2
  9. End Enum
  10.  
  11. with this:
  12.  
  13. Enum TextAlignValue
  14.     To_Left = 0
  15.     To_Center = 1
  16.     To_Right = 2
  17. End Enum
  18.  
  19. and change the m_def_TextAlign constant with:
  20.  
  21. Const m_def_TextAlign = To_Left
  22.  
  23. and in the DrawLabel Subrutine of the BalloonMod.Bas
  24.  
  25. Replace:
  26.     If TipCtrl.TextAlign = Left Then
  27.         lngFormat = lngFormat Or DT_LEFT
  28.     ElseIf TipCtrl.TextAlign = Center Then
  29.     ...
  30. with:
  31.  
  32.     If TipCtrl.TextAlign = To_Left Then
  33.         lngFormat = lngFormat Or DT_LEFT
  34.     ElseIf TipCtrl.TextAlign = To_Center Then
  35.  
  36.  
  37.