複数コントロールの接続            <TOP>

同種のコントロールが沢山ある場合、個別に設定するのは大変です。

例では、テキストボックス、エディットボックスのコントロール接続、フォント名、フォントサイズおよびＩＭＥモードを一度に設定しています。

　

'================================================================
'= 複数のコントロールの接続（フォントサイズも明示的に指定）
'================================================================
#include"Windows.bi"

Var Shared Edit(9) As Object
Var Shared Text(9) As Object

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    For i = 0 To 9
        Edit(i).Attach GetDlgItem("Edit" & Trim$(Str$(i + 1)))
        Edit(i).SetFontName "ＭＳ ゴシック"
        Edit(i).SetFontSize 14
        Text(i).Attach GetDlgItem("Text" & Trim$(Str$(i + 1)))
        Text(i).SetFontName "ＭＳ ゴシック"
        Text(i).SetFontSize 14
        Select Case i
            Case 0, 3, 4, 5, 9
                Edit(i).SetImeMode 1       '仮名漢字ON
            Case 1
                Edit(i).SetImeMode 6       '半角ｶﾀｶﾅ
            Case Else
                Edit(i).SetImeMode 2       '仮名漢字OFF
        End Select
    Next i
    Edit(1).SetFocus
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End