vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Geht mit CopyMem API 
Autor: ModeratorDieter (Moderator)
Datum: 12.02.02 12:51
Hallo Nose,

das ganze lässt sich mittels der API CopyMem bewerkstelligen.

Ein Beispiel: 
<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
 
<font color=#000099>Private</font> <font color=#000099>Declare</font> <font _
  color=#000099>Sub</font> CopyMem <font color=#000099>Lib</font> "kernel32" _
  <font color=#000099>Alias</font> "RtlMoveMemory" _
  (lpvDest <font color=#000099>As</font> Any, lpvSource <font _
  color=#000099>As</font> Any, <font color=#000099>ByVal</font> cbCopy <font _
  color=#000099>As</font> <font color=#000099>Long</font>)
 
<font color=#000099>Const</font> MAX_NUMBER_REF_SETS = 5
 
<font color=#000099>Private</font> <font color=#000099>Type</font> _
  GReferenceType
  UserName <font color=#000099>As</font> <font color=#000099>String</font>
  Password <font color=#000099>As</font> <font color=#000099>String</font>
<font color=#000099>End</font> <font color=#000099>Type</font>
 
<font color=#000099>Private</font> <font color=#000099>Type</font> _
  HReferenceType
  ReferenceName <font color=#000099>As</font> <font color=#000099>String</font>
  Password <font color=#000099>As</font> <font color=#000099>String</font>
<font color=#000099>End</font> <font color=#000099>Type</font>
 
<font color=#000099>Private</font> <font color=#000099>Type</font> _
  ReferenceSetType
  HRef(1 <font color=#000099>To</font> MAX_NUMBER_REF_SETS) <font _
  color=#000099>As</font> GReferenceType
  GRef(1 <font color=#000099>To</font> MAX_NUMBER_REF_SETS) <font _
  color=#000099>As</font> HReferenceType
<font color=#000099>End</font> <font color=#000099>Type</font>
 
<font color=#000099>Dim</font> A <font color=#000099>As</font> ReferenceSetType
<font color=#000099>Dim</font> B <font color=#000099>As</font> ReferenceSetType
 
 
<font color=#000099>Private</font> <font color=#000099>Function</font> _
  ConvertUDT(oUDT <font color=#000099>As</font> ReferenceSetType) <font _
  color=#000099>As</font> <font color=#000099>String</font>
  <font color=#000099>Dim</font> S <font color=#000099>As</font> <font _
  color=#000099>String</font>
  S = Space(Len(oUDT))
  CopyMem <font color=#000099>ByVal</font> S, oUDT, Len(oUDT)
  ConvertUDT = S
<font color=#000099>End</font> <font color=#000099>Function</font>
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Command1_Click()
  A.GRef(1).Password = "Dieter"
  B.GRef(1).Password = "Dieter"
 
  <font color=#000099>If</font> ConvertUDT(A) = ConvertUDT(B) <font _
    color=#000099>Then</font>
    MsgBox "Stimmt überein"
  <font color=#000099>Else</font>
    MsgBox "leider nicht!"
  <font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Komplexe Datentypen vergleichen55Noseman12.02.02 12:20
Geht mit CopyMem API486ModeratorDieter12.02.02 12:51
Re: Geht mit CopyMem API114Noseman12.02.02 13:58
Re: Geht mit CopyMem API360unbekannt12.02.02 14:27
Danke ! o.T.55Noseman12.02.02 15:05

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel