約 5,267,197 件
https://w.atwiki.jp/nicomovie/pages/87.html
内容 あれは1999年の冬.12月の出来ごとです 私には今年結婚したばかりの亭主がいます。亭主の名前は森木勝也さん.私は彼を心から愛し、誰よりも彼のことを理解していました。彼も私のすべてを理解してくれていて.愛し合ってました。幸せとはまさにそのことなのだろうと思うほど私は幸せでした。しかしそんな幸せが突然消えていきます‥‥あの日は寒い12月のこと、私はその日体調を崩し朝から寝込んでいました。彼は私を安じ仕事を休み看病してくれていました。お昼になり体調も回復して来たので昼食にすることにしました。「彼はなにが食べたい?」と聞いてくれたので私は「あなたの作ったオムライスが食べたい」と言いました。彼は「いいよ。あっ!卵切らしてるみたいから買ってくるね。すぐ帰ってくるよ」と、しかしそれから1時間待っても2時間待っても彼は帰ってきません。ついには5時間が過ぎようとしたその時電話がかかってきました。相手は警察の方…「ご主人のことで大事なお話が…署にこれますか?」私は嫌な予感がしました「はい」と答え私は警察署に行きました…署で警察の方は深刻な表情を浮かべてます。 「主人がどうかなせれましたか?」と聞くと警察の方は「…ご主人は亡くなられました」と…えっ!私はなにがなんだか分からなくなり「嘘ですよね?嘘と言ってください…」私は泣き叫び生きる希望を無くした気がしました.死因は通り魔による[焼死]だそうです…彼は生きたままガソリンを掛けられ燃やされたそうです‥「さっきまで‥ついさっきまで私の側にいてくれたのに……私がオムライスなんて食べたいって言うから……」私は自分を攻め同時に犯人への激しい怒りが沸き、できることなら私があの人を殺した犯人を見付けて殺してやりたい…しかし彼はそんなこと絶対望んでないと思い、警察の方が犯人を捕まえ法律で裁いて欲しいと思い直しました。しかし半年、1年、2年が過ぎても犯人は捕まりません…2年間犯人が捕まることだけ考えてきました。しかし警察の方達は犯人は発見できず捜索を止めてしまったのです。私はどうしても犯人を捕まえたい……そこで決意しました。自分の手で犯人を捕まえてあの人と同じ目に合わせてやる。。しかし自分だけでは犯人を見付けるのは難しい、なので暴力団[山口組]に依頼しました。その依頼料は1億円.私にはとうてい払える額ではありませんでしたが、ここまでくればお金なんてどんな手を使ってでも払えます。そしていつか犯人を…(森木美智子さん(25)この文は依頼者の依頼文を山口組(仮組名)が2002年7月1日にネットに流したものです.メールを受けとった方は[※VVWXX102]という機械で本社に登録されます。登録解除の場合メールアドレスを持ってる方10人にメールを回して下さい。犯人を少しでも早く見付けるためです。 注))犯人ではないという方は・必ず・メールを回して下さい。もし万が一止めてしまった方は組員がその方を殺害しに行きます。以前止めた(仮名)吉田純平さん(15)はこの文をチェーンメールと間違え.止めてしまい、組員によって首を切られ殺害されています。(2002年8月20日-中学男子殺害事件)その他にもメールを止めた方は数名いますが、皆[死亡]という結果になってます。したがって犯人の捜索をしていますのでご協力下さいますようお願いいたします》尚、犯人を知ってるという方や事件に関して知ってる、という方は↓↓ ℡XXXXXXXX EmailアドレスXXXXXXXX XXXXXX山口組事務所-までお願いいたします。 ご勝手ながらメールを受け取った皆様に御協力お願いいたします。 ※[VVWXX102]お使いの携帯会社(例aubykDDI社、DoCoMo他等)とのハッキング通信が可能な機械です。したがってメールを止めた方等の情報(名義、年齢、職業、住所等)が全て本社に行きます。 これは全て嘘ですのでご安心を チェーンメールが来たらすべて無視して速やかに削除しましょう コメント 名前 コメント
https://w.atwiki.jp/shin-b/pages/28.html
Public Class Form1 Private bmpBarcode As Bitmap Private arySPreFixPTRN(10) As String プリフィックスパターンストア用 Private frmH As Integer = 0 Private nbarX As Integer = 0 Private nbarY As Integer = 0 Private drawPen As Pen Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load bmpBarcode = New Bitmap(PictureBox1.Width, PictureBox1.Height) PictureBox1.Image = bmpBarcode InitializePreFixPattern() End Sub Private Sub InitializePreFixPattern() ************************************ バーコードの左側プリフィックス対応 奇数/偶数パリティデータ ************************************ arySPreFixPTRN(0) = "111111" arySPreFixPTRN(1) = "110100" arySPreFixPTRN(2) = "110010" arySPreFixPTRN(3) = "110001" arySPreFixPTRN(4) = "101100" arySPreFixPTRN(5) = "100110" arySPreFixPTRN(6) = "100011" arySPreFixPTRN(7) = "101010" arySPreFixPTRN(8) = "101001" arySPreFixPTRN(9) = "100101" End Sub JAN13バーコードを作成() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Not CheckJAN13Digit(MaskedTextBox1.Text) Then BarcodeImageClear() MessageBox.Show("JANコード入力エラー") Else WriteBarcode13(MaskedTextBox1.Text) Dim sbmpFileName As String = Application.StartupPath + "\JAN13BCD" _ + MaskedTextBox1.Text + ".bmp" bmpBarcode.Save(sbmpFileName) 自動的にBMPファイルを作成登録 End If End Sub Private Function MakeJAN13Digit(ByVal sBarcode12 As String) As String ***************************************** MakeJAN13Digit("バーコード12桁文字列") 13桁目のチェックデジットを生成して戻す エラーチックは実施していない ***************************************** Dim nSum As Integer = 0 Dim nI As Integer Dim aryCBarcode() As Char = New Char() {} aryCBarcode = sBarcode12.ToCharArray() 1. すべての偶数位置の数字を加算する。 For nI = 1 To 12 Step 2 nSum = nSum + Integer.Parse(aryCBarcode(nI).ToString()) Next 2. 1の結果を3倍する nSum *= 3 3. すべての奇数位置の数字を加算する。 For nI = 0 To 11 Step 2 nSum = nSum + Integer.Parse(aryCBarcode(nI).ToString()) Next 4. 2の答えと3の答えを加算する。 5. 最後に4の結果の下1桁の数字を"10"から引く。 6. 下1桁が"0"となった場合は、チェックデジットはそのまま"0"となる。 nSum = ((nSum / 10) + 1) * 10 - nSum nSum = Strings.Right(10 - Strings.Right(nSum, 1), 1) Return sBarcode12 + nSum.ToString() End Function Private Function CheckJAN13Digit(ByVal sBarcode13 As String) As Boolean ***************************************** CheckJAN13Digit("バーコード13桁文字列") 13桁目のチェックデジットについて検証 エラー時 falseで戻す ***************************************** If (sBarcode13.Length 13) Then Return False End If If (sBarcode13 MakeJAN13Digit(sBarcode13.Substring(0, 12))) Then Return False End If Return True End Function JAN13バーコードを作成() Private Sub BarcodeImageClear() ***************************************** pictureBox1の描画データをCLEARします グラフィックスオブジェクトを取得し 戻り時破棄しているので他の描画プロシー ジャ内の描画処理の間にこの関数を呼ばな いようにします ***************************************** Dim g As Graphics = Graphics.FromImage(PictureBox1.Image) g.Clear(Color.White) PictureBox1.Refresh() g.Dispose() End Sub Private Sub SetDrawStartPoint() ***************************************** pictureBox1に描画するバーコード線の開始 位置を設定します。 ***************************************** frmH = PictureBox1.Height - 26 nbarX = 14 nbarY = 4 drawPen = New Pen(Color.Black, 1) End Sub Private Sub WriteBarcode13(ByVal sBarcode13 As String) ***************************************** WriteBarcode13("バーコード13桁文字列") 13桁のバーコード数値をパラメータとして 与える。バーコード数値についてチェック 行っていないので事前に CheckJAN13Digit(string sBarcode13)を実 行すること バーコードを描画するメインプロシージャ ***************************************** Dim nI As Integer Dim fGothic10 As Font = New Font("MS ゴシック", 10) Dim aryCBarcode() As Char = New Char() {} aryCBarcode = sBarcode13.ToCharArray() Dim nPreFix = Integer.Parse(aryCBarcode(0).ToString()) Dim PreFixPTRN() As Char = arySPreFixPTRN(nPreFix).ToCharArray() BarcodeImageClear() SetDrawStartPoint() Dim g As Graphics = Graphics.FromImage(PictureBox1.Image) g.DrawString(aryCBarcode(0).ToString(), fGothic10, Brushes.Black, nbarX - 8, frmH + 8) WriteGuardBar(g) For nI = 1 To 6 g.DrawString(aryCBarcode(nI).ToString(), fGothic10, Brushes.Black, nbarX, frmH + 8) WriteEachBarLine(g, aryCBarcode(nI), PreFixPTRN(nI - 1)) Next WriteGuardBar(g) For nI = 7 To 12 g.DrawString(aryCBarcode(nI).ToString(), fGothic10, Brushes.Black, nbarX, frmH + 8) WriteEachBarLine(g, aryCBarcode(nI), "2") Next WriteGuardBar(g) PictureBox1.Refresh() g.Dispose() End Sub JAN13バーコードを作成() Private Sub WriteGuardBar(ByVal g As Graphics) ***************************************** バーコードのガードバーを描画する。 両端と中央に縦線を入れる WriteBarcode13(string sBarcode13) から 呼ばれる ***************************************** nbarX = nbarX + 2 For nI = 0 To 1 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH + 16) nbarX = nbarX + 4 Next End Sub Private Sub WriteEachBarLine(ByVal g As Graphics, ByVal cPos As Char, ByVal cPattern As Char) ***************************************** バーコード数値に応じた各バーコード線を 描画するプロシージャへの分岐を担当 WriteBarcode13から呼ばれる ***************************************** Select Case cPos Case "0" WriteBcd0(g, cPattern) Case "1" WriteBcd1(g, cPattern) Case "2" WriteBcd2(g, cPattern) Case "3" WriteBcd3(g, cPattern) Case "4" WriteBcd4(g, cPattern) Case "5" WriteBcd5(g, cPattern) Case "6" WriteBcd6(g, cPattern) Case "7" WriteBcd7(g, cPattern) Case "8" WriteBcd8(g, cPattern) Case "9" WriteBcd9(g, cPattern) End Select End Sub Private Sub WriteBcd0(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (0)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 8 Case "1" nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 10 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 End Select End Sub Private Sub WriteBcd1(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (1)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 Case "1" nbarX = nbarX + 2 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 End Select End Sub Private Sub WriteBcd2(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (2)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" nbarX = nbarX + 2 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 Case "1" nbarX = nbarX + 2 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 8 End Select End Sub Private Sub WriteBcd3(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (3)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 10 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "1" g.FillRectangle(Brushes.Black, nbarX, nbarY, 8, frmH) nbarX = nbarX + 10 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 End Select End Sub Private Sub WriteBcd4(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (4)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" nbarX = nbarX + 2 g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "1" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 10 End Select End Sub Private Sub WriteBcd5(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (5)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 10 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "1" g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 10 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 8 End Select End Sub Private Sub WriteBcd6(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (6)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "1" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 8, frmH) nbarX = nbarX + 10 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 10 End Select End Sub Private Sub WriteBcd7(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (7)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" nbarX = nbarX + 2 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "1" g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 6 End Select End Sub Private Sub WriteBcd8(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (8)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "1" g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 8 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 8 End Select End Sub Private Sub WriteBcd9(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (9)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" nbarX = nbarX + 2 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 8 Case "1" nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 6 End Select End Sub End Class
https://w.atwiki.jp/bladekronicle/pages/31.html
管理人に悪質だと判断された人を悪質な人として晒す理由は、想定外のことをする人がいたときのためです^q^
https://w.atwiki.jp/kimikage/pages/123.html
xml形式でclassをファイルに書き込み&読み込み。 using Microsoft.Win32; using System; using System.Collections.Generic; using System.IO; using System.Linq; using System.Windows; using System.Xml.Serialization; namespace WpfApp { /// summary /// MainWindow.xaml の相互作用ロジック /// /summary public partial class MainWindow Window { /// summary /// ファイルのフィルタ /// /summary private const string FILTER = "*.test|*.test"; /// summary /// 設定のproperty /// /summary private ValuesClass FormParams { get { return new ValuesClass() { Val1 = (int)cmbVal1.SelectedValue, Val2 = txtVal2.Text, Val3 = (bool)chkVal3.IsChecked, }; } set { if (value != null) { cmbVal1.SelectedValue = value.Val1; txtVal2.Text = value.Val2; chkVal3.IsChecked = value.Val3; } } } /// summary /// コンストラクタ /// /summary public MainWindow() { // コンポーネントの初期化 InitializeComponent(); InitCmb(); } /// summary /// open file button click /// /summary /// param name="sender" /param /// param name="e" /param private void BtnLoad_Click(object sender, RoutedEventArgs e) { OpenFile(); } /// summary /// save file button click /// /summary /// param name="sender" /param /// param name="e" /param private void BtnSave_Click(object sender, RoutedEventArgs e) { SaveFile(); } /// summary /// XMLファイルの読み込み /// /summary private void OpenFile() { try { OpenFileDialog openFileDialog = new OpenFileDialog(); openFileDialog.Filter = FILTER; openFileDialog.ShowDialog(this); // ファイルが選択されているか? if (openFileDialog.FileNames.Length 0) { // ファイルをOPEN using (FileStream stream = File.Open(openFileDialog.FileNames.First(), FileMode.Open)) { XmlSerializer serializer = new XmlSerializer(typeof(ValuesClass)); FormParams = (ValuesClass)serializer.Deserialize(stream); } MessageBox.Show(string.Format("\"{0}\"から設定ファイルを読み込みました。", openFileDialog.FileNames.First())); } } catch (Exception e) { MessageBox.Show(e.Message); } } /// summary /// XMLファイルの保存 /// /summary private void SaveFile() { try { SaveFileDialog saveFileDialog = new SaveFileDialog(); saveFileDialog.Filter = FILTER; saveFileDialog.ShowDialog(this); // ファイルが選択されているか? if (saveFileDialog.FileNames.Length 0) { // 上書きモードでファイルをOPEN using (FileStream stream = File.Open(saveFileDialog.FileNames.First(), FileMode.Create)) { XmlSerializer serializer = new XmlSerializer(typeof(ValuesClass)); serializer.Serialize(stream, FormParams); } MessageBox.Show(string.Format("設定ファイルを\"{0}\"へ保存しました。", saveFileDialog.FileNames.First())); } } catch (Exception e) { MessageBox.Show(e.Message); } } /// summary /// コンボボックスの初期化 /// /summary private void InitCmb() { Dictionary int, string dic = new Dictionary int, string { {1, "あ"}, {2, "い"}, {3, "う"}, }; // binding cmbVal1.ItemsSource = dic; cmbVal1.DisplayMemberPath = "Value"; cmbVal1.SelectedValuePath = "Key"; cmbVal1.SelectedIndex = 0; } /// summary /// XMLで読み書きするclass /// /summary public class ValuesClass { public int Val1 { get; set; } public string Val2 { get; set; } public bool Val3 { get; set; } } } } サンプルソース
https://w.atwiki.jp/tvsponsor/pages/2879.html
大忠臣蔵(NETテレビ)(1971.01〜12) 2'00"...トヨタ自動車、三菱石油、SONY
https://w.atwiki.jp/etvip/pages/182.html
@ISDNVIP ナローバンド+低スペッコで色々ちまちまやってます。 TKとかみんなに迷惑掛けてるけど優しくしてくれたりして ありがとう。 活動場所は無印です。anko行ってみたいけど 自分のpcの不具合みたいで入れナス。 その優しさを次に伝えるのじゃフォッフォッフォ
https://w.atwiki.jp/atachi/pages/105.html
BitmapImageクラスで画像を読み込むことは出来ましたが、画像を書き込むことはできません。 画像の書き込み方法 BitmapImage(BitmapSource)をファイルに書き出すにはSystem.Windows.Media.Imaging.BitmapEncoderを使用します。 .NET Frameworks4では次の画像形式へのエンコーダーがサポートされています。 BmpBitmapEncoder BMP形式へエンコード GifBitmapEncoder GIF形式へエンコード JpegBitmapEncoder JPEG形式へエンコード PngBitmapEncoder PNG形式へエンコード TiffBitmapEncoder TIFF形式へエンコード WmpBitmapEncoder WMP形式(*1)へエンコード BitmapImageで読み込んだPNG画像ファイルをBMP形式で出力するサンプルコードです。 BitmapImage image = new BitmapImage(new Uri("MyData.png")); using(FileStream output = new FileStream(@"c \MyData.bmp",FileMode.Create)){ BmpBitmapEncoder enc = new BmpBitmapEncoder(); enc.Frames.Add(image); enc.Save(output); }
https://w.atwiki.jp/hokiichi/pages/26.html
※情報は、自由にお書き込み(または修正)下さい(書込みには@wikiへの登録が必要です)。 ※2006年2月20日現在の情報です。その後変更の可能性、または情報の誤りの可能性がありますので、必ず事前に会場までご確認下さい。 ▼3月10日 The Warrior Celt(上野) Orphan(PAN-Celtic) 20 00~(?) http //www.warriorcelt.com/page_j.htm 03-3836-8588 四ツ谷モリガンズ(四ツ谷) セッション with 南浦和ケーリーバンド 20 00~ Tel 03-3512-2597 ▼3月11日 McCann s Irish Bar(武蔵小杉) アフターパレード・セッション 18 00頃~ Tel 044-711-1761 http //www12.plala.or.jp/McCANNS/ Benny s Place(石川町) After Parade Party 16 30頃~ TEL 045-671-0818 http //www.bennysplace.net/ ※ セントパトリックデーパレード横浜元町のパレード終了後のパーティーです。詳細については別途ご報告します。 ▼3月12日 Cafe Muriwui (カフェ・ムリウイ)(祖師ヶ谷大蔵) アイルランド伝統音楽~東クレア・フィークル村の調べ~ 18 30~ 丸田 瑠香(コンサーティーナ)、柏木 幸雄(フィドル、ブズーキ) ゲスト:飯田 知子(フルート) TEL 03-5429-2033 http //www.ne.jp/asahi/cafe/muriwui/ ※入場自由・投げ銭制 ザ・シャノンズ(大崎) Whistling Breeze Live 18 00~21 00 安井 敬(ホイッスル)、庄司祐子(ホイッスル、キーボード)、畑内 浩(ギター) http //www.avalon-intl.co.jp/shannons/ TEL 03-5437-5779 ▼3月15日 ダブリナーズ渋谷 Cashell Live 20 00~ Tel 03-5459-1736 ダブリナーズ新宿 Fukae&Nakafuji Live 20 00~ Tel 03-3352-6606 The Warrior Celt(上野) フリーセッション 20 00~ http //www.warriorcelt.com/page_j.htm 03-3836-8588 ▼3月16日 ダブリナーズ渋谷 Fukae Nakafuji Live 20 00~ Tel 03-5459-1736 ダブリナーズ新宿 Brendan Bill Chris Hoskins Live 20 00~23 00 Tel 03-3352-6606 ※懐かしい旧アイリーナギレーネメンバーのライブです。 ▼3月17日 ダブリナーズ品川 祝♪センパト・セッション 20 00頃~ Tel 03-6718-2834 ダブリナーズ新宿 Ken Sakamoto Live 20 00~ Tel 03-3352-6606 ダブリナーズ渋谷 Paddy Field Live 20 00~ Tel 03-5459-1736 渋谷 CLUB asia st.patrick s day『THE WILD ROVER』 open 18 30/start 18 30 前売 \2500/当日\3000 http //www.clubasia.co.jp/ ※イベントのフライヤー持参で前売り料金にて入場可! ミュージシャン THE CHERRY COKE$ Royal SHAMROCK JUNIOR session with アイリーナ ギレーネ THE MOON STOMPERS NANCY WHISKY Bagpiper-KOHEY、虎次郎 DJ-HIDETO、KIRK、KIMIYOSHI、KAKEI 、鉄魂 and more ダブリナーズ池袋 Orphan(Pan-Celtic Music) Live 20 00~ TEL 03-5951-3614 http //www.ginzalion.jp/news/evnt_200511.html ▼3月18日 新宿CLUB WIRE Shane[シェイン]THE POGUES:堕ちた天使の詩 DVD発売記念Party!! OPENSTART 20 00 前売¥2500 当日:¥2800 w/2drink LIVE: CLOVERS / Mt.Piots / LITTLE DOG WALTZ ACOUSTIC LIVE:CHERRY COKES/ROYAL SHAMROCK DJ:DRINK ‘EM ALL CREW/ HIGH JINKS CREW/F.E.G.A. CREW TEL 03-3207-6953 The Roundstone(天王洲アイル) Heathery Breeze Live 18 00~21 00 http //www.avalon-intl.co.jp/roundstone/ TEL/FAX 03-5796-2848 Paddy Foley s(六本木) Irish Dance Session with CELTIC SPICE 21 00~ Tel 03-3423-2250 http //www.paddyfoleystokyo.com/ ※引き続きAM2 30~ 6ヶ国対抗ラグビー、アイルランド対イングランドを放映 ダブリナーズ新宿 Cashell Live 20 00~ Tel 03-3352-6606 Clann (自由が丘) PADDY FIELD Live 20 00~ http //www.clann-irishpub.com/ Tel 03-3725-9116 The Dubliners Cafe Pub 渋谷 The Ash Grove Live 20 00~23 00 内野 貴文・沢村 淳子・沢村 拓 TEL 03-5459-1736 ザ・シャノンズ(大崎) Bird Live 19 00~22 00 http //www.avalon-intl.co.jp/shannons/ TEL 03-5437-5779 ▼3月19日 Paddy Foley s(六本木) Session with CASHEL 18 00~ After the Parade Dance Party 21 00~ Tel 03-3423-2250 http //www.paddyfoleystokyo.com/ ダブリナーズ新宿 Paddy Field Live 19 00~ Tel 03-3352-6606 ダブリナーズ渋谷 Brendan Bill Chris Hoskins Live 18 00~21 00 Tel 03-5459-1736 ※旧アイリーナギレーネメンバーによるライブです。 Duffy s 銀座 CCEジャパン主催 ダンシングセッション 19 00~22 00頃 Tel 03-3289-1601 http //www.comhaltas-jp.com/ The Warrior Celt(上野) フリーセッション 20 00~ http //www.warriorcelt.com/page_j.htm 03-3836-8588 ライブ・セッション情報 Dear Little ShamrockのIrish Live Boardに登録された情報を基に作成しました。
https://w.atwiki.jp/anti-spam/pages/7.html
アーカイブ @wikiのwikiモードでは #archive_log() と入力することで、特定のウェブページを保存しておくことができます。 詳しくはこちらをご覧ください。 =>http //atwiki.jp/guide/25_171_ja.html たとえば、#archive_log()と入力すると以下のように表示されます。 保存したいURLとサイト名を入力して"アーカイブログ"をクリックしてみよう サイト名 URL
https://w.atwiki.jp/antispam/pages/21.html
悪質ワンクリ業者を晒し通報するスレ 過去ログ 下の「添付ファイル」を御参照下さい。