>>793 比較的単純なルーチンでも発生。 Private Function GetIDInfo(nIDButton as Long, IselectPartsNo As Long, PatsTypeString as String, PatsTypeNoLong as Long ) as Long Dim as Long IAA
IselectPartsNo = 0 IF (CommonEriaIniFig = 2) then For IAA = 1 To PartsTSU If (PartsID(IAA) = nIDButton) Then IselectPartsNo = IAA PatsTypeString = PatysTypeString(IAA) PatsTypeNoLong = PatysTypeNoLong(IAA) 'Exit For end if Next IAA else 'Fun taka06SW_CommonEriaIni() 未実行に付この処理ができない EndIf MessageBox(TakaHWND, "Hello "+Str$(nIDButton)+", "+Str$(IselectPartsNo)+", "+Str$(PatsTypeString)+", "+Str$(PatsTypeNoLong
