Rumah > Artikel > tutorial komputer > Bagaimana untuk menambah ikon dalam program VB
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.
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!