VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/02/18(Fri) 15:55
投稿者： いな
Ｅメール：
ＵＲＬ：
タイトル： Re^4: テキストボックスを複数個表示

私の場合、こんな関数を用意してます。
内容の解析をしてみれば幸せになれると思います。

'*********************************************************************
' 機    能  :新規コントロールを Load し、初期設定を行う
' 引 き 数  :ARG1 - 対象コントロール
'            ARG2 - 指定 Top 値
'            ARG3 - 指定 Left 値
'            ARG4 - 指定 Width 値
'            ARG5 - 指定 TabIndex 値
'            ARG6 - 指定 Container
'            ARG7 - 可視区分
'*********************************************************************
Public Sub rInitLoadObject(objTarget As Object, ByVal lngTop As Long, ByVal lngLeft As Long,
Optional ByRef intWidth As Integer, Optional ByRef intTabIndex As Integer = -1, Optional
objContainer As Object, Optional ByVal blnVisible As Boolean = True)
    On Error Resume Next

    '作成
    Load objTarget

    '各種プロパティ設定
    With objTarget
        .Visible = blnVisible

        If Not objContainer Is Nothing Then
            Set .Container = objContainer
        End If

        .Top = lngTop
        .Left = lngLeft
        If intWidth Then
            .width = intWidth
        End If

        If intTabIndex <> -1 Then
            .TabIndex = intTabIndex

            intTabIndex = intTabIndex + 1   '加算
        End If
    End With

    Err.Clear
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -