投稿時間：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
|