Cara mengubah ikon aplikasi dengan Visual Basic

PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.

Klik disini untuk melihat versi Inggris dari artikel ini:259673
Artikel ini telah diarsipkan. Artikel ditawarkan dalam bentuk "apa adanya" dan tidak akan dapat diperbarui lagi.
RINGKASAN
Kadang-kadang Anda mungkin ingin mengubah ikon yang berhubungan dengan aplikasi. Ikon aplikasi ini adalah apa yang muncul ketika Anda menggunakan kombinasi tombol ALT + TAB untuk beralih antara aplikasi yang sedang berjalan di komputer Anda. Ikon dapat diubah dengan menggunakan SendMessage Fungsi API.
INFORMASI LEBIH LANJUT
Semua aplikasi Visual Basic memiliki jendela top-level yang tak terlihat bahwa proses peristiwa dan pesan. Dalam desain mode, jendela ThunderMain, dalam menjalankan mode, jendela adalah ThunderRT6Main. RT6 mencerminkan versi Visual Basic yang sedang digunakan. Kedua jendela memiliki nama proyek, atau nama eksekusi sebagai judul jendela. Ini adalah di mana set ikon aplikasi.

Anda perlu menggunakan GetWindowLong fungsi untuk berjalan di atas jendela rantai sampai fungsi kembali 0, menunjukkan bahwa ada windows orangtua tidak lebih. Atau, Anda bisa mencari ThunderRT6Main dengan FindWindow Fungsi API, tetapi ada mungkin menjadi lebih dari satu contoh dari aplikasi Anda. (FindWindow pencarian untuk jendela yang didasarkan pada jendela kelas nama dan/atau jendela teks. Jika ada dua contoh dari aplikasi, kedua jendela yang persis sama. Oleh karena itu, tidaklah tertentu bahwa Anda selalu menemukan salah satu yang Anda benar-benar bekerja dengan.)

Berikut contoh Visual Basic menunjukkan ini.

Ketika Anda mengatur Ikon properti, Anda bisa mendapatkan sumber ikon dalam beberapa cara:
  • Dengan menggunakan Gambar properti PictureBox kontrol (seperti yang ditunjukkan kemudian).

  • Dengan menggunakan LoadPicture fungsi untuk me-load Icon dari satu file .ico. Misalnya:
    Set Me.Icon = LoadPicture("C:\Program Files\Microsoft Visual " _      & "Studio\Common\Graphics\Icons\Misc\BULLSEYE.ICO")					
  • Dengan menggunakan LoadResPicture fungsi untuk memuat ikon dari file sumber daya (.res). Misalnya:
    Set Me.Icon = LoadResPicture(101, vbResIcon)					

Contoh langkah demi langkah

  1. Mulai baru Standar EXE proyek dalam Visual Basic. Form1 dibuat secara default.
  2. Dari Project menu, menambahkan modul baru untuk proyek.
  3. Tambahkan deklarasi API berikut untuk Module1:
    Option ExplicitPublic Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _    (ByVal hWnd As Long, ByVal nIndex As Long) As LongPublic Declare Function SendMessage Lib "user32" Alias "SendMessageA" _    (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPublic Declare Function LoadIcon Lib "user32" Alias "LoadIconA" _    (ByVal hInstance As Long, lpIconName As Any) As LongPublic Const GWL_HWNDPARENT = (-8)Public Const WM_GETICON = &H7FPublic Const WM_SETICON = &H80Public Const ICON_SMALL = 0Public Const ICON_BIG = 1					
  4. Klik pada Form1 dan ikon Properti jendela. Ini menjadi ikon aplikasi default.
  5. Tambahkan PictureBox mengontrol Form1.
  6. Klik Gambar properti dan klik (elipsis...) tombol. Hal ini memungkinkan Anda untuk memilih gambar yang Anda inginkan untuk menempatkan di PictureBox. Pilih ekstensi berkas ikon (.ico).
  7. Tambahkan CommandButton mengontrol Form1.
  8. Tambahkan kode berikut ke jendela kode Form1:
    Private nRet         As LongPrivate nMainhWnd    As LongPrivate Sub Form_Load()    nRet = GetWindowLong(Me.hWnd, GWL_HWNDPARENT)    Do While nRet       nMainhWnd = nRet       nRet = GetWindowLong(nMainhWnd, GWL_HWNDPARENT)    LoopEnd SubPrivate Sub Command1_Click()    Dim hIcon As Long        ' set the icon    Set Me.Icon = Picture1.Picture    ' get a handle to ICON_BIG    hIcon = SendMessage(Me.hWnd, WM_GETICON, ICON_BIG, ByVal 0)    ' send ICON_BIG to the main window    SendMessage nMainhWnd, WM_SETICON, ICON_BIG, ByVal hIcon End Sub					
  9. Mengkompilasi proyek dan menjalankan file eksekusi yang baru. Tekan kombinasi tombol ALT + TAB untuk melihat apa ikon aplikasi Anda. Jika Anda menguji ini di IDE Visual Basic, perhatikan bahwa default Microsoft Windows ikon akan muncul.
  10. Klik CommandButton dan tekan ALT + TAB lagi. Perhatikan bahwa ikon aplikasi telah berubah.

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 259673 - Tinjauan Terakhir: 12/05/2015 19:41:04 - Revisi: 2.0

Microsoft Visual Basic 4.0 Standard Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition

  • kbnosurvey kbarchive kbapi kbhowto kbicon kbmt KB259673 KbMtid
Tanggapan