[430.xls]



' [mjSumple] のコード
'■■ スクロールバーの表示を切り替える ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
           
    'デフォルトのデータ表示
    For intCnt = 0 To 100
        If intCnt Mod 20 = 0 Then
            frmSumple.txtInput.Text = frmSumple.txtInput.Text & Chr(13)
        Else
            frmSumple.txtInput.Text = frmSumple.txtInput.Text & "," & intCnt
        End If
    Next
    
    'フォームの表示
    frmSumple.Show

End Sub



' [frmSumple] のコード

Private Sub optBtn1_Click()
    txtInput.ScrollBars = fmScrollBarsNone
    txtInput.SetFocus
End Sub

Private Sub optBtn2_Click()
    txtInput.ScrollBars = fmScrollBarsHorizontal
    txtInput.SetFocus
End Sub

Private Sub optBtn3_Click()
    txtInput.ScrollBars = fmScrollBarsVertical
    txtInput.SetFocus
End Sub

Private Sub optBtn4_Click()
    txtInput.ScrollBars = fmScrollBarsBoth
    txtInput.SetFocus
End Sub