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

■No68375 (たいち さん) に返信
> VBが全く分かりません。

言語そのものは分からずとも、それ以外の部分について、たとえば
　・Timer の使い方を把握しているか、あるいは全く分からないのか
　・TextBox から先頭の文字を削りとる文字列操作をコーディングできるのか
　・表示に Label を用いてみるのはどうか
　・TextBox に ToolTip を使う代案が使えるかどうか
といった点に対して言及するぐらいの事はできるのでは…?
第一、ムドーさんの回答には、C# での説明も紹介されているのですし。(^_^;)


とりあえず、先の MarqueeLabel を C# 版に翻訳してみました。


using System;
using System.ComponentModel;
using System.Diagnostics;
using System.Windows.Forms;

public sealed class MarqueeLabel : Label
{
    private IContainer components;
    private Timer timer;
    private float location = 0.0f;

    public MarqueeLabel()
    {
        base.UseCompatibleTextRendering = true;
        timer = new Timer(components = new Container());
        timer.Interval = 50;
        timer.Tick += delegate 
        {
            if (location > (float)Width)
            {
                location = -(float)Width;
            }
            else
            {
                location += speed / 10.0f;
            }
            Invalidate();
        };
        SetStyle(ControlStyles.UserPaint, true);
        SetStyle(ControlStyles.OptimizedDoubleBuffer, true);
        SetStyle(ControlStyles.AllPaintingInWmPaint, true);
        base.AutoSize = false;
        timer.Start();
    }

    [DefaultValue(false)]
    public override bool AutoSize
    {
        get { return base.AutoSize; }
        set { if (!DesignMode) base.AutoSize = value; }
    }

    /// <summary>流れるスピードを指定します。</summary>
    [Description("流れるスピードを指定します。")]
    [Category("Action"), DefaultValue(20.0f)]
    public float Speed
    {
        get { return Math.Max(0.0f, Math.Min((float)Width, speed)); }
        set
        {
            if (value < 0.0f)
            {
                throw new ArgumentOutOfRangeException("Speed", value, "0以上の値を指定してください。");
            }
            speed = Math.Min((float)Width, value);
            if (value == 0.0f)
            {
                timer.Stop();
                if (DesignMode) ResetPosition();
            }
            else
            {
                timer.Start();
            }
        }
    }
    private float speed = 20.0f;

    protected override void OnPaint(PaintEventArgs e)
    {
        e.Graphics.TranslateTransform(-location, 0.0f);
        base.OnPaint(e);
    }

    public void ResetPosition()
    {
        location = 0.0f;
        Invalidate();
    }

    [DebuggerNonUserCode]
    protected override void Dispose(bool disposing)
    {
        try
        {
            if (disposing && components != null) { components.Dispose(); }
        }
        finally
        {
            base.Dispose(disposing);
        }
    }
}

■No68362 (たいち さん) に返信
> 分類:[C#]　
この部分、返信時の本文部には引用されないんですよね…。

返信するまでは、C# として読み進めていたのですが、いざ回答する際に、
> 例：
> Textbox1.Text="たいちですよろしくお願いします。"
という内容を見て、VB 向けのコードを紹介してしまっていました。その点は失礼しました。

TextBox1.Text = "たいちですよろしくお願いします。"   ← Visual Basic の場合(コントロール名の先頭が大文字)
textBox1.Text = "たいちですよろしくお願いします。";  ← C# の場合 (末尾にセミコロン)


> Textbox1.Textは通常表示させると5文字しか入らない設定で
> "たいちです"しか表示されないものを
> 右から左へ1文字ずつスクロールして、全部の文字が読めるようにしたいです。

先の例は Label 案だったので、今度は TextBox 案。
Form1 上に、TextBox を 3 つと、Timer を 1 つ貼っておいてください。


private void Form1_Load(object sender, EventArgs e)
{
    textBox1.Text = "たいちですよろしくお願いします。";
    textBox2.Text = "たいちですよろしくお願いします。";
    textBox3.Text = "たいちですよろしくお願いします。";
    SetScrollableTextBox(textBox2, BorderStyle.Fixed3D);
    SetScrollableTextBox(textBox3, BorderStyle.FixedSingle);

    timer1.Interval = 50;
    timer1.Start();
}

private void SetScrollableTextBox(TextBox txt, BorderStyle border)
{
    Panel p = new Panel();
    p.Location = txt.Location;
    p.Size = txt.Size;
    p.BackColor = txt.BackColor;
    p.BorderStyle = border;
    txt.BorderStyle = BorderStyle.None;
    txt.Parent.Controls.Add(p);
    p.Controls.Add(txt);
    txt.SetBounds(0, 0, int.MaxValue, txt.Height);
    timer1.Tick += delegate
    {
        txt.Left -= 1;
        using (Graphics g = txt.CreateGraphics())
        {
            int w = (int)g.MeasureString(txt.Text, txt.Font).Width;
            if(w < -txt.Left)
            {
                txt.Left = p.Width;
            }
        }
    };
}