>>222 こんないい加減なコードとかどうよ？ｗｗｗ 動作は環境ないから試してないけど private m_ButtonFlag(1 to 3) as long private m_cnt as long
private sub form_load m_cnt = 0 end sub private sub Button1_click m_ButtonFlag(1) = cnt+1 end sub private sub Button2_click m_ButtonFlag(2) = cnt+1 end sub private sub Button3_click m_ButtonFlag(3) = cnt+1 end sub private sub ButtonManage dim i as long for i = 1 to 3 if m_ButtonFlag(i) =0 then exit sub end if next i
if m_ButtonFlag(1)= 1 and m_ButtonFlag(2) = 2 and m_ButtonFlag(3) = 3 then msgbox "ボタンが１２３の順に押されました" end if end sub
private sub Button4_Click erase m_ButtonFlag:m_cnt=0 end sub
