[프로그램] 세이프와 스크롤바를 이용한 그래픽뷰

등록일 2003.05.14 한글 (hwp) | 4페이지 | 가격 600원

목차

없음

본문내용

세이프와 스크롤바를 이용한 간단한 그래픽 뷰입니다.
Dim Dir_File As String

On Error GoTo ERR
Dim A
Dim B
Dim C
C = File1.Path & "" & File1.FileName ' 패스와 파일명을 붙여준다.
Image1.Picture = LoadPicture(C) '그림을 가져온다.
A = Image1.Width - Picture1.ScaleWidth
'그림이 큰 경우에만 스크롤바를 보이게 한다.
If A > 0 Then
HScroll1.Max = A
HScroll1.LargeChange = HScroll1.Max / 10
HScroll1.SmallChange = HScroll1.Max / 20
HScroll1.Enabled = True
Else
HScroll1.Enabled = False

참고 자료

비주얼베이직 시작 그리고 완성6
비주얼베이직 프로그램 바이블
*원하는 자료를 검색 해 보세요.
      최근 구매한 회원 학교정보 보기
      1. 최근 2주간 다운받은 회원수와 학교정보이며
         구매한 본인의 구매정보도 함께 표시됩니다.
      2. 매시 정각마다 업데이트 됩니다. (02:00 ~ 21:00)
      3. 구매자의 학교정보가 없는 경우 기타로 표시됩니다.
      4. 지식포인트 보유 시 지식포인트가 차감되며
         미보유 시 아이디당 1일 3회만 제공됩니다.
      상세하단 배너
      최근 본 자료더보기
      상세우측 배너
      추천도서
      [프로그램] 세이프와 스크롤바를 이용한 그래픽뷰