• ベストアンサー

ラベルのCaptionについて

tetu_japanの回答

回答No.1

Labelは配列化されてますか?デザイン時のやり方はわからないですが、コードでは簡単なことだと思います。 Labelコントロールが配列でなく、Label1,Label2となっていることを想定して書きます。 Dim objTemp As Object On Error Resume Next For Each objTemp in Me.Controls If objTemp.Name Like "Label*" Then objTemp.Caption=Format(objTemp.Caption,"ggge年mm月dd日") End If Next objTemp

bruce1104
質問者

お礼

早速の回答ありがとうございます。 やってみます。

関連するQ&A

  • Visual Basic 2008 Express Edition の「form.vb [デザイン]」の画面

    Visual Basicを始めて使いました。 Visual Basic 2008 Express Editionです。 buttonやLabelなどを付けて、プログラムを書いて、保存しました。 そして一度Visual Basicを閉じて、また起動しました。 そして「最近使ったプロジェクト」でさっき保存したプロジェクトを開いたんですが、「Form1.bv [デザイン]」の画面がありません。 プログラムが書いてある「Form1.bv」の画面は開いています。 ボタンの位置などを変えたいので「Form1.bv [デザイン]」を開きたいのですが、どうやって開くんでしょうか。 教えてください。よろしくお願いします。

  • Power Pointで名刺作成

    Power Pointで名刺をデザインしました。 ELECOMの名刺用紙で表示・印刷したいのですが、うまく表示されません。 ELECOM専用のラベル作成ソフトです。 Power Pointでは作成は無理でしょうか? いい方法がありましたら教えてください。

  • VC++でラベルに表示できない[.NET]

    VC++でラベルに表示できない[.NET] 以下のプログラムですがエラーが出ます。 #include "stdafx.h" #include "Form1.h" using namespace CursorXY1; [STAThreadAttribute] int main(array<System::String ^> ^args) { static POINT Point; // コントロールが作成される前に、Windows XP ビジュアル効果を有効にします Application::EnableVisualStyles(); Application::SetCompatibleTextRenderingDefault(false); // メイン ウィンドウを作成して、実行します Application::Run(gcnew Form1()); label1->Text="これはラベルです"; return 0; } エラー内容: 1>.\Form1.cpp(27) : error C2065: 'label1' : 定義されていない識別子です。 1>.\Form1.cpp(27) : error C2227: '->Text' : 左側がクラス、構造体、共用体、ジェネリック型へのポインタではありません。 1> 型は ''unknown-type'' です。 ヘッダーファイルに「Form1.h,resource.h,stdafx.h」があります。 Designerでlabel1を設置しました。 Windowsフォームアプリケーションを選択しました。 初心者ゆえにずっとつまいずいていて、このたび質問させていただくことになりました。 よろしくお願いします。

  • ラベルにはVBAで改行した値を表示できない?

    アクセス2007です。 フォームに、ラベルを配置して、適当に「test」と入力し、 フォームの開く時イベントで ************************************** Private Sub Form_Open(Cancel As Integer) Me.ラベル0.Caption = "a" & Chr(10) & "b" End Sub ************************************** としました。 そしてVBAコードを保存して、フォームを開くと、 ラベルには、「ab」と横に表示されてしまいます。 そうではなく a b と、縦に表示はできないのでしょうか? 手動でデザインフォームで 「a」を入力した後にCtrl+Enterを押し「b」を入力し(画像参照)、イベントを実行させずにフォームビューで表示すると a b になります。 VBAコードでも改行させて表示する方法をよろしくお願いします。

  • ステートメントの簡略方法(ループ)

    Visual Basic 6.0 For/Doを使って省略可させようと考えているのですが、オブジェクト名は ループさせて省略可出来ないのでしょうか? 下記はフォームロード時に各セルの値を各CommandButton名に割り当てています。(一部分です) (例) CB○はCommandButtonのオブジェクト名です。 Form2.CB1.Caption = Trim(xlSheet.Cells(11, 3)) Form2.CB2.Caption = Trim(xlSheet.Cells(12, 3)) Form2.CB3.Caption = Trim(xlSheet.Cells(13, 3)) Form2.CB4.Caption = Trim(xlSheet.Cells(14, 3)) Form2.CB5.Caption = Trim(xlSheet.Cells(15, 3)) ・ ・ ・  ↓ Dim SUU As Integer Dim i As Integer SUU = 0 For i = 1 To 20 Step 1 SUU = SUU + 1 Form2.CB1.Caption = Trim(xlSheet.Cells(10 + SUU, 3)) Next i CB1の部分を "CB" & SUU の様にしたいのですが、エラーしてしまいます。 省略可の方法が有りましたら教えて下さい。

  • Power Pointで日本語にスペルチェックの波線が

    Power Point2000で、英単語を日本語に検索・置換した部分すべてに、日本語にスペルチェックの波線が付いてしまいます。置換した言葉はどれもごく普通の言葉です。 同じ語句を入力し直せば波線が消えますが、面倒なので、一気に消す方法はないでしょうか。 そもそもなぜ波線が付くのか不思議です。 置換した部分は、日本語用フォントが設定されないようで(日本語フォントの欄が空白)、そのせいかと思いますかが・・・ よろしくお願い致します。

  • C++ での関数について

    C++ での関数について 先週Visual C++を始めたばかりの初心者です。 最初に作られるForm1から別の関数に飛ばしたいのですが、やりかたがわかりません。 どなたかお願いします。 \\\\\\\ 詳しく //////// Form1 ここにスタートボタンを作る Form2 Form1のスタートボタンを押すとこちらのウィンドウが起動し、実行される。 ちなみにForm2はプロジェクト名を右クリックし、「追加」→「新しい項目の追加」→「テンプレート」→「windowsフォーム」で作成し追加しました。 C言語はだいたい理解できているのですが、いまいちC++がわかりません。よろしくお願いします。

  • .NET(C#)のコントロールを一定で増加する方法

    プログラミング初心者です。 以下の内容について、どなたか教えてください。 首題の件、.NET上で作成したコントロールのグループを一定ごとに増加して表示することは可能でしょうか? 現在、Visual studio 2010(C#のフォームアプリケーション)で、マウスでクリックした位置の判定を知らせるプログラムを開発しています。 開発の際のコントロールのデザインですが、ラベルA~Dをもつコントロールを一定クリック回数ごとに増やせるように(行を追加するように表示)したいと考えています。 (※参考までに開発目標のコントロールの画像を添付しました。各ラベルの内部処理としては、 ラベルA:回数 ラベルB:残りクリック数 ラベルC:クリックした人の名前 ラベルD:クリックした座標 上記4点を表示したいと考えています) 上記、開発目標に対し、最初はTableLayoutPanelを用いて、行を追加するように表現しようと考えましたが、2行3列のデザインを一つのグループとして作成することができませんでした。 つきましては、どなたか添付の画像のようなコントロールのグループを行の追加のように表示していく方法をご存知の方がいればご教授のほど、よろしくお願いいたします。 ※なお現在の開発環境は以下の通りです。 Visual Studio 2010 Express(C#)

  • C# フォームを追加するとエラー

    C# 勉強中の者です。Visual Studio 2008 を使用しています。 既に一つのフォームで実行できているプロジェクトがあり、[プロジェクト]-[Windows フォームの追加]から追加してフォームを2つにしてみようと思いましたが、以下エラーが出てしまいます。 <エラー内容> ファイル内にデザインできるクラスがないため、このファイルのデザイナを表示できませんでした。ファイルの以下のクラスがデザイナで見つかりました: Form2 --- 基本クラス 'System.Object' をデザインできません。 <このエラーのヘルプ> Visual Studio 内のクラスが、画面上でデザインできるクラスから継承されていないため、ファイルのデザイナを開けません。 どうすればフォームを追加することができるのでしょうか? よろしくお願いします。

  • ユーザーフォームのキャプションに中国語を表示したい

    VBAのユーザーフォームのキャプション(タイトル)に中国語を表示する方法が分かりません。 VBEではコードに中国語の簡体字を入力できないので、ワークシートに中国語を入力しておいて、それをキャプションに表示させたいです。 ラベルのTextやコマンドボタンのCaptionにはこの方法で簡体字を表示できるのですが、ユーザーフォームのCaptionでは?に置換されてしまいます。