ab.com コミュニティ

全ての表示時間は UTC+09:00 です

IntegerとLongの構造体

返信する

ユーザー名:

件名:

メッセージ本文:
メッセージを入力してください。60000 字まで入力できます。

フォントサイズ:
	フォントカラー
[quote=山本 post_id=6685 time=1160036666 user_id=2] ご報告ありがとうございます。 7さんの仰るとおり、メンバオフセットの計算モジュールの不具合により、型サイズが正常に判定されておりませんでした。次回のバージョンアップで修正いたしますので、今しばらくお待ちください。 [/quote]

オプション:

BBCode: ON

[img]: ON

[flash]: OFF

[url]: ON

スマイリー: OFF

	BBCode を無効にする
	URL を自動的にパースしない

クイズ

お手数ですがカタカナで「エービー」と4文字を入力してください。:
答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。

トピックのレビュー - IntegerとLongの構造体

作成者

メッセージ

山本

記事の件名:

引用付きで返信する

ご報告ありがとうございます。

7さんの仰るとおり、メンバオフセットの計算モジュールの不具合により、型サイズが正常に判定されておりませんでした。

次回のバージョンアップで修正いたしますので、今しばらくお待ちください。

投稿記事

Posted: 2006年10月05日(木) 17:24

記事の件名:

Re: IntegerとLongの構造体

引用付きで返信する

コード:

Type TESTD2
	a as Integer
	b as Long
End Type

Sub MainWnd_CommandButton1_Click()
	Dim test2 = [3,11] as TESTD2

	Debug

	Stest(VarPtr(test2))
End Sub

こうしてみた所、初期化代入(?)の時点で値が正しく代入されてないことが分かります。(Ver.5.0 CP3で確認)

Integer型で正しく代入されないならWord型も代入されないんじゃないかと思ったらそうでした。

コード:

Type TESTD2
	a as Word
	b as Long
End Type

Sub MainWnd_CommandButton1_Click()
	Dim test2 = [3,11] as TESTD2

	Debug

	Stest(VarPtr(test2))
End Sub

型のサイズが問題なんでしょうかね。

投稿記事

Posted: 2006年10月03日(火) 17:07

初学者

記事の件名:

IntegerとLongの構造体

引用付きで返信する

v4.24(WindowsMe)

IntegerとLongの構造体を定義して、たとえば、フォームにボタンを配置し、下のようにした場合、Longの方の値が正しくなりません。
初学者なのでプログラムが間違っているかもしれず、また、前のバージョンでのものですが、一応報告しておきます。

コード:

type TESTD2
	a as Integer
	b as Long
End Type

Sub MainWnd_CommandButton1_Click()
	Dim test2 = [3,11] as TESTD2
	Stest(VarPtr(test2))
End Sub

Sub Stest(t as *TESTD2)
	Dim n as String
	
	n = Str$(t->b)
	MessageBox(hMainWnd,StrPtr(n),0,0)
End Sub

投稿記事

Posted: 2006年10月03日(火) 02:22

掲示板トップ » »

全ての表示時間は UTC+09:00 です