C#|WPFアプリケーションにてマウスイベントが拾えない問題

まず問題のコード

【XAML】Window1.xaml

<Window x:Class="WpfApplication1.Window1"

    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

    Title="Window1" Height="300" Width="300">

    <Grid MouseLeftButtonDown="Grid_MouseLeftButtonDown">

        

    </Grid>

</Window>

【C#】Window1.xaml.cs

using System.Windows;

using System.Windows.Input;

namespace WpfApplication1 {

    /// <summary>

    /// Window1.xaml の相互作用ロジック

    /// </summary>

    public partial class Window1 :Window {

        public Window1() {

            InitializeComponent();

        }

        private void Grid_MouseLeftButtonDown(object sender, MouseButtonEventArgs e) {

            MessageBox.Show("Clicked!");

        }

    }

}

フォームをクリックしても何も起こらない。

しかし、Window1.xamlをこうすると…

【XAML】

<Window x:Class="WpfApplication1.Window1"

    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

    Title="Window1" Height="300" Width="300">

    <Grid MouseLeftButtonDown="Grid_MouseLeftButtonDown" Background="White">

        

    </Grid>

</Window>

GridのBackgroundプロパティにWhiteを指定している。

こうすると意図した通りにメッセージボックスが表示される。

また、Window1.xamlではなくWindow1.xaml.csのコンストラクタで

GridのBackgroundにBrushes.Whiteを指定してもメッセージボックスが表示された。

色が無いコントロールはマウスイベントを拾えない!?仕様なのかバグなのか…。

C#|WPFブラウザアプリケーション(XBAP)で製作したWindows用タスクバー時計

JavaScriptで製作したWindows用タスクバー時計なんてページを見付けたので、それなら僕はXBAPでってことでやってみました。いかに.NETが楽かってことを見せ付けてやろうかと(誰にだ?)。

手順は簡単。VSでWPFブラウザアプリケーションのプロジェクトを作ったらPageにLabelを置いてこんな感じでコーディングします。

using System;
using System.Windows.Controls;
namespace clock {
  public partial class Page1 :Page {
    System.Threading.Thread thread;
    public Page1() {
      InitializeComponent();
      thread = new System.Threading.Thread(loop);
      thread.IsBackground = true;
      thread.Start();
    }
    private void loop() {
      while(true) {
        this.Dispatcher.Invoke(new System.Threading.ThreadStart(update), null);
        System.Threading.Thread.Sleep(1000);
      }
    }
    private void update(){
      this.label1.Content = DateTime.Now.ToString("yy/M/d(ddd)H:mm");
    }
  }
}

う~ん、Javascriptの方が簡単だったかも…。

こんな感じでタスクバーに時計が表示されます。

clockss[1]

そのうちSilverlightでもやってみたいですね。Javascriptでいいだろって突っ込みは無しで…。

C#|暇だからトランプゲームとか作ってみた

こんなん作ってみた。あれ、あのトランプの、スピードってゲーム。

https://anis774.net/Application/speed/publish.htm

適当に書いてたらコードがgdgd…。もう少しかっこよくしたいけど、コードいぢるの怖い…。

カオスなので今回はソースコードなし。

そしてClickOnceで配布してみる。これ楽でいいかも。

60FPSでゲームループ回してるのでCPU使用率が凄いことになってるけど、仕様です。

ループ回さないでキーイベント拾って、COMのAIは別スレッドかタイマーコントロールかなんか使えばいい感じのコードになったかも。

C#|突然Twitterに投稿出来なくなった

 日頃から愛用しているコマンド入力型のアプリケーションランチャーから呼び出せる様にC#で書いたTwitterのステータス投稿プログラムが、

ハンドルされていない例外: System.Net.WebException: リモート サーバーがエラーを返しました: (417) Expectation Failed

とか吐いて使えなくなった。

 今までは期待どうりステータスを投稿出来ていたのに…。困りました。

using System;

using System.Collections.Specialized;

using System.Net;

using System.Text;

class Program {

static void Main(string[] args) {

WebClient client = new WebClient();

client.Encoding = Encoding.UTF8;

client.Credentials = new NetworkCredential(args[0], args[1]);

NameValueCollection nvc = new NameValueCollection();

nvc.Add("status", args[2]);

byte[] res = client.UploadValues("http://twitter.com/statuses/update.xml", nvc);

string resStr = Encoding.UTF8.GetString(res);

client.Dispose();

Console.WriteLine(resStr);

}

}

C#|TwitterのAPIを叩くライブラリを作ってみた2

 ここまで出来ましたよ~って感じの進捗報告のつもりでUP

TwitterClient.zip

 少しは使えるようになって来たと思います。Webから色々引っ張ってくるときの作法とか良く知らないので、動いてはいるけど正しいかは自信が無いです。

 まだテストしてないところとか、ちゃんと動かない部分とかコメント付けてるので、利用前に必ず確認、修正して下さいね。

 こんな汚いコード読めねぇよ!って人の為にヒント

using System;
using System.Collections.Generic;
using System.Linq;
using Anis.Twitter.Api;
class Program {
  static void Main(string[] args) {
    Methods twitterClient = new Methods("ユーザーID", "パスワード");
    var timeLine = from status in twitterClient.GetFriendsTimeline()
                    orderby status.Id
                    select status;
    foreach(var status in timeLine) {
      Console.WriteLine("{0}\t{1}\t{2}\n\t{3}",
        status.User.Screen_name,
        status.Created_at,
        status.Id,
        status.Text);
    }</p>
  }</p>
}</p>

こんなに簡単にタイムライン取ってこれるんですよ。

C#|TwitterのAPIを叩くライブラリを作ってみた

 Twitter始めました。Twitterの先輩がいましたら是非是非followして下さい。

http://twitter.com/anis774

TwitterはWebAPIを公開しているとのことで、それを利用したクライアントも多数あります。その中でもJavaで実装されたPeraPeraPrvが気に入ったので導入しました。

でもやっぱり、サンデーヘボグラマなら自分で作ってみたくなりますよね。さらに楽して作りたいとも思う筈です。面倒なことはしたくないですよね。

そこでライブラリを探したところ、

http://devblog.yedda.com/index.php/twitter-c-library/

こんなのを見付けました。なんだ英語じゃないですか。英語怖いよ、英語怖い。でも恐る恐るDLしてソースを読んでみると、読めるじゃないですか。英語は読めないけどC#は読めるって当たり前の話でした。短いソースコードだったのでさらっと読んで…捨てました。オプションの引数の指定とか全く出来ないんですもん。サンプルとしては参考になるのでしょうけど、そのまま実用にはなりませんね。実はサンプルなのかも知れませんが…、英語読めないから分かりません。

やはり自分で書くしかないと…。書きました。ここを参考にしました。

http://watcher.moe-nifty.com/memo/docs/twitterAPI13.txt

ここの『ステータス関連のAPI』の実装が出来たので、実際に動くサンプルのビューアと、コマンド形式のランチャから呼び出して使える投稿プログラムを書いて見ました。

疲れたのでひとまず公開します。何の反響も無ければこれで終わりにします。反響があれば少しだけやる気が出るかも。むしろ誰かが完成させて公開してくれると嬉しいかも。そう言う意味で、恥ずかしいけどソース付きです。

煮るなり焼くなり好きにして下さい。

TwitterClient.zip

VB.NET|任意のタイミングでキーボードの状態を取得

 フレームごとに計算をするゲームのプログラムなんかだと、イベント発生時以外にキーボードの状態を取得したいと思うでしょう。

 そこで通常ならDirectInputを使うのでしょうが、あえて使わないで解決してみようと書いたコードがこれ。今回はVB2005です。

Imports System.Windows.Forms

Module KeysState

    Dim keysState As New Dictionary(Of Keys, List(Of Boolean))

    ''' <summary>
    ''' 毎フレーム呼び出す
    ''' </summary>
    Public Sub UpDate()
        For Each key As Keys In keysState.Keys
            keysState(key).RemoveAt(1)
            keysState(key).Add(keysState(key)(0))
        Next
    End Sub

    ''' <summary>
    ''' キーが押し始められたかを取得
    ''' </summary>
    ''' <param name="key">押し始められたかどうかを取得するキー</param>
    ''' <returns>押し始められていたらTrue、押し始められていなければFalse</returns>
    Public Function IsPush(ByVal key As Keys) As Boolean
        Return keysState.ContainsKey(key) AndAlso Not keysState(key)(1) AndAlso keysState(key)(2)
    End Function

    ''' <summary>
    ''' キーが押されているか取得
    ''' </summary>
    ''' <param name="key">押されているかどうかを取得するキー</param>
    ''' <returns>押されていたらTrue、押されていなければFalse</returns>
    Public Function IsPress(ByVal key As Keys) As Boolean
        Return keysState(key)(0)
    End Function

    ''' <summary>
    ''' キーが離されたかを取得
    ''' </summary>
    ''' <param name="key">離されたかどうかを取得するキー</param>
    ''' <returns>離されたらTrue、離されていなければFalse</returns>
    Public Function IsUp(ByVal key As Keys) As Boolean
        Return keysState.ContainsKey(key) AndAlso keysState(key)(1) AndAlso Not keysState(key)(2)
    End Function

    ''' <summary>
    ''' 対象のコントロールのKeyDownイベントハンドラに追加する
    ''' </summary>
    Public Sub KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
        If keysState.ContainsKey(e.KeyCode) Then
            keysState(e.KeyCode)(0) = True
        Else
            keysState.Add(e.KeyCode, New List(Of Boolean)(New Boolean() {True, False, False}))
        End If
    End Sub

    ''' <summary>
    ''' 対象のコントロールのKeyUpイベントハンドラに追加する
    ''' </summary>
    Public Sub KeyUp(ByVal sender As Object, ByVal e As KeyEventArgs)
        If keysState.ContainsKey(e.KeyCode) Then
            keysState(e.KeyCode)(0) = False
        Else
            keysState.Add(e.KeyCode, New List(Of Boolean)(New Boolean() {False, False, False}))
        End If
    End Sub
End Module

C#|テキストボックスのサイズを内容に合わせて変更

 ググるとSystem.Drawing.Graphics.MeasureString()を用いた方法がHITしますが、これでは誤差が出るので悩んでいる人を掲示板のログ等で見かけます。

 僕も同じことをやろうとして調べてみたのですが、

System.Windows.Forms.TextRenderer.MeasureText()メソッドを用いると誤差なく描画サイズの取得が出来ました。