home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / VBasic / STRBMP.ZIP / TEST.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-09-22  |  1.0 KB  |  31 lines
  1. '// Test.bas : VB Demo for STR2BMP.DLL.
  2. '//
  3. '//   Freeware -- Version 1.1   09/20/93
  4. '//
  5. '//   Written by Jorge Monasterio (CIS 72147, 2674)
  6. '//
  7. '//
  8. Option Explicit
  9.    
  10. ' Bitmap to string functions...
  11. Declare Function BMPToString Lib "str2bmp.dll" (ByVal hDC%, ByVal img%) As String
  12.  
  13. ' Bitmap handling functions.
  14. Declare Function StringToBmp Lib "str2bmp.dll" (ByVal a$, ByVal hDC%, ByVal img%) As Long
  15.  
  16. ' To check if bitmap will fit in bitmap...
  17. Declare Function BMP_GetSize Lib "str2bmp.dll" (ByVal img%) As Long
  18.  
  19. ' Functions for operating on bitmaps stored as strings.
  20. Declare Function StringBMP_Compare Lib "str2bmp.dll" (ByVal a$, ByVal b$) As Long
  21. Declare Function StringBMP_Invert Lib "str2bmp.dll" (ByVal a$) As String
  22. Declare Function StringBMP_Or Lib "str2bmp.dll" (ByVal a$, ByVal b$) As String
  23. Declare Function StringBMP_and Lib "str2bmp.dll" (ByVal a$, ByVal b$) As String
  24.  
  25. Sub MakePicture (a$, p As PictureBox)
  26.   Dim ret As Long
  27.   ret = StringToBmp(a$, p.hDC, p.Image)
  28.   If (ret < 0) Then Stop
  29. End Sub
  30.  
  31.