VB 프로그램에 아이콘을 추가하는 방법

VB를 사용하여 작은 프로그램을 작성했는데 아이콘을 추가하고 싶었습니다

아이콘을 추가할 위치를 자세히 설명해 주시겠어요? 나는 지금 당신을 위한 프로그램을 작성하겠습니다. 그것이 이 친구에게 도움이 될지 궁금합니다.

먼저 VB에서 새 양식을 추가합니다. 구체적인 단계는 프로젝트 - 양식 추가 - 열기입니다.

두 번째, 명령 버튼을 양식에 추가합니다. 이름을 cmddj(cmd 클릭)로 지정하고 캡션 속성은 "Open"입니다.

미세 조정된 콘텐츠: "셋째, 프로젝트 - 구성 요소에서 "Microsoft Common Dialog Control 6.0"을 선택하고 도구 상자에서 새로 생성된 양식에 컨트롤을 추가합니다. 컨트롤은 런타임에 표시되지 않으며 크기를 조정할 수 없습니다. . ”

넷째, 폼에 Picture 컨트롤을 그립니다. 적당한 크기의 이름 속성은 Picture1입니다.

그런 다음 cmddj 컨트롤에 클릭 이벤트를 추가하면 코드는 다음과 같습니다

비공개 하위 명령1_Click()

Dim은 문자열로

CommonDialog1.InitDir = "e:"

CommonDialog1.ShowOpen

s = CommonDialog1.FileName

Picture1.Picture = LoadPicture(s)

끝 서브

프로그램이 실행되면 "열기" 버튼을 클릭하면 대화 상자가 나타납니다. 그런 다음 원하는 아이콘을 찾아 "열기"를 클릭하여 엽니다.

내가 말하는 것이 이 친구가 원하는 것인지 모르겠습니다. 내가 아니었다면 다른 방법이 있었을 것이다.

양식의 아이콘을 수정하려면 기본 양식의 아이콘 속성을 수정하면 됩니다. 여기에서는 VB의 아이콘 라이브러리를 아이콘 소스로 사용하는 것이 좋습니다.

지금은 여기까지입니다. 맞지 않으면 다시 연락주세요.

VB6 0 생성된 프로그램 ICO 아이콘 문제

아이콘을 처리하고, 아이콘을 수정하고, 작은 해상도와 낮은 품질을 추가하려면 IconWorkshop 또는 기타 소프트웨어를 사용하세요. 확실하지 않은 경우 모두 선택하고 VB에서 사용할 수 있습니다. , VB 양식 아이콘의 품질이 낮으므로 아이콘을 설정하려면 하단 코드를 사용해야 합니다.

IconWorkshop 특정 단계:

아이콘을 열고 다양한 이미지 형식을 추가하세요

이렇게 파일 크기에 상관없으시면 다 선택하셔도 됩니다

결과:

물론 vb2005는 더 간단하겠지만 vb2005와 vb6의 구문은 매우 다르므로 원본 코드는 거의 사용할 수 없습니다

Private Const ICON_BIG = 1

개인 상수 ICON_SMALL = 0

Private Const WM_SETICON = &H80

개인 선언 함수 SendMessage Lib "user32" 별칭 "SendMessageA"(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long

개인 선언 함수 ExtractIcon Lib "shell32.dll" 별칭 "ExtractIconA"(ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long)

Public Sub SetWindowIcon(hWnd 길이)

Dim hIcon은 오랫동안

hIcon = ExtractIcon(App.hInstance, App.EXEName & ".exe", 0)

SendMessage hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon

SendMessage hWnd, WM_SETICON, ICON_BIG, ByVal hIcon

끝 서브

위 내용은 VB 프로그램에 아이콘을 추가하는 방법의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!