投稿日	： 2003/07/07(Mon) 18:32
投稿者	： 智
ＵＲＬ	：
タイトル	： 表示

すいません。メッセージを2段に分けて表示したいのですがわかりません。よいお知恵をお願いいたします。



'ユーザ定義型宣言
Private Type tyDisp
    strVal      As String       '値
    strInfo     As String       '備考
End Type



'外部変数
Dim intType             As Integer      '0:DATA  1:KANRI
Dim intLineCnt          As Integer      '現在表示中の行数
Dim intLineMax          As Integer      '最大行数
Dim strFileName         As String       'ファイル名
Dim intFileNum          As String       'ファイル番号
Dim intCnt1             As Integer      '汎用カウンタ
Dim strData1            As String       '取得データ
Dim strData2            As String       '取得データ
Dim mytyDisp(45 + 1)    As tyDisp       '表示用エリア


'''''''''''''''''''
'''''''''''''''''''
Private Sub RecordDisp()

    
    Dim strDisp     As String
    Dim strCmd1     As String
    Dim strCmd2     As String
    Dim intFlag     As Integer
    
    
    intFlag = 0     ' flag clear
    
    strDisp = Mid(strData1, 1, 17)      ' read command
    strDisp = strDisp & " " & Mid(strData1, 19, 1) & " "
    
    
    strCmd1 = Mid(strData1, 33, 2)
    strCmd2 = strCmd1 & Mid(strData1, 36, 2)


    Select Case strCmd1
        Case "07"
            strDisp = strDisp & "リセット"
            intFlag = 1
        
     End Select

    
    If intFlag = 0 Then
    
        Select Case strCmd2
        
        
''''''''''''''''''''ここの"川崎" "智"を2行にわたって表示したいのですが'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
         Case "0700"
                strDisp = strDisp & ""
                
                            
            
            Case "1100"
                strDisp = strDisp & "川崎"
                                  & "智"



''''''''''''''''''''''''''''''表示例'''''''''''''''''''''''''''''''''''''''''''''''''''''

　　　　　　　　　　川崎
　　　　　　　　　　智



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        End Select
    End If
    

    '表示処理
    'Text4.Text = strDisp
    'MsgBox strDisp
    RichTextBox1.Text = strDisp

End Sub

★ - 表示 - 智 07/07-18:32No.4666
• Re: 表示 - nobu 07/07-18:59 No.4669
  • Re^2: 表示 - 智 07/07-19:13 No.4671