即効テクニック |
● 概要 ● ラベルは表示専用のコントロールです。フォームのタイトルや他のコントロールの説明を表示するために使用します。 ツールボックスからフォームにテキストボックスやチェックボックスを貼り付けると、そのコントロールとリンクしたラベルが作成されます。リンクしたラベルには、自動的にリンク先のコントロールの名前が表示されます。 一方、ツールボックスからフォームにラベル自身を貼り付けると、他のコントロールにリンクしない独立したラベルを作成できます。この場合、表示する文字はラベル作成時に入力します。 ラベルがリンクしているコントロールは、Parentプロパティを参照することによって調べることができます。他のコントロールとリンクしていないラベルのParentプロパティはフォームになります。 ● サンプル ● Private Sub cmd取得_Click() Dim myCtrl As Control Dim myStr As String myStr = "" 'フォーム上のコントロールを参照する For Each myCtrl In Me.Controls 'ラベルコントロールを判別する If myCtrl.ControlType = acLabel Then 'コントロールの名前とParentプロパティを取得する myStr = myStr & myCtrl.Name & " : " & myCtrl.Parent.Name & vbCr End If Next MsgBox myStr End Sub ● 操作例1 ● ラベルには、HyperlinkAddressプロパティを使って、ハイパーリンクを設定することができます。 次のコードは、フォームを開くときに、ラベルにハイパーリンクを設定するものです。 ForeColorプロパティとFontUnderlineプロパティを利用して、一般的なリンク用の文字列と同じ下線付きの青色文字になるように、体裁に整えています。 ● サンプル1 ● Private Sub Form_Load() With ラベル3 '標題設定 .Caption = "ホームページを開く" '文字色設定 .ForeColor = 16711680 '下線設定 .FontUnderline = True 'ハイパーリンク設定 .HyperlinkAddress = "http://www.projecta.co.jp" End With End Sub