우리는 소프트웨어를 개발하는 과정에서 소프트웨어의 상용화 정도를 높이기 위해 인터페이스의 아름다움이 소프트웨어의 성공에 중요한 요소라고 생각합니다. 우리는 이러한 소프트웨어 중에서 성공적인 상용 소프트웨어를 주의 깊게 연구했습니다. 예, 프로그램 창의 배경은 매우 아름답고 3차원적인 패턴을 표시할 수 있습니다. Visual Basic 3.0이나 4.0을 사용하여 폼 디자인을 할 경우 시스템에서 제공하는 기능만 따르면 제한된 수의 색상 중에서 한 가지 색상만 선택할 수 있거나 프로그램을 사용하여 몇 가지 간단한 선을 그릴 수 있습니다. 입체감이 강한 텍스처 패턴을 얻으려면 일반적으로 양식의 PICTURE 속성만 사용하여 비트맵 파일을 호출할 수 있습니다. 하나는 양식의 크기입니다. 는 비트맵의 크기에 의해 제한되며 조정이 번거롭고, 두 번째는 패턴이 기본적으로 반복되는 패턴이고 동일한 크기의 비트맵을 사용하기 때문에 리소스 낭비입니다. 형태는 낭비다.
다음은 폼 배경 패턴을 구현하는 방법을 소개합니다. 폼에 그리드 컨트롤을 생성하고, 그리드 행이 보이지 않도록 설정하고, 고정된 행과 열을 제거하고, 프로그램을 사용하여 그리드 컨트롤을 폼과 같은 크기로 만들고, 폼의 크기가 변경됨에 따라 변경합니다. 그런 다음 BMP 비트맵 파일을 형성하는 패턴을 디자인하거나(이 문서의 프로그램은 Pict1.bmp 파일을 사용함), Windows 시스템에서 제공하는 패턴(예: c:windowsTiles)을 사용할 수도 있습니다. bmp)를 사용하여 Picture 컨트롤을 호출합니다. 그리드의 각 단위를 패턴과 동일한 크기로 설정하여 단위 수가 전체 양식 배경을 덮도록 한 다음 모든 단위에 패턴을 표시합니다. 위의 과정은 패턴의 크기나 창의 크기에 관계없이 서브루틴 Backpict()를 통해 구현됩니다.
프로그램은 그리드 제어 크기, 그리드 단위 크기 및 단위 수를 자동으로 조정할 수 있습니다. 프로그램이 VisualBasic4.0에서 성공적으로 디버깅되었습니다.
1. 다음 속성을 사용하여 새 양식 Form1을 만듭니다.
Caption="배경 패턴 구현"
테두리 스타일=3(최대 및 최소 버튼 없음)
2. 그리드 컨트롤 Grid1을 만듭니다. 해당 위치와 크기는 프로그램에서 설정되며(Form1과 동일한 크기) 해당 속성은 다음과 같습니다.
Enabled=False(포커스가 그리드 컨트롤 Grid1에 떨어지지 않음)
Fillstyle=1(모든 셀의 텍스트 속성 변경)
Fixcols=0(고정 행 없음)
고정행=0(고정 열 없음)
Gridlines=False(격자선이 표시되지 않음),
표시=참
3. 이미지 컨트롤 Picture1을 생성합니다. 프로그램이 실행되면 배경 패턴의 기본 패턴을 넣고 속성은 다음과 같습니다.
표시=거짓(보이지 않음)
Autosize=True(자동으로 크기 조정)
4. Sheridan3DControls를 컨트롤에 추가하고 3차원 명령 버튼인 SSCommand를 선택한 다음 두 개를 만듭니다.
단추
SSCommand1.Caption="종료"
SSCommand2.Caption="배경 변경"(다양한 배경 패턴 보여줌)
해당 속성 그림은 일반 명령 단추 컨트롤을 사용하는 경우 배경과 동일하거나 다른 패턴을 호출할 수 있습니다.
명령도 사용할 수 있지만 명령 버튼에는 배경 패턴이 없습니다.
5. 서브루틴을 형성하는 배경 패턴을 만듭니다.
DimpictfileAsString`비트맵 파일 이름
DimFILEPATHAsString`파일 경로
SubBackpict(그림파일)
picture1.ScaleMode=3
Form1.ScaleMode=3
picture1.Picture=LoadPicture(그림파일)
`그리드 컨트롤은 전체 양식 배경을 덮습니다.
그리드1.Top=-1
그리드1.왼쪽=-1
그리드1.폭=너비
Grid1.Height=높이
Grid1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth) 1
Grid1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight) 1
`모든 셀 크기는 기본 패턴 크기와 같습니다.
ForI=0Togrid1.Cols-1
Forj=0Togrid1.Rows-1
그리드1.ColWidth(I)=그림1.ScaleWidth*15
Grid1.RowHeight(j)=그림1.ScaleHeight*15
넥스트
다음I
`모든 셀 선택
Grid1.SelStartCol=0
그리드1.SelStartRow=0
Grid1.SelEndCol=grid1.Cols-1
Grid1.SelEndRow=grid1.Rows-1
Grid1.Picture=Picture1.Picture
EndSub
6. 메인 프로그램 작성
PRivateSubForm_Load()
PrivateSubForm_Load()
`실행 중인 프로그램의 경로 이름을 얻으십시오. 경로 이름 뒤에 백슬래시가 있어야 합니다.
IfRight(App.Path,1)<>""Then
filePath=App.Path&""
또 다른
파일 경로=App.Path
종료
`양식은 처음에 Tiles.bmp 기본 패턴으로 구성된 배경을 표시합니다.
pictfile="c:windowsTiles.bmp"
뒷그림(그림파일)
EndSub
7. 프로그램 종료 명령 버튼
PrivateSubSSCommand1_Click()
끝
EndSub
8. 다양한 음영 패턴 보여주기
PrivateSubSSCommand2_Click()
`두 가지 배경 패턴이 교대로 나타납니다.
Ifpictfile=filePath&"Pict1.bmp"그러면
pictfile="c:windowsTiles.bmp"
또 다른
pictfile=파일경로&"Pict1.bmp"
종료
뒷그림(그림파일)
EndSub->