Bagaimana untuk menambah ikon dalam program VB

Saya menulis program kecil menggunakan VB dan mahu menambah ikon

Bolehkah anda menghuraikan di mana untuk menambah ikon? Saya akan menyusun program untuk anda sekarang Saya tertanya-tanya sama ada ia akan berguna kepada rakan ini.

Mula-mula tambah borang baharu dalam VB Langkah-langkah khusus ialah: Projek - Tambah Borang - Buka.

Kedua, tambah butang arahan pada borang: namakannya cmddj (klik cmd) dan atribut kapsyen ialah "Buka".

Kandungan diperhalusi: "Ketiga, pilih "Microsoft Common Dialog Control 6.0" dalam Projek - Komponen dan tambahkan kawalan pada borang yang baru dibuat dalam kotak alat. Ambil perhatian bahawa kawalan tidak kelihatan pada masa jalan dan tidak boleh diubah saiznya. . ”

Keempat, lukis kawalan Gambar pada borang. Atribut nama bersaiz sederhana ialah Picture1.

Kemudian tambah acara klik pada kawalan cmddj, kodnya adalah seperti berikut

Sub Perintah Peribadi1_Klik()

Dim’s As String

CommonDialog1.InitDir = ＂e:＂

CommonDialog1.ShowOpen

s = CommonDialog1.FileName

Gambar1.Gambar = MuatkanPicture(s)

Tamat Sub

Apabila program berjalan, klik butang "Buka" dan kotak dialog akan muncul kemudian cari ikon yang anda mahu dan klik "Buka" untuk membukanya.

Saya tidak tahu sama ada apa yang saya cakapkan itu adalah kehendak rakan ini. Jika bukan kerana saya, pasti ada cara lain.

Jika anda ingin mengubah suai ikon borang, cuma ubah suai atribut ikon borang utama. Di sini saya mengesyorkan menggunakan perpustakaan ikon VB sebagai sumber ikon.

Itu sahaja buat masa ini, jika tidak betul, sila hubungi saya semula.

VB6 0 menjana masalah ikon ICO program

Gunakan IconWorkshop atau perisian lain untuk memproses ikon, mengubah suai ikon, menambah resolusi kecil dan yang berkualiti rendah Jika anda tidak pasti, pilih kesemuanya dan simpan ia boleh digunakan dalam VB manager. , tetapi ikon borang VB adalah berkualiti rendah, anda perlu menggunakan kod bawah untuk menetapkan ikon.

Langkah khusus IconWorkshop:

Buka ikon dan tambahkan berbilang format imej

Sama seperti ini, jika anda tidak mengambil berat tentang saiz fail, anda juga boleh memilih semuanya

Hasil:

vb2005 pastinya akan lebih mudah, tetapi sintaks vb2005 dan vb6 sangat berbeza, kod asal hampir tidak boleh digunakan

Konst Peribadi ICON_BIG = 1

Konst Peribadi ICON_SMALL = 0

Konst Peribadi WM_SETICON = &H80

Fungsi Isytihar Peribadi SendMessage Lib "user32" Alias ​​​​"SendMessageA" (ByVal hWnd Selagi, ByVal wMsg Selagi, ByVal wParam Selagi, lParam As Any) Selagi

Fungsi Isytihar Peribadi ExtractIcon Lib "shell32.dll" Alias ​​​​"ExtractIconA" (ByVal hInst Selagi, ByVal lpszExeFileName Sebagai String, ByVal nIconIndex Selagi)

Awam Sub SetWindowIcon(hWnd Selagi)

Malapkan ikon Selagi

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

SendMessage hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon

SendMessage hWnd, WM_SETICON, ICON_BIG, ByVal hIcon

Tamat Sub

Atas ialah kandungan terperinci Bagaimana untuk menambah ikon dalam program VB. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!