Vb 표시 좌우명

인터페이스 디자인 가능하죠? 여기에' 사진, 좌우명, 끝' 세 개의 버튼을 Cmd 1, Cmd2, Cmd3 으로 설정합니다 (제목을' 사진, 좌우명, 끝' 으로 변경하는 것을 잊지 마십시오 ~). 그런 다음 두 개의 이미지 컨트롤 (Image 1 및 Image2 는 각각 당신의 사진과 자화 그래픽을 나타냄) 을 넣고, 당신의 사진을 넣고, Label 1 을 넣는다. 。 。 。 코드 쓰기 시작 ~ ~

개인 하위 명령 3_Click ()

끝났어.

끝단 접합

개인 하위 양식 _Click ()

A 를 문자열로 어둡게 합니다

A = InputBox ("정보를 입력하십시오:") "입력 상자

A = "0 18 "인 경우

그림 2. Visible = True 는 자체 그린 그림을 표시합니다.

ElseIf a = "music "그리고

FileCopy 응용 프로그램. 경로 및 경로. "aaa.mp3", "D:\aaa.mp3"' MP3 파일이 프로그램과 같은 폴더에 있는 경우 파일을 드라이브 d 로 이동합니다.

셸 "d: \ aaa.mp3"' 경로는 디스크 d 이고 파일 이름은 AAA 라고 가정합니다. MP3 (프로그램에서 재생하려면 컨트롤을 추가해야 함)

기타

MsgBox "잘못된 입력!"

만약 ... 끝날거야

끝단 접합

개인 하위 양식 _Load ()

이미지1입니다. 표시 = 거짓

그림 2. Visible = False' 는 보이지 않게 합니다.

끝단 접합

개인 하위 Cmd 1_Click ()

이미지1입니다. Visible = True' 는 사진을 보여줍니다.

끝단 접합

마지막으로 exe 파일을 실행할 때 현재 경로 (app.path) 가 exe 파일이 있는 경로입니다. VB 에서 디버깅할 때 현재 경로는 VB 가 있는 경로입니다! 따라서 디버깅할 때는 파일 경로에주의를 기울여야합니다. 。

아마 이렇게 될 겁니다. 。 。 의심의 여지가 없지, 그렇지? 좀 찾아봐 ~ ~