|
|
|
|
|
|
긴문자열 속성의 텍스트 박스에 많은 양의 텍스트가 있어서 커맨드 버튼을 이용해서 몇줄 아래로 / 위로 이동하는 기능을 구현하고 싶습니다
다음 레코드/페이지 이동은 알겠는데
동일한 텍스트 박스내 이동은 어떤 방법이 가능할까요?
==============[WinWin님 글에 대한 답변입니다]==============
줄단위는 아니고,, 일정한 길이 만큼 커서 위치를 옮기는 방식입니다.
Private Sub cmd_down_Click()
If IsNull(내용) Then Exit Sub
내용.SetFocus
If 위치 + 스크롤양 < Len(내용) Then
위치 = 위치 + 스크롤양
내용.SelStart = 위치
Else
내용.SelStart = Len(내용)
End If
End Sub
Private Sub cmd_m_Click()
If 스크롤양 > 100 Then 스크롤양 = 스크롤양 - 100
End Sub
Private Sub cmd_p_Click()
스크롤양 = 스크롤양 + 100
End Sub
Private Sub cmd_up_Click()
If IsNull(내용) Then Exit Sub
내용.SetFocus
If 위치 < 스크롤양 Then
위치 = 0
내용.SelStart = 0
Else
위치 = 위치 - 스크롤양
내용.SelStart = 위치
End If
End Sub |
|
[불량 게시물 신고] |
|
|
|
작성일 : 2022-04-29(12:42)
최종수정일 : 2022-04-29(12:43) |
|
|
|
|