🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: microsoft.public.vb.com
Article #1

Re: How to use pointers in VB 6

#1
From: noNO
Date: Sun, 02 Jul 2000 00:00
93 lines
4237 bytes
This is a multi-part message in MIME format.

------=_NextPart_000_0037_01BFE442.0BDAB400
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

From the MSDN library:


   Declare Function PtrToStr Lib "Kernel32" Alias "lstrcpyW" _
   (RetVal As Byte, ByVal Ptr As Long) As Long

   Declare Function StrToPtr Lib "Kernel32" Alias "lstrcpyW" _
   (ByVal Ptr As Long, Source As Byte) As Long

   Declare Function PtrToInt Lib "Kernel32" Alias "lstrcpynW" _
   (RetVal As Any, ByVal Ptr As Long, ByVal nCharCount As Long) As Long

   Declare Function StrLen Lib "Kernel32" Alias "lstrlenW" _
   (ByVal Ptr As Long) As Long

Should check MSDN for more details.

  "Minicooper News" <Minicooper@quadrat.be> wrote in message =
news:7L4Z4.26$HX3.1588@nreader1.kpnqwest.net...
  Is there a possibility to use pointers in a VB application ? If so, =
how ?
  Where can i find info about this ?

  mailto: minicooper@quadrat.be


------=_NextPart_000_0037_01BFE442.0BDAB400
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2920.0" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#c0dcc0>
<DIV><FONT face=3DArial size=3D2>From the MSDN library:</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2><BR>&nbsp;&nbsp; Declare Function =
PtrToStr Lib=20
"Kernel32" Alias "<FONT color=3D#ffffff=20
style=3D"BACKGROUND-COLOR: #0a246a">lstrcpyW</FONT>" _<BR>&nbsp;&nbsp; =
(RetVal As=20
Byte, ByVal Ptr As Long) As Long<BR><BR>&nbsp;&nbsp; Declare Function =
StrToPtr=20
Lib "Kernel32" Alias "<FONT color=3D#ffffff=20
style=3D"BACKGROUND-COLOR: #0a246a">lstrcpyW</FONT>" _<BR>&nbsp;&nbsp; =
(ByVal Ptr=20
As Long, Source As Byte) As Long<BR><BR>&nbsp;&nbsp; Declare Function =
PtrToInt=20
Lib "Kernel32" Alias "lstrcpynW" _<BR>&nbsp;&nbsp; (RetVal As Any, ByVal =
Ptr As=20
Long, ByVal nCharCount As Long) As Long<BR><BR>&nbsp;&nbsp; Declare =
Function=20
StrLen Lib "Kernel32" Alias "lstrlenW" _<BR>&nbsp;&nbsp; (ByVal Ptr As =
Long) As=20
Long<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Should check MSDN for more =
details.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;</DIV></FONT>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV>"Minicooper News" &lt;<A=20
  href=3D"mailto:Minicooper@quadrat.be">Minicooper@quadrat.be</A>&gt; =
wrote in=20
  message <A=20
  =
href=3D"news:7L4Z4.26$HX3.1588@nreader1.kpnqwest.net">news:7L4Z4.26$HX3.1=
588@nreader1.kpnqwest.net</A>...</DIV>
  <DIV><FONT face=3DArial size=3D2>Is there a possibility to use =
pointers in a VB=20
  application ? If so, how ?</FONT></DIV>
  <DIV><FONT face=3DArial size=3D2>Where can i find info about this =
?</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>mailto: <A=20
  =
href=3D"mailto:minicooper@quadrat.be">minicooper@quadrat.be</A></FONT></D=
IV>
  <DIV>&nbsp;</DIV></BLOCKQUOTE></BODY></HTML>

------=_NextPart_000_0037_01BFE442.0BDAB400--
Technical Details
Message-ID: <rjI75.37$T97.1145@nreader1.kpnqwest.net>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <7L4Z4.26$HX3.1588@nreader1.kpnqwest.net>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fcea4,d879730e8abce59d
X-Google-Attributes: gidfcea4,public
X-Google-Thread: 10941f,d879730e8abce59d
X-Google-Attributes: gid10941f,public
From: "noNO" <nono@softhome.net>
Subject: Re: How to use pointers in VB 6
Date: 2000/07/02
Message-ID: <rjI75.37$T97.1145@nreader1.kpnqwest.net>
X-Deja-AN: 641494586
References: <7L4Z4.26$HX3.1588@nreader1.kpnqwest.net>
X-Priority: 3
Content-Type: multipart/alternative; boundary="----=_NextPart_000_0037_01BFE442.0BDAB400"
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
X-Complaints-To: newsmaster@kpnqwest.net
X-Trace: nreader1.kpnqwest.net 962548055 195.0.19.178 (Sun, 02 Jul 2000 16:27:35 MET DST)
Organization: KPNQwest customer news service
X-MSMail-Priority: Normal
MIME-Version: 1.0
NNTP-Posting-Date: Sun, 02 Jul 2000 16:27:35 MET DST
Newsgroups: microsoft.public.vb.com,be.comp.programming