home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / various / vbptr / vbsourc.txt < prev   
Text File  |  1995-02-26  |  2KB  |  59 lines
  1. DefInt A-Z
  2.  
  3. Declare Function GetDosEnvironment& Lib "Kernel" ()
  4.  
  5. 'This is a Win API function that returns the length of a
  6. 'null-terminated string or LPSTR
  7. Declare Function LStrLen Lib "Kernel" (ByVal LPSTR&)
  8.  
  9. 'This function returns a VB string from a long pointer to
  10. 'a buffer which can be an LPSTR, or just a pointer to memory
  11. Declare Function LP2Str$ Lib "VBPOINT.DLL" (LP As Any, ByVal pLen)
  12.  
  13. 'This sub will copy bytes from one address to another
  14. Declare Sub Str2LP Lib "VBPOINT.DLL" (SP As Any, DP As Any, ByVal nBytes)
  15.  
  16.  
  17.  
  18. Sub Command1_Click ()
  19.     MyPointer& = GetDosEnvironment&()
  20.     MyLen = LStrLen(MyPointer&)
  21.     Do
  22.         MyString$ = LP2Str$(ByVal MyPointer&, MyLen)
  23.         List1.AddItem MyString$
  24.         MyPointer& = MyPointer& + MyLen + 1
  25.         MyLen = LStrLen(MyPointer&)
  26.     Loop Until MyLen = 0
  27. End Sub
  28.  
  29. Sub Command2_Click ()
  30.     Text$ = InputBox$("Enter an integer value to convert:", "Test MKI$ & CVI")
  31.     TestInt = Val(Text$)
  32.     rMKI$ = MKI$(TestInt)
  33.     lInt = Asc(Left$(rMKI$, 1))
  34.     rInt = Asc(Right$(rMKI$, 1))
  35.     Mess$ = "Chr$(" + Str$(lInt) + ") + Chr$ (" + Str$(rInt) + ")"
  36.     MsgBox Mess$, 0, "Converted to a string"
  37.     NewInt = CVI(rMKI$)
  38.     MsgBox Str$(NewInt), 0, "And converted back..."
  39. End Sub
  40.  
  41. Function CVI (IntStr$)
  42.     Str2LP ByVal IntStr$, Temp, 2
  43.     CVI = Temp
  44. End Function
  45.  
  46. Function CVL (LongStr$) As Long
  47.     Str2LP ByVal LongStr$, Temp&, 4
  48.     CVL = Temp&
  49. End Function
  50.  
  51. Function MKI$ (ShortInt)
  52.     MKI$ = LP2Str$(ShortInt, 2)
  53. End Function
  54.  
  55. Function MKL$ (LongInt&)
  56.     MKL$ = LP2Str$(LongInt&, 4)
  57. End Function
  58.  
  59.