VB6でswab関数と同じ事をする場合 (ID:103366)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > VB6でVC6のswab関数と同じことをするにはどうすればよいでしょうか。 そのものズバリの物は作れません。型を明示した上で Sub swab1_1(ByRef a As Type1, ByRef b As Type1) Sub swab1_2(ByRef a As Type1, ByRef b As Type2) Sub swab2_1(ByRef a As Type2, ByRef b As Type1) Sub swab2_2(ByRef a As Type2, ByRef b As Type2) のようなものを作る事ならばできますけれどね。 一応「同じユーザー定義型同士」もしくは 「同じバイナリサイズのユーザー定義型同士」ならば、 LSet ステートメントを用いてデータをコピーできます。 (異なるサイズの場合、不足した部分のコピーは実施されません) データ構造によっては、これで凌げないかを検討してみてください。 Option Explicit Private Type A X As Byte Y As Byte Z As Integer End Type Private Type B L As Long End Type Private Type C V(0 To 3) As Byte End Type Private Sub Form_Load() Dim A1 As A Dim B1 As B Dim C1 As C A1.X = &H12 A1.Y = &H34 A1.Z = &H5678 LSet B1 = A1 LSet C1 = A1 Debug.Print "A="; Debug.Print Right("00" & Hex(A1.X), 2); Debug.Print Right("00" & Hex(A1.Y), 2); Debug.Print Right("0000" & Hex(A1.Z), 4) Debug.Print "B="; Debug.Print Right("00000000" & Hex(B1.L), 8) Debug.Print "C="; Dim V As Variant For Each V In C1.V Debug.Print Right("00" & Hex(V), 2); Next Debug.Print End Sub いずれにせよ、結論としては >> #include <string.h> >> void swab(const void *from, void *to, size_t n); のようなことはできません。 そもそもVB ではユーザー定義型を受け取るための汎用型がありません。そのため Sub swab(ByRef a As Variant, ByRef b As Variant) Sub swab(ByRef a As Any, ByRef b As Any) のようなプロシージャを用意することができないためです。 「ユーザー定義型」ではなく、レジストリ登録された構造体であれば、 Variant で受けることもできますけれどね。 > byte配列ではなく、構造体をどうswapさせればよいのかが分かりません。 上記以外では、RtlMoveMemory API 等を併用して、メモリコピーを行うぐらいでしょうか。 (あとは、バイナリファイルに Put# して Get# しなおすとか) アライメント調整のパディングが含まれている場合や、参照型を含んだユーザー定義型では 単純コピーというわけにも行かないでしょうけれどね。