home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / resour1a / resacc~1.cls
Encoding:
Visual Basic class definition  |  1999-08-29  |  733 b   |  43 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "RES"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10.  
  11.  
  12. Public Function resString(ID As Integer) As String
  13.  
  14. On Error GoTo err
  15.  
  16. resString = LoadResString(ID)
  17.  
  18. Exit Function
  19.  
  20.  
  21. err:
  22.     Resume Next
  23. End Function
  24.  
  25.  
  26. Public Sub resPicture(Frm As Form, dstPictureBox As PictureBox, ID As Integer)
  27. On Error GoTo err
  28. Frm.dstPictureBox.Picture = LoadResPicture(ID, 0)
  29.  
  30. Exit Sub
  31. err:
  32.     Resume Next
  33. End Sub
  34.  
  35. Public Sub resIconFrm(Frm As Form, ID As Integer)
  36. On Error GoTo err
  37. Frm.Icon = LoadResPicture(ID, 1)
  38.  
  39. Exit Sub
  40. err:
  41.     Resume Next
  42. End Sub
  43.