C# と VB.NET の質問掲示板

魔界の仮面弁士さん、いつも助けて頂いてありがとうございます。
閲覧する方のために最終的なソースを上げておきます。

=====================以下ソース==============================
using System.Text;

private void button1_Click(object sender, System.EventArgs e)
{
    string str = textBox1.Text;
    System.Text.RegularExpressions.Regex regex_hankana = new System.Text.RegularExpressions.Regex(@".*[＼uff61-＼uff9f].*");
    if(regex_hankana.IsMatch(str)) {
        MessageBox.Show("半角カタカナです！");
    }
}

現在はソースが以下のように変わっています。
TextBoxとボタンしかないダイアログを表示して、ボタンを押すと
TextBoxのテキストを取るようになっています。

これだと、半角カタカナを入力しても「それ以外です」といわれてしまいます。

private void button1_Click(object sender, System.EventArgs e)
{
    string str = textBox1.Text;
    ASCIIEncoding AE = new ASCIIEncoding();
    char[] temp = str.ToCharArray();
    for(int x=0; x < temp.Length; x++)
			{
        byte[] bc = AE.GetBytes(temp[x].ToString());
        if(bc[0] >= 161 && bc[0] <= 223) {
            MessageBox.Show("半角カタカナです！");
        } else {
            MessageBox.Show("それ以外です！");
        }
    }
}

Button1_Clickメソッドを次のようにしてもだめでしょうか？


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim abc As New Jeanne.Ini.IniFile("D:＼file1.NET＼bin＼file1.ini")
        Dim data As Object

        data = abc.ReadInteger("Main Position", "Main_Width")
    End Sub

しばらくPCから離れた生活を送っていた為、レスを頂いた方にお礼も遅れ申し訳け
ありません！

CとC#がきゅうりか冬瓜か・・・の議論は、私の質問の本筋ではないのでそこだけに
議論が集中するのは本意ではありません。
（言い出しっぺはおまえだ！と言われれば返す言葉もないのですが・・・(^-^;）

さて、本日ようやく環境が整って新しいIniFileを導入したのですが・・・
下記のエラーが出ます。
『'System.IO.FileLoadException' のハンドルされていない例外が system.windows.forms.dll で発生しました。

追加情報 : 見つかったアセンブリのマニフェストの定義 'IniFile' はアセンブリ
の参照と一致しません。』
前のIniFileでは出なかったエラーの為、導入ミスを疑いました。
そこで、簡単なプログラムでその検証をしました。
Formの中にボタンが一つ、ボタン押下でIniFileを呼び出します。

---------------------------------------------------------------------
Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows フォーム デザイナで生成されたコード "

    Public Sub New()
        MyBase.New()

        ' この呼び出しは Windows フォーム デザイナで必要です。
        InitializeComponent()

        ' InitializeComponent() 呼び出しの後に初期化を追加します。

    End Sub

    ' Form は、コンポーネント一覧に後処理を実行するために dispose をオーバーライドします。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' Windows フォーム デザイナで必要です。
    Private components As System.ComponentModel.IContainer

    ' メモ : 以下のプロシージャは、Windows フォーム デザイナで必要です。
    'Windows フォーム デザイナを使って変更してください。  
    ' コード エディタを使って変更しないでください。
    Friend WithEvents Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(64, 64)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(200, 64)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
        Me.ClientSize = New System.Drawing.Size(328, 277)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim abc As Jeanne.Ini.IniFile
        Dim data As Object

        abc.FilePath = "D:＼file1.NET＼bin＼file1.ini"
        data = abc.ReadInteger("Main Position", "Main_Width")
    End Sub
End Class
---------------------------------------------------------------------

このプログラム実行でも
『'System.IO.FileNotFoundException' のハンドルされていない例外が system.windows.forms.dll で発生しました。

追加情報 : ファイルまたはアセンブリ名 IniFile、またはその依存関係の 
1つが見つかりませんでした。』
となります。

Readmeにあるとおり導入したのですが、何か至らなかったでしょうか？
どうかご教示ください。

スクリプトを画面１のページに出力すればよいのではないでしょうか？

****画面１「GAMEN1」のロジック****
			:
　　　　　　　　　CALL clcKengenChk.KengenChk("GAMEN1", Me.Page) 　

****権限チェックのロジック****
#Region "権限チェック"
    Public Function KengenChk(ByVal _strScrId As String, ByVal p As Page) As Boolean
			:
                p.RegisterStartupScript("authenticated", cript.ToString)

初心者なので、もし基本的すぎる質問だったらすみません。色々調べたのですが
とあるロジックをクラス化する場合の制御がよくわかりません。お手数ですが、わかる方いらっしゃいましたら教えてください。

画面１から、権限チェックのクラスを呼びます。
権限チェッククラスの中で、DBをチェックして権限が無かった場合、画面１には戻らず、
画面２に飛ぶロジックを組みたいです。
権限チェックをクラス化しない場合は、ロジックがうまく組めたのですがクラス化してからうまく動かなくなりました。
以下の、ロジックだと権限チェックの中で画面２を呼び出しても制御が画面１に戻ってしまうため、結局画面１が表示されます。


****画面１「GAMEN1」のロジック****
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As　System.EventArgs) Handles MyBase.Load
            If Not IsPostBack Then
            '権限チェック
　　　　　　　　　CALL clcKengenChk.KengenChk("GAMEN1") 　
    End Sub

****権限チェックのロジック****
Public Class clsKengenChk '権限チェック
    Inherits System.Web.UI.Page

#Region "権限チェック"
    Public Function KengenChk(ByVal _strScrId As String) As Boolean
            KengenChk = True
            'わたってきた画面IDにより、権限SQL-DBを読み込む（ロジック省略）

            If 画面の権限　= 否 Then
                '認証チケットを削除(永続的な Cookie またはセッション
                'Cookie のいずれかが削除)
                System.Web.Security.FormsAuthentication.SignOut()
                Session.Clear()

                Dim script As New System.Text.StringBuilder
                script.Append("<script language=""JavaScript"">")
                script.Append("top.location.href =""GAMEN2.aspx"";")
                script.Append("</script>")

                Page.RegisterStartupScript("authenticated", cript.ToString)

                '※上記のロジックを「Response.Redirect("AAA0101.aspx")」にしてもだめでした

               End If
    End Function
End Class

どのようなグラフを作成したいのか分からなかったのですが
次のような感じでいかがでしょうか？
間違っていたらすみません。

private void For999_Click(object sender, System.EventArgs e)
{
　   string msg = "";
     this.SuspendLayout();
　   for (int i = 0; i<1000; i++)
     {
　        msg += i + "＼n";
          Label lab = new Label();
          lab.Height = 8;
          lab.Width = i;
          lab.BackColor = Color.Blue;
          lab.Location = new Point(150, i * 10);
          this.Controls.Add(lab);
     }
     this.ResumeLayout(false);
　   richTextBox1.Text = msg;
}